MS Access VBA Error 3211 "The database engine could not lock table", (1 Viewer)

[lhooker]

I have a macro that's giving me a 3211 error. How can I find out which form, table, or query in the macro is open ?

 

[The_Doc_Man]

What was the macro trying to do at the time?

Finding an open form involves recognizing that the Forms collection has certain properties. If you can get to a place where you can open the Immediate window, then do a debug.print on some things, you might be able to tell.

Debug.Print Forms.Count will tell you how many forms are open. Remember that Access collections start counting at 0, so...
Debug.Print Forms(0).Name will tell you the first name.
Debug.Print Forms(1).Name will tell you the second name and so on.

Recordsets are in the database engine. You can try this.

Debug.Print Database.Recordsets.Count will tell you how many are open at the moment.
Debug.Print Database.Recordsets(0).Name will tell you the name of the first recordset, OR if it was an SQL statement, the first 256 characters of the SQL. Again, counting starts from 0.

Debug.Print Database.Recordsets(0).Connect will tell you the connection string for the first recordset if it points to external database files or engines.

 

[isladogs]

AFAIAA, you cannot use Debug.Print in an Access macro though you could put a message box after each step

However, Access Error 3211 is:

The database engine could not lock table (YOUR TABLE NAME HERE) because it is already in use by another person or process.

If that still isn't clear enough, then run your macro using single step to identify where exactly it fails

 

[tvanstiphout]

What was the macro trying to do at the time?

Finding an open form involves recognizing that the Forms collection has certain properties. If you can get to a place where you can open the Immediate window, then do a debug.print on some things, you might be able to tell.

Debug.Print Forms.Count will tell you how many forms are open. Remember that Access collections start counting at 0, so...
Debug.Print Forms(0).Name will tell you the first name.
Debug.Print Forms(1).Name will tell you the second name and so on.

Recordsets are in the database engine. You can try this.

Debug.Print Database.Recordsets.Count will tell you how many are open at the moment.
Debug.Print Database.Recordsets(0).Name will tell you the name of the first recordset, OR if it was an SQL statement, the first 256 characters of the SQL. Again, counting starts from 0.

Debug.Print Database.Recordsets(0).Connect will tell you the connection string for the first recordset if it points to external database files or engines.

@TheDocMan: you probably meant:
Debug.Print CurrentDB.Recordsets.Count
(or replace CurrentDB with whatever Database variable you already have in place)

 

[The_Doc_Man]

Your correction is noted, Tom. Had the idea right, but not the proper object. But it WAS kind of late when I replied to that.