runtime error 3048

%3CLINGO-SUB%20id%3D%22%5C%26quot%3Blingo-sub-3135400%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3Eruntime%20error%203048%26lt%3B%5C%2Flingo-sub%26gt%3B%3CLINGO-BODY%20id%3D%22%5C%26quot%3Blingo-body-3135400%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3E%3CP%3EI've%20got%20error%20message%2C%20%22cannnot%20open%20any%20more%20databases.%22%20Thank%20you%20for%20help.%26lt%3B%5C%2FP%26gt%3B%26lt%3B%5C%2Flingo-body%26gt%3B%3CLINGO-LABS%20id%3D%22%5C%26quot%3Blingo-labs-3135400%5C%26quot%3B%22%20slang%3D%22%5C%26quot%3Ben-US%5C%26quot%3B%22%3E%3CLINGO-LABEL%3Eaccess%26lt%3B%5C%2Flingo-label%26gt%3B%26lt%3B%5C%2Flingo-labs%26gt%3B%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3C%2FLINGO-SUB%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3135400%22%20slang%3D%22en-US%22%3Eruntime%20error%203048%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3135400%22%20slang%3D%22en-US%22%3E%3CP%3EI've%20got%20error%20message%2C%20%22cannnot%20open%20any%20more%20databases.%22%20Thank%20you%20for%20help.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3135400%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3Eaccess%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

I've got error message, "cannnot open any more databases." Thank you for help.

3 Replies

Hi,

 

Read this support article.

 

Servus
Karl
************
Access News
Access DevCon

Some of my clients got the error and adding Trusted Locations for their FE & BE solved the problem of both the 3048 error and the .laccdb lock file not getting deleted. I didn't get the 3048 error until last night.
My installed version is:
Version 2201 (Build 14827.20198 Click-to-Run); 32-bit version of MS Office Professional Plus 2016

So looks like they fixed some and broke others.

For anyone interested, here's a quick way to see if you have the bug:

1. Create a new accdb
2. Create a table (Dual for me) with 1 Autonumber field.
3. Add one record
4. Insert a new module
5. Copy and paste the following code that creates a short recursive routine:


Option Compare Database
Option Explicit

 

Public Sub BugTest(Optional DbCount As Long = 1)
  On Error GoTo errHandler
  Dim rs As DAO.Recordset

 

  Set rs = CurrentDb.OpenRecordset("Select * from Dual", dbOpenDynaset)
  Debug.Print "Open Db count: " & DbCount
  If DbCount < 1000 Then BugTest DbCount + 1

 

ExitSub:
  If Not rs Is Nothing Then rs.Close
  Set rs = Nothing
  Exit Sub
errHandler:
  Debug.Print Err.Number, Err.Description
  Stop
  Resume
  GoTo ExitSub
End Sub

 

6. run BugTest procedure.

For me, the routine stops with the 3048 -Cannot open any more databases. after opening 252 (errors opening the 253rd recordset)

HI @CBPark 

 

Runtime Error: Code 3048 happens when Microsoft Access fails or crashes whilst it's running or due to the installation of the update.

Therefore, right now, the only reliable solution seems to be to go back to the earlier version of Microsoft Access.

You must temporarily disable Office updates to prevent Office from automatically installing the new update.

https://docs.microsoft.com/en-us/officeupdates/office-updates-msi 

 

I hope this helps.

 

Thanks,

Suyash Thomson