使用 AccessError 方法可 返回与 DAO (Microsoft Access 或数据访问对象) 字符串。
语法
表达式。AccessError (ErrorNumber)
expression:表示 Application 对象的变量。
参数
名称
|
必需/可选
|
数据类型
|
说明
|
ErrorNumber
|
必需
|
Variant
|
要对其返回说明性字符串的错误的编号。
|
返回值
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
备注
必须将错误捕获选项设置为"未处理错误时中断",代码必须在 VBA IDE 中运行。 可以在"VBA 工具"菜单上"选项"对话框的"常规"选项卡上设置此选项。