global Database

[ben1988]

instead to do:

Dim db As Database
Set db= CurrentDb()

so much times

there is way do it one time for all the forms, modules.....? how?

thanks!

[jforbes]

I use this function. It works pretty well for me.

Public Function dbLocal(Optional bolCleanup As Boolean = False) As DAO.Database
  ' Source: http://stackoverflow.com/questions/1833746/ms-access-is-there-a-significant-overhead-when-using-currentdb-as-opposed-to-db
  ' This function started life based on a suggestion from
  '   Michael Kaplan in comp.databases.ms-access back in the early 2000s
  ' 2003/02/08 DWF added comments to explain it to myself!
  ' 2005/03/18 DWF changed to use Static variable instead
  ' uses GoTos instead of If/Then because:
  '  error of dbCurrent not being Nothing but dbCurrent being closed (3420)
  '  would then be jumping back into the middle of an If/Then statement
  On Error GoTo ErrHandler
    Static dbCurrent As DAO.Database
    Dim strTest As String
 
  If bolCleanup Then GoTo closeDB
 
retryDB:
    If dbCurrent Is Nothing Then
       Set dbCurrent = CurrentDb()
    End If
    ' now that we know the db variable is not Nothing, test if it's Open
    strTest = dbCurrent.Name
 
exitRoutine:
    Set dbLocal = dbCurrent
    Exit Function
 
closeDB:
    If Not (dbCurrent Is Nothing) Then
       'dbCurrent.close ' this never has any effect
       Set dbCurrent = Nothing
    End If
    GoTo exitRoutine
 
ErrHandler:
    Select Case Err.Number
      Case 3420 ' Object invalid or no longer set.
        Set dbCurrent = Nothing
        If Not bolCleanup Then
           Resume retryDB
        Else
           Resume closeDB
        End If
      Case Else
        MsgBox Err.Number & ": " & Err.Description, vbExclamation, "Error in dbLocal()"
        Resume exitRoutine
    End Select
End Function

Here are some examples of usage:

Public Function test() As Boolean
    On Error GoTo ErrorOut
 
    Dim sSQL As String
    Dim oRst As DAO.Recordset
 
    sSQL = "SELECT * FROM Something"
    Set oRst = dbLocal.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
    test = oRst.Count
End Function
 
Public Sub executeSQL(ByRef sSQL As String)
    On Error GoTo ErrorOut
    dbLocal.Execute sSQL, dbFailOnError + dbSeeChanges
ExitOut:
    Exit Sub
ErrorOut:
    Call msgBoxError("Could not execute SQL: " & vbCrLf & vbCrLf & Err.Description)
    Resume ExitOut
End Sub
 
Public Function getTableList() As String
    ' Gets a list of Tables, minus System Tables
    Dim oTD As DAO.TableDef
    For Each oTD In dbLocal.TableDefs
        If Not oTD.Name Like "MSys*" Then getTableList = getTableList & ";" & Chr(34) & oTD.Name & Chr(34)
    Next oTD
End Function