Evitar la apertura de un informe si no hay datos para mostrar
Miércoles, 20 de mayo 2009Podemos prevenir un informe abierto si no hay datos para mostrar, y para ello se utilizan dos formas, dependiendo de la versión de Access:
1 - Todas las versiones de Access
Coloque el código de abajo en las propiedades del informe, "que facilite" el evento
Utilice el evento de Habilitación (Activar) Informe:
Private Sub Report_Activate ()
Si DCont ("*", Me.RecordSource) = 0 entonces
MsgBox "No hay registros para mostrar" vbDefaultButton1, "Error!"
AcReport DoCmd.Close ", nombre del informe"
End If
End Sub
2 - Desde la versión 7 (Access 95), se añadió el caso de 'si no hay datos', entonces podemos urilizar el siguiente código:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "No hay datos en el informe.", VbInformation, "Error!"
Cancelar = True
End Sub
Para ver correr descargar el ejemplo: impedir que el informe de apertura
