Looking for DAO CommitTrans example...

[sabavno]

Please if anybody has an example of the transaction using DAO, share it with me.

I am copying two huge tables and want to be able to rollback the Delete or Insert statements in case something happens during the process of Inserting or Deleting.

Please help

Thanks

 

[FancyPrairie]

Below is an example using DAO. Check On-line Help (BeginTrans), there are several examples:

Function abc()

    Dim wsp As DAO.Workspace
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset

    On error goto ErrHandler

    Set wsp = DBEngine.Workspaces(0)   ' Get default Workspace.
    Set dbs = CurrentDB
	' Open table.
    Set rst = dbs.OpenRecordset("Employees", dbOpenTable)

    wsp.BeginTrans	' Start of transaction.
    rst.MoveFirst
    Do Until rst.EOF
        'do something here
    Loop

    If MsgBox("Save all changes?", vbQuestion + vbYesNo, _
		" Save Changes") = YES Then
        wsp.CommitTrans	' Commit changes.
    Else
        wsp.Rollback	' Undo changes.
    End If

ExitProcedure:

    Exit Function

ErrHandler:

    MsgBox err.description
    if (bolBeginTrans) then
       wsp.Rollback
       bolBeginTrans = false
    End if

    Resume ExitProcedure
End Function