当用户使用“撤消所有记录”命令,放弃所有未决更改时,该事件发生。
Private Sub Form_UndoBatchEdit(Cancel As Integer)
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