Cómo crear un mensaje de error en Access 2007

Creación de mensajes fáciles de usar en su aplicación de base de datos Access puede ser más efectiva que mostrar el mensaje de error predeterminado. En Visual Basic para Aplicaciones (VBA), utilice la instrucción "On Error GoTo" para capturar los errores y dirigir el flujo de procedimiento para la ubicación de las declaraciones de gestión de errores. Crear un mensaje de error descriptivo mediante un cuadro de mensaje que informa al usuario acerca del error y, posiblemente, en la forma de solucionarlo.

Instrucciones

1 Haga clic en "Herramientas de base de datos" y luego "Visual Basic" para abrir el editor de Microsoft Visual Basic. Haga clic en el menú "Insertar", luego "módulo" para añadir un nuevo módulo de código.

2 Crear un nuevo procedimiento de substitución:

Private Sub createErrorMessage ()

On Error GoTo Err_createErrorMessage:

3 Crear una variable de cadena que va a utilizar para generar un error:

Dim como secuencia myData

myData = "1234567"

4 Agregue el código siguiente para generar un error al añadir "-1" a la propiedad longitud de la función de "izquierda":

myData = Izquierda (0, -1)

5 Escriba el siguiente código para capturar el error y crear un mensaje de error que informa al usuario sobre el error:

Exit_createErrorMessage:

Exit Sub

Err_createErrorMessage:

MsgBox "Error: Length needs to be greater than zero.", vbCritical

End Sub

6 Pulse la tecla "F5" para ejecutar el procedimiento sub y ver la respuesta.