Creación de mensajes fáciles de usar en su aplicación de base de datos de acceso puede ser más eficaz que la que muestra el mensaje de error predeterminado . En Visual Basic para Aplicaciones ( VBA) , use el "On Error GoTo " declaración a 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 sobre el error y, posiblemente, sobre la manera de arreglarlo. 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 en " módulos" para añadir un nuevo módulo de código
2

Crear un nuevo procedimiento sub : .

Sub Private createErrorMessage ()
< p > On Error GoTo Err_createErrorMessage :
3

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

myData dévil como secuencia

myData = " 1234567 "
4

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

myData = izquierda ( 0 , -1 )
5

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

Exit_createErrorMessage :

Exit Sub

Err_createErrorMessage :

MsgBox "Error: . longitud debe ser mayor que cero " , vbCritical

End Sub
6

Press "F5 " para ejecutar el procedimiento sub y ver la respuesta .