More transaction headache

[Clunietp]

You would use begintrans and rollback when you are making multiple changes to the database. (multiple EDIT --> UPDATEs)

When you only need to make a single change, use .EDIT, and use .CANCELUPDATE when you need to cancel changes, or update to commit them.

Example using DAO:

    'declare objects
    Dim db As Database
    Dim rs As Recordset
    
    
    'get db/rs
    Set db = DBEngine.OpenDatabase("Nwind.mdb")
    Set rs = db.OpenRecordset("Select * from Customers")
    
    
    'BEGIN TRANSACTION
    DBEngine.BeginTrans
    
    
    'SHOW YOU THE INITIAL VALUE
    MsgBox rs.Fields(1).Value
    
    
    'ASSIGN NEW NAME TO FIELD
    rs.Edit
    rs.Fields(1).Value = "NewName"
    rs.Update
    
    
    'SHOWS YOU THAT THE UPDATE WAS SUCCESSFUL
    MsgBox rs.Fields(1).Value
    
    
    'CANCEL ALL CHANGES SINCE BEGINTRANS
    'EVEN THOUGH WE UPDATED SUCCESSFULLY
    DBEngine.Rollback
    
    
    'DISPLAY INITIAL VALUE
    'NOTICE THAT IT IS BACK TO
    'WHAT WE STARTED WITH
    MsgBox rs.Fields(1).Value

[matthieu]

I have program with a structure like this.

I have workspace defined

One button called edit

One button called cancel

Code of edit-button : Workspace.BeginTrans

Code of cancel-button : WorkSpace.Rollback


However when i first press the edit-button and then the cancel-button i get a error-message that there was no begintrans.

How is this possible ?
Please help this puzzled boy.