在窗体被激活,或最后一次批事务处理提交后,在首次更改(支持批更新的)窗体上的数据后,该事件发生。
Private Sub Form_BeginBatchEdit(Cancel As Integer)
Cancel 将该参数设为 True 会取消未决的更改,并因此取消批更新,因为不再有任何未决的更改。
该事件应用于其“批更新”属性设为“是”的 Access 项目窗体。
该事件类似于 Dirty 事件,但适用于整批记录,而不是单个记录。BeginBatchEdit 事件在窗体和控件的对应 OnDirty 事件发生之前发生。
在子窗体上编辑记录不会触发主窗体的该事件。
下面的示例显示了捕获 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