AYUDDAAAAAA
Publicado por ALMUDENA (3 intervenciones) el 25/04/2007 16:57:27
hola a todos:
tengo el siguiente codigo en un informe:
1-
Private Sub Report_NoData(Cancel As Integer)
MsgBox "No existen registros relacionados", vbInformation
Cancel = True
End Sub
Con esto compruebo que cuando se abra el informe se abra porque hay registros.
2-.Tengo un boton con lo siguiente:
Private Sub Etiqueta8_Click()
On Error Resume Next
DoCmd.OpenReport "informeAlumnos", acPreview, , "NOMBRE like'*" & InputBox("Introduce Nombre: ") & "*' AND APELLIDOS like'*" & InputBox("Introduce Apellidos: ") & "*'"
On Error GoTo 0
End Sub
que pedira el nombre y el apellido del alumno que quiere buscar el informe.
Ahora bien quiero que en ese boton primero compruebe que hay informes con ese filtro y luego los imprima.
Gracias
tengo el siguiente codigo en un informe:
1-
Private Sub Report_NoData(Cancel As Integer)
MsgBox "No existen registros relacionados", vbInformation
Cancel = True
End Sub
Con esto compruebo que cuando se abra el informe se abra porque hay registros.
2-.Tengo un boton con lo siguiente:
Private Sub Etiqueta8_Click()
On Error Resume Next
DoCmd.OpenReport "informeAlumnos", acPreview, , "NOMBRE like'*" & InputBox("Introduce Nombre: ") & "*' AND APELLIDOS like'*" & InputBox("Introduce Apellidos: ") & "*'"
On Error GoTo 0
End Sub
que pedira el nombre y el apellido del alumno que quiere buscar el informe.
Ahora bien quiero que en ese boton primero compruebe que hay informes con ese filtro y luego los imprima.
Gracias
Valora esta pregunta
0