jet error 3048

[JB]

I am building an access app using the usual front_end.mdb - back_end.mdb
model. As the app has grown, I have run into a problem that results in jet
error 3048 when I try to open lots of forms with multiple subforms, list
boxes, etc. The error text says "Cannot open any more databases" but since I
am only using 2 databses(.mdbs), that can't really be the problem. I am
using workgroup security and all the queries are run under owners permission,
qry = CurrentDb.QueryDefs(..) etc There are no explicit opendatabase types
of commands in the code. I presume that this error has something to do with
too many list boxes or bound subforms or ... Does anyone know anything about
the actual limits built into Jet or have any experience with how to
workaround this limitation?

 

[Ken Snell \(MVP\)]

When you use CurrentDb as you are, I believe ACCESS creates a new "database
object" so that is why you're seeing this error.

Instead, declare a DAO.Database object and set it to the CurrentDb. Then use
that object.

Dim dbs As DAO.Database
Set dbs = CurrentDb
' code here
dbs.Close
Set dbs = Nothing

 

[JB]

Thanks for the reply. I will give that a try. Silly of me to think that
CurrentDb would just return a reference the current db instead of whipping up
a new one.