This documentation is archived and is not being maintained.

Application.AccessError Method

Office 2007
You can use the AccessError method to return the descriptive string associated with a Microsoft Access or DAO error.

Syntax

expression.AccessError(ErrorNumber)

expression   A variable that represents an Application object.

Parameters

NameRequired/OptionalData TypeDescription
ErrorNumberRequiredVariantThe number of the error for which you wish to return a descriptive string.

Return Value
Variant

Remarks

You can use the AccessError method to return the descriptive string associated with a Microsoft Access or DAO error when the error hasn't actually occurred, but you cannot use it for ADO errors.

You can use the Visual Basic Raise method to raise a Visual Basic error. Once you've raised the error, you can determine its associated descriptive string by reading the Description property of the Err object.

You can't use the Raise method to raise a Microsoft Access or DAO error. However, you can use the AccessError method to return the descriptive string associated with these errors, without having to generate the error.

You can use the AccessError method to return a descriptive string from within a form's Error event.

If the Microsoft Access error has occurred, you can return the descriptive string by using either the AccessError method or the Description property of the Visual Basic Err object.

Example

The following function returns an error string for any valid error number:

Bb237746.vs_note(en-us,office.12).gif  Note
You must have your error trapping options set to Break on Unhandled Errors for the code to run in the VBA IDE. You can set this option on the General tab of the Options dialog found on the VBA Tools menu.
Visual Basic for Applications
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



Show: