Anweisung

CurrentDb nur einmal instanzieren.

Zur Vermeidung von

• Geschwindigkeitsproblem

Beschreibung

CurrentDb erzeugt jedesmal  eine neue Instanz der aktuellen DB. Da man aber meist mit der selben DB arbeitet, würde im Prinzip eine Instanz reichen.

Lösung von Michael Kaplan:

Private m_db As DAO.Database
Public Property Get CurrentDbC() As DAO.Database
    If (m_db Is Nothing) Then
        Set m_db = CurrentDb
    End If
    Set CurrentDbC = m_db
End Property

Anm.: Ein ähnliches Verhalten könnte man auch mittels DBEngine(0)(0) erzeugen.
Dies wird aber in der OH nicht empfohlen.