Use transaction : Transaction « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Transaction

Use transaction

 

Sub TestTransaction()
    Dim cnConnection As New ADODB.Connection
    Dim cmdCommand As New ADODB.Command
    Set cnConnection = CurrentProject.Connection
    cmdCommand.ActiveConnection = cnConnection
    
    On Error GoTo HandleError
    cnConnection.BeginTrans
    cmdCommand.CommandText = "UPDATE tblContacts SET FirstName = 'Test' WHERE ContactId = 1"
    cmdCommand.Execute
    cmdCommand.CommandText = "UPDATE tblContacts SET ContactId = 'A' WHERE ContactId = 1"
    cmdCommand.Execute
    cnConnection.CommitTrans
    Exit Sub
    HandleError:
        cnConnection.RollbackTrans
        MsgBox "An error occurred: " & Err.Description
End Sub

 

Related examples in the same category