Regular
Beiträge: 86
Ort: Saarland | Hi,
currentdb ist eine Funktion, die bei jedem Aufruf ein Objekt erzeugt
vielleicht hilft es wenn Du diese Funktion CurrentdbC statt Currentdb verwendest:
Private m_DaoDB As DAO.Database
Public Property Get CurrentDbC() As DAO.Database
'Singleton-Pattern
If (m_DaoDB Is Nothing) Then Set m_DaoDB = CurrentDb()
Set CurrentDbC = m_DaoDB
End Property
viel Erfolg
Wilo
|
Zu viele verwendete Ports bei Benutzung von DAO Recordsets