CurrentDb

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.