全部显示

UndoBatchEdit 事件

当用户使用“撤消所有记录”命令，放弃所有未决更改时，该事件发生。

Cancel   将该参数设为 True 可以取消撤消操作，并保留窗体上的所有未决更改。

说明

该事件应用于其“批更新”属性设为 True 的 Access 项目窗体。

该事件类似于 Undo 事件，但适用于整批记录而不是单个记录。对于窗体和控件，在与最近一次数据更改相对应的 Undo 事件之后，该事件发生。

窗体的 Undo 事件仅针对最后编辑的行发生。类似地，即便在窗体上执行撤消操作时可能会使不止一个控件的更改被放弃，也只有相关控件的最近一次 Undo 事件发生。

示例

下面的示例说明了捕获 UndoBatchEdit 事件的子程序的语法。

Private Sub Form_UndoBatchEdit(Cancel As Integer)
    Dim intResponse As Integer
    Dim strPrompt As String

    strPrompt = "Access is about to discard all pending changes. " _
        & "Do you wish to continue?"

    intResponse = MsgBox(strPrompt, vbYesNo)

    If intResponse = vbNo Then
        Cancel = True
    Else
        Cancel = False
    End If
End Sub