Application.AccessError 方法 (Access)

使用 AccessError 方法可返回与 Microsoft Access 或数据访问对象关联的描述性字符串， (DAO) 错误。

语法

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

示例

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

注意

必须将错误捕获选项设置为“ 在未处理的错误时中断” ，代码才能在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。