Alex;

Thanks.  I did notice that, but too late!  My issue right now is that I have
a second-level subroutine that performs it's duties on one of the two
recordsets.  That subroutine performs the open, the update and the close.
So when I return from that subroutine, the ResordSet is already closed.  If
I had to do the commit before the close, I would have to make other
changes --- and that subroutine is called from about 15 other places within
the application.  But there are only three places within the entire
application where I need to perform the StartTrans and CommitTrans.

So I'm really hoping I can do the commit after the close!

Bob.

Yes.  Test it yourself:

'----- start of example code -----
Sub TestTransaction()

   Dim ws As DAO.Workspace
   Dim db As DAO.Database
   Dim rs As DAO.Recordset

   Set ws = Application.DBEngine.Workspaces(0)
   Set db = ws.Databases(0)

   ws.BeginTrans

   Set rs = db.OpenRecordset("Table1")

   ' Note: Table1 contains these fields:
   '        ID (autonumber)
   '        Description (text)
   '        Modified (date/time)

   rs.AddNew
   rs!Description = "Added inside transaction"
   rs!Modified = Now()
   rs.Update

   rs.Close
   Set rs = Nothing
   Set db = Nothing

   If MsgBox("Commit?", vbYesNo) = vbYes Then
       ws.CommitTrans
   Else
       ws.Rollback
   End If

End Sub

'----- end of example code -----