Public Sub TransactionDemo()
On Error GoTo tran_Err

    DAO.DBEngine.BeginTrans    
    CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('New banana delivery')", dbFailOnError
    CurrentDb.Execute "UPDATE tblInfo SET InfoText = 'Banana count: 2983' WHERE ID = 6 ", dbFailOnError
    CurrentDb.Execute "DELETE FROM tblTemp", dbFailOnError
    DAO.DBEngine.CommitTrans
    
Exit Sub
    
tran_Err:
    DAO.DBEngine.Rollback
    MsgBox "Transaction failed. Error: " & Err.Description

End Sub

CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('New banana delivery')", dbFailOnError
CurrentDb.Execute "UPDATE tblInfo SET InfoText = 'Banana count: 2983' WHERE ID = 6 ", dbFailOnError
CurrentDb.Execute "DELETE FROM tblTemp", dbFailOnError

DAO.DBEngine.BeginTrans

DAO.DBEngine.CommitTrans

tran_Err:
    DAO.DBEngine.Rollback

CurrentDb.Execute ..............................., dbFailOnError

Private Sub btnBeginEdit_Click()
    DBEngine.BeginTrans
End Sub

Private Sub btnSaveChanges_Click()
    DBEngine.CommitTrans
End Sub

Private Sub btnUndoChanges_Click()
    DBEngine.Rollback
End Sub

Private Sub Form_Current()
    ' loading the child records for the current master record
    Set Me.subActorRatings.Form.Recordset = _
        CurrentDb.OpenRecordset("SELECT * FROM tblActorRatings WHERE ActorId=" & Me!ActorId)

    ' Setting the correct default value for new records
    Me.subActorRatings.Form.Controls("txtActorIdHidden").DefaultValue = Me!ActorId
End Sub

Private Sub Form_Load()
    Set Me.Recordset = CurrentDb.OpenRecordset("SELECT * FROM tblActors")
End Sub

DAO.DBEngine.BeginTrans
CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('" & "New banana delivery" & "')", dbFailOnError
DBEngine.rollback