Ejemplos de acceso

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