Compartir a través de

Evento Report.Error (Access)

  • Artículo

El evento Error se produce cuando se genera un error en tiempo de ejecución en Microsoft Access cuando un informe tiene el foco.

Sintaxis

expresión. Error (DataErr, Response)

Expresión Variable que representa un objeto Report .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
DataErr Obligatorio Integer Código de error devuelto por el objeto Err cuando se produce un error. Use el argumento DataErr con la función Error para asignar el número al mensaje de error correspondiente.
Respuesta Obligatorio Integer La configuración determina si se muestra o no un mensaje de error. El argumento Response puede ser una de las siguientes constantes intrínsecas:
  • acDataErrContinue Se omite el error y se continúa sin mostrar el mensaje de error de Microsoft Access predeterminado. Puede proporcionar un mensaje de error personalizado en lugar del predeterminado.
  • acDataErrDisplay (valor predeterminado) Muestra el mensaje de error de acceso predeterminado.

Valor devuelto

Nothing

Comentarios

Esto incluye errores del motor de base de datos de Access, pero no errores en tiempo de ejecución en Visual Basic o errores de ADO.

Para ejecutar una macro o un procedimiento de evento cuando se produzca este evento, establezca la propiedad OnError en el nombre de la macro o en [Procedimiento de evento].

Al ejecutar un procedimiento de evento o una macro cuando se produce un evento Error , puede interceptar un mensaje de error de Access y mostrar un mensaje personalizado que transmita un significado más específico para la aplicación.

Ejemplo:

En el ejemplo siguiente se muestra cómo se puede reemplazar un mensaje de error predeterminado por un mensaje de error personalizado. Cuando Access devuelve un mensaje de error que indica que ha encontrado una clave duplicada (código de error 3022), este procedimiento de evento muestra un mensaje que proporciona más información específica de la aplicación a los usuarios.

Para probar el ejemplo, agregue el siguiente procedimiento de evento a un formulario basado en una tabla con un Id. de empleado único como clave de cada registro.

Private Sub Form_Error(DataErr As Integer, Response As Integer) 
    Const conDuplicateKey = 3022 
    Dim strMsg As String 
 
    If DataErr = conDuplicateKey Then 
        Response = acDataErrContinue 
        strMsg = "Each employee record must have a unique " _ 
            & "employee ID number. Please recheck your data." 
        MsgBox strMsg 
    End If 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.