D13 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.