AccessError 方法

使用 AccessError 方法可以返回与 Microsoft Access 错误或 DAO 错误相关的说明性字符串。Variant 型。

expression   必需。返回“Applies To”列表中的一个对象的表达式。

ErrorNumber  必需 Variant 型。希望返回说明性字符串的错误编号。

说明

可以使用 AccessError 方法在 Microsoft Access 或 DAO 错误尚未发生时，返回与这些错误相关的说明性字符串。但该方法不能用于 ADO 错误。

使用 Visual Basic 的 Raise 方法可以引发 Visual Basic 错误。引发错误后，通过读取 Err 对象的 Description 属性即可确定其相关说明性字符串。

不能使用 Raise 方法引发 Microsoft Access 或 DAO 错误，但可以使用 AccessError 方法返回与这些错误相关的说明性字符串（无需实际生成这些错误）。

可以使用 AccessError 方法返回窗体 Error 事件中的说明性字符串。

如果已经发生 Microsoft Access 错误，那么可以通过使用 AccessError 方法或 Visual Basic Err 对象的 Description 属性返回说明性字符串。

示例

下面的函数将对所有有效的错误编号返回一个错误字符串：

注意 若要在 VBA IDE 中运行该代码，必须将错误捕获选项设为“遇到未处理的错误时中断”。可以在 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