Feedback by UserVoice

I suggest you ...

Limits are reached - if I open one more form: Error 3048: Cannot open any more databases

I have 2 reports and 1 form open. Each of theses has complex data sources (with many joins, subqueries...). If I open an fourth report - I get the error message.

I think the limits are to low. Please upgrade them.

1 vote
Vote
Sign in
Check!
(thinking…)
Reset
or sign in with
  • facebook
  • google
    Password icon
    Signed in as (Sign out)
    You have left! (?) (thinking…)
    Peter shared this idea  ·   ·  Flag idea as inappropriate…  ·  Admin →

    1 comment

    Sign in
    Check!
    (thinking…)
    Reset
    or sign in with
    • facebook
    • google
      Password icon
      Signed in as (Sign out)
      Submitting...
      • Anonymous commented  ·   ·  Flag as inappropriate

        to test the problem, run the function with an open table
        then with others ...

        Public Function MaxOpenDatabase(Optional plngLevel As Integer = 1) As Integer
        Dim db As DAO.Database

        On Error GoTo ErrorHandler

        Set db = CurrentDb()
        ' Appel récursif
        plngLevel = MaxOpenDatabase(plngLevel + 1)
        ' Sort de récursivité

        EndSub:
        Set db = Nothing
        MaxOpenDatabase = plngLevel
        Exit Function

        ErrorHandler:

        If Err.Number = 3048 Then
        ' Cannot open any more databases.
        ElseIf Err.Number = 3014 Then
        ' Cannot open any more tables.
        End If
        GoTo EndSub

        End Function

      Feedback and Knowledge Base