Método Application.AccessError (Access)

Use el método AccessError para devolver la cadena descriptiva asociada a un error de Microsoft Access o de objetos de acceso a datos (DAO).

Sintaxis

más sencilla.AccessError (ErrorNumber)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Número de error	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 puede usarlo para errores de ADO.

Utilice el método Raise de Visual Basic para generar un error de Visual Basic. Después de generar 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 dentro del evento de 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.