ACC1x: Cannot Rollback in Transaction Without Closing Database |
Q93140
The information in this article applies to:
- Microsoft Access versions 1.0, 1.1
SYMPTOMS
A subroutine or a function contains a transaction process which calls a subroutine or function that dimensions and opens a database using the OpenDatabase method. When the subroutine or function exits, Microsoft Access implicitly closes the database (no Close method is called). When the subroutine or function attempts to execute the CommitTrans or Rollback statement, Microsoft Access displays the following message:
Commit or Rollback without BeginTrans.
CAUSE
When the called subroutine or function exits, Microsoft Access implicitly closes the database. Internally, the initial attempt to close the database fails because the database was opened in a transaction. Microsoft detects this error and performs an implicit transaction rollback, then it closes the database successfully.
RESOLUTION
To perform a Rollback in the called subroutine or function, you must first call the Close statement to close the open database.
STATUS
This behavior no longer occurs in Microsoft Access version 2.0.
MORE INFORMATION
Steps to Reproduce Behavior
Create the following module.
'************************************************************ 'Declarations section of the module. '************************************************************ Option Explicit '============================================================ 'The following Sub procedure starts a transaction, calls 'another sub procedure, then attempts to rollback. '============================================================ Sub Test1 BeginTrans Call Test2 Rollback End Sub '============================================================ 'The following Sub procedure sets a Database variable to 'the current database. '============================================================ Sub Test2 Dim MyDB as Database Set MyDB = CurrentDB() 'the database is implicitly closed on exit End Sub
- Compile the module.
In the Immediate window, enter Test1. Microsoft Access generates the following message:
Commit or Rollback without BeginTrans.
Perform the following four steps to demonstrate the resolution to this problem.
- Perform Step 1 above.
Edit the second function to add MyDB.Close, as follows.
'============================================================ 'The following Sub procedure will set a Database variable to 'the current database, and then close the database. '============================================================ Sub Test2 Dim MyDB as Database Set MyDB = CurrentDB() MyDB.Close End Sub
- Compile the module.
- In the Immediate window enter Test1. The Rollback works correctly because the code explicitly closes the database opened in the transaction.
Keywords : kbprg
Issue type : kbprb
Technology :
Last Reviewed: November 4, 2000 |