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.