Access - AYUDDAAAAAA

 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de carlos

RE:AYUDDAAAAAA

Publicado por carlos (24 intervenciones) el 26/04/2007 21:38:06
Yo lo mezclaria todo en el mismo sub:


Busco en la tabla o consulta del report lo que hay que introducir, es decir:
"NOMBRE like'*" & InputBox("Introduce Nombre: ") & "*' AND APELLIDOS like'*" & InputBox("Introduce Apellidos: ") & "*'"

2º si no hay datos...
MsgBox "No existen registros relacionados", vbInformation
Cancel = True
end sub ' >>>>para que no siga adelante

3º Imprimir el informe
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar