URGENTE, PARA PODA
Publicado por jose (86 intervenciones) el 02/07/2004 17:02:49
Poda lo tengo como tu dices, mira te dejo aqui , lo que tengo hecho, a ver si es que tengo algo mal y no me doy cuenta. OK? me pasa lo mismo, que te he contado antes, no se abre el informe. mira....
Private Sub cmdver_Click()
Dim ruta As Long
Dim inf As Access.Application
If Text1.Text <> "" Then
Set inf = New Access.Application
inf.OpenCurrentDatabase (App.Path & "\informe.mdb")
inf.DoCmd.OpenReport Text1.Text, acViewPreview
inf.CloseCurrentDatabase
inf.Visible = True
Set inf = Nothing
Else
MsgBox ("ESCRIBA EL NOMBRE DEL INFORME"), vbInformation
End If
End Sub
Gracias por tus molestias.
Saludos.Jose
Private Sub cmdver_Click()
Dim ruta As Long
Dim inf As Access.Application
If Text1.Text <> "" Then
Set inf = New Access.Application
inf.OpenCurrentDatabase (App.Path & "\informe.mdb")
inf.DoCmd.OpenReport Text1.Text, acViewPreview
inf.CloseCurrentDatabase
inf.Visible = True
Set inf = Nothing
Else
MsgBox ("ESCRIBA EL NOMBRE DEL INFORME"), vbInformation
End If
End Sub
Gracias por tus molestias.
Saludos.Jose
Valora esta pregunta
0