Access VBA教程:AccessError方法

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

expression.AccessError(ErrorNumber)

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

上页:Access VBA教程:AboutBox方法(快照查看器) 下页:Access VBA教程:AddMenu方法

Access VBA教程:AccessError方法

Access VBA教程:AddMenu方法 Access VBA教程:ApplyFilter方法
Access VBA教程:Beep方法 Access VBA教程:CancelEvent方法
Access VBA教程:Close方法 Access VBA教程:CopyObject方法
Access VBA教程:DeleteObject方法 Access VBA教程:DoMenuItem方法
Access VBA教程:FindNext方法 Access VBA教程:FindRecord方法
Access VBA教程:GoToControl方法 Access VBA教程:GoToRecord方法
Access VBA教程:Hourglass方法 Access VBA教程:Maximize方法
Access VBA教程:Minimize方法 Access VBA教程:MoveSize方法
Access VBA教程:OpenDataAccessPage方法 Access VBA教程:OpenDiagram方法
Access VBA教程:OpenForm方法 Access VBA教程:OpenModule方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号