就在 Microsoft Access 示意服务器将批事务处理中的所有更改提交给服务器上的基础数据之前,该事件发生。
Private Sub Form_BeforeCommitTransaction(Cancel As Integer, Connection As ADODB.Connection)
Cancel 将该属性设为 True 会取消批事务处理的提交、保留窗体上所有未决的更改,并回滚服务器上的批事务处理。
Connection 发生批事务处理的连接。
该事件应用于其“批更新”属性设为“是”的 Access 项目窗体。
该事件发生时,所有更改均已发生,但无错误,而且 Access 已准备好进行永久更改。在此对数据的任何更改都是在批事务处理内部进行的。
下面的示例显示了捕获 BeforeCommitTransaction 事件的子例程的语法。
Private Sub Form_BeforeCommitTransaction( _ Cancel As Integer, Connection As ADODB.Connection)
Dim intResponse As Integer Dim strPrompt As String strPrompt = "Access is about to commit the batch transaction on " _ & Connection.Name & ". Do you wish to continue?" intResponse = MsgBox(strPrompt, vbYesNo) If intResponse = vbNo Then Cancel = True Else Cancel = False End If
End Sub