Access VBA教程:BeginBatchEdit事件

在窗体被激活,或最后一次批事务处理提交后,在首次更改(支持批更新的)窗体上的数据后,该事件发生。

Private Sub Form_BeginBatchEdit(Cancel As Integer)

Cancel   将该参数设为 True 会取消未决的更改,并因此取消批更新,因为不再有任何未决的更改。

说明

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

该事件类似于Dirty事件,但适用于整批记录,而不是单个记录。BeginBatchEdit事件在窗体和控件的对应 OnDirty事件发生之前发生。

在子窗体上编辑记录不会触发主窗体的该事件。

VBA示例

下面的示例显示了捕获 BeginBatchEdit事件的子例程的语法。


Private Sub Form_BeginBatchEdit(Cancel As Integer)
    Dim intResponse As Integer
    Dim strPrompt As String
    strPrompt = "Batch update about to begin. " _
        & "Do you wish to continue?"
    intResponse = MsgBox(strPrompt, vbYesNo)
    If intResponse = vbNo Then
        Cancel = True
    Else
        Cancel = False
    End If
End Sub

上页:Access VBA教程:BeforeUpdate事件 下页:Access VBA教程:Change事件

Access VBA教程:BeginBatchEdit事件

Access VBA教程:Change事件 Access VBA教程:Click事件
Access VBA教程:Close事件 Access VBA教程:CommandBeforeExecute事件
Access VBA教程:CommandChecked事件 Access VBA教程:CommandEnabled事件
Access VBA教程:CommandExecute事件 Access VBA教程:Current事件
Access VBA教程:DataChange事件 Access VBA教程:DataSetChange事件
Access VBA教程:DblClick事件 Access VBA教程:Deactivate事件
Access VBA教程:Delete事件 Access VBA教程:Dirty事件
Access VBA教程:Enter事件 Access VBA教程:Error事件
Access VBA教程:Exit事件 Access VBA教程:Filter事件
Access VBA教程:FirstPage、LastPage、NextPage、PrevPage事件(快照查看器) Access VBA教程:Format事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号