Método Application.AccessError (Access)
Use el método AccessError para devolver la cadena descriptiva asociada a un error de Microsoft Access o Data Access Objects (DAO).
Sintaxis
expresión. AccessError (ErrorNumber)
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| ErrorNumber | Obligatorio | Variant | Número de error para el que desea devolver una cadena descriptiva. |
Valor devuelto
Variant
Comentarios
Use el método AccessError para devolver la cadena descriptiva asociada a un error de Microsoft Access o DAO cuando el error no se haya producido realmente, pero no se puede usar para errores de ADO.
Use el método Raise de Visual Basic para generar un error de Visual Basic. Una vez que haya generado el error, puede determinar su cadena descriptiva asociada leyendo la propiedad Description del objeto Err .
No puede usar el método Raise para elevar un Microsoft Access o DAO error. Sin embargo, puede usar el método AccessError para devolver la cadena descriptiva asociada con estos errores, sin tener que generar el error.
Use el método AccessError para devolver una cadena descriptiva desde el evento Error de un formulario.
Si se ha producido el error de Microsoft Access, puede devolver la cadena descriptiva usando el método AccessError o la propiedad Description del objeto Err de Visual Basic.
Ejemplo:
La función siguiente devuelve una cadena de error para cualquier número de error válido.
Nota:
Debe tener las opciones de captura de errores establecidas en Interrumpir en errores no controlados para que el código se ejecute en el IDE de VBA. Puede establecer esta opción en la pestaña General del cuadro de diálogo Opciones que se encuentra en el menú Herramientas de VBA.
Function ErrorString(ByVal lngError As Long) As String
Const conAppError = "Application-defined or " & _
"object-defined error"
On Error Resume Next
Err.Raise lngError
If Err.Description = conAppError Then
ErrorString = AccessError(lngError)
ElseIf Err.Description = vbNullString Then
MsgBox "No error string associated with this number."
Else
ErrorString = Err.Description
End If
End Function
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.