Bugs: Error 3014 - Can't Open Any More Tables

[madhukar_sreeramoju]

Hi All,

I am getting the error "Bugs: Error 3014 - Can't Open Any More Tables" at the below highlighted code.


main_query = Right(main_query, Len(main_query) - 5)
Form_PersonenÜbersicht.Filter = main_query
Form_PersonenÜbersicht.FilterOn = True
Form_PersonenÜbersicht.Requery
Exit Sub

This error is not getting at the starting of the execution. But it is occurring after 20-30 min working on this application.

Basically i am doing filtering on access tables fields on Access Form which will yield some records and they are shown on the other form.

I have gone through the below link
access.mvps.org/access/bugs/bugs0010.htm

Thanks
Madhukar Sreeramoju

 

[Mihail]

Of course that I can't be sure but:
1) Check in your code all statements that open a database then ensure that this databases are closed as soon as the procedure finish to work with. (DB.Close : Set DB=Nothing)
2) Use the Object Dependency tool in order to discover some cycles in yours queries.

 

[madhukar_sreeramoju]

Hi Mihail,

Thanks for your reply.

But i am not using any object to make them null.
Each field of the form are binded with the table.

When the user starts typing in any of the field of this form, we are generating accordingly in the other form using "Filter" Method.

Please let me know if you require any more questions.

Thanks
Madhukar

 

[Mihail]

So, see the second point in my first post.
Or your main_query is based on other queries that is based on other queries that is based .... and a lot from this subqueries open tables or you have cycles in yours queries.
But the second possibility have huge chances than the first one.

So check if you have something like this:
Q1 based on Q2 based on Q3 ..... Based on Qk Based on Q1
Q1, Q2, ... Qk are queries.

 

[madhukar_sreeramoju]

Hi Mihail,

Thanks for the reply.

I have used the following code to close all the queries, tables opened.

Sub close_all_queries()

Dim qry As DAO.QueryDef
For Each qry In CurrentDb.QueryDefs
On Error Resume Next
DoCmd.Close acQuery, qry.Name, acSaveYes
Next
Dim tbl As DAO.TableDef
For Each tbl In CurrentDb.TableDefs
On Error Resume Next
DoCmd.Close acTable, tbl.Name, acSaveYes
Next

End Sub

Still i am getting the same error. Can you suggest any more to resolve it.

Thanks
Madhukar

 

[Mihail]

If you have verified to not have cycles in queries... sorry, no more ideas.
Be aware ! You can have queries as combos or listboxes or subforms row sources.

 

[madhukar_sreeramoju]

Thanks Mihail!