通过

Report.Error 事件 (Access)

  • 项目

当报表具有焦点时，当 Microsoft Access 中生成运行时错误时，将发生 Error 事件。

语法

表达式。DataErr (错误，响应)

表达 一个代表 Report 对象的变量。

参数

名称 必需/可选 数据类型 说明
DataErr 必需 Integer 发生错误时 Err 对象返回的错误代码。 将 DataErr 参数与 Error 函数结合使用，将数字映射到相应的错误消息。
响应 必需 Integer 该设置确定是否显示错误消息。 Response参数可以是下列固有常量之一:
  • acDataErrContinue 忽略错误并继续，而不显示默认的 Microsoft Access 错误消息。 可以提供自定义错误消息来代替默认错误消息。
  • acDataErrDisplay (Default) 显示默认 Access 错误消息。

返回值

Nothing

注解

这包括 Access 数据库引擎错误，但不包括 Visual Basic 中的运行时错误或来自 ADO 的错误。

若要在发生此事件时运行宏或事件过程，请将 OnError 属性设置为宏的名称或 [事件过程]。

通过在发生 Error 事件时运行事件过程或宏，可以截获 Access 错误消息并显示一条自定义消息，该消息传达了应用程序的更具体含义。

示例

下面的示例指出了如何用自定义错误消息替代默认的错误消息。 当 Access 返回一条错误消息，指示它已找到重复的密钥 (错误代码 3022) 时，此事件过程会显示一条消息，为用户提供更多特定于应用程序的信息。

若要试用该示例，请将下面的事件过程添加到基于表（该表将唯一的雇员 ID 编号作为每条记录的键）的窗体中。

Private Sub Form_Error(DataErr As Integer, Response As Integer) 
    Const conDuplicateKey = 3022 
    Dim strMsg As String 
 
    If DataErr = conDuplicateKey Then 
        Response = acDataErrContinue 
        strMsg = "Each employee record must have a unique " _ 
            & "employee ID number. Please recheck your data." 
        MsgBox strMsg 
    End If 
End Sub

支持和反馈

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