Gesendet: 26.01.16 15:49 Betreff: RE: Zu viele verwendete Ports bei Benutzung von DAO Recordsets
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