时　间:2022-09-14 19:59:57
作　者:smileyoufu   ID：1784  城市：成都
摘　要:使用 AccessError 方法可 返回与 DAO (Microsoft Access 或数据访问对象) 字符串。
正　文:

使用 AccessError 方法可 返回与 DAO (Microsoft Access 或数据访问对象) 字符串。

语法

表达式。AccessError (ErrorNumber)

expression：表示 Application 对象的变量。

参数

返回值

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 对象的属性返回的描述性字符串。

示例

以下函数返回任何有效错误号的错误字符串。

Function ErrorString(ByVal lngError As Long) As String
    Const conAppError = "应用程序定义或对象定义的错误"
    On Error Resume Next
    Err.Raise lngError
    If Err.Description = conAppError Then
        ErrorString = AccessError(lngError)
    ElseIf Err.Description = vbNullString Then
        MsgBox "没有与此号码关联的错误字符串  "
    Else
        ErrorString = Err.Description
    End If
End Function