Access VBA教程:UndoBatchEdit事件

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

Private Sub Form_UndoBatchEdit(Cancel As Integer)

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

说明

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

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

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

VBA示例

下面的示例说明了捕获 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

上页:Access VBA教程:Undo事件 下页:Access VBA教程:Unload事件

Access VBA教程:UndoBatchEdit事件

Access VBA教程:Unload事件 Access VBA教程:Updated事件
Access VBA教程:ViewChange事件 Access VBA教程:Command函数
Access VBA教程:DAvg函数 Access VBA教程:DCount函数
Access VBA教程:DDE函数 Access VBA教程:DDEInitiate函数
Access VBA教程:DDERequest函数 Access VBA教程:DDESend函数
Access VBA教程:DFirst、DLast函数 Access VBA教程:不同字符串值的不同格式(Format函数)
Access VBA教程:DLookup函数 Access VBA教程:DMin、DMax函数
Access VBA教程:DStDev、DStDevP函数 Access VBA教程:DSum函数
Access VBA教程:DVar、DVarP函数 Access VBA教程:EuroConvert函数
Access VBA教程:Eval函数 Access VBA教程:GUIDFromString函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号