Ejemplos de acceso

Evitar la apertura de un informe si no hay datos para mostrar

Miércoles, 20 de mayo 2009

Podemos 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

Publicado en Uncategorized | 13 Comments »

Cómo prevenir una forma abierta si no hay registros para mostrar?

Sábado, 02 de mayo 2009

A veces es necesario para prevenir una forma abierta, si hay registros para mostrar, por ejemplo cuando se hace una consulta y no de registro no es obligatorio, no tienen por qué ser de forma abierta ya que no tenemos los datos para mostrar. Entonces, ¿qué tenemos que comprobar es si hay registros para mostrar y si no hay mostrará un mensaje de e impiden la forma abierta. ¿Cómo?

Es fácil de poner simplemente el código de abajo en las propiedades de formulario en el caso de 'abrir':

= 0 Then Si Form.RecordsetClone.RecordCount
MsgBox "No se encontraron registros.", VbExclamation, "Error!"
DoCmd.Close acForm, "encontrar los datos"
Exit Sub
End If

Para ver un ejemplo descargar: Prevenir Abrir formulario

Publicado en Ejemplos , los formularios , los módulos | 2 Comentarios »