Åbne og lukke Dba
Jeg har en stor app med mange forme og tabellerI appen kalder jeg:
Public Sub OpenRecordset_Sub(SQL As String, Dba As Database, rs As Recordset)
Dba As Database, rs As Recordset
Set Dba = CurrentDb()
Set rs = Dba.OpenRecordset(SQL, dbOpenSnapshot)
end sub
.
. ( Koder såsom: rs.FindFirst "[LinieId]= , If Not rs.EOF osv...)
.
Public Sub CloseRecordset_Sub(Dba As Database, rs As Recordset)
rs.Close
Dba.Close
Set rs = Nothing
Set Dba = Nothing
end sub
Et stykke inde i App'en kan jeg få:
Fejl 3014 Der kan ikke åbnes flere tabeller
Jeg har måske 10-15 tabeller åbne
Jeg er sikker på jeg altid afslutter med Close alligevel får jeg ofte fejlen
Kan man på nogen måde modificere mine koder ovenfor så evt gamle åbne
tabeller lukkes effektivt inden nye åbnes