Application.AccessError (Access)

You can use the AccessError method to return the descriptive string associated with a Microsoft Access or Data Access Objects (DAO) error.

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. After 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.

AccessError (ErrorNumber)

ErrorNumber: The number of the error for which you wish to return a descriptive string.

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