declaraties voor gesplitste database

[DukeOfEarl]

database gesplitst en sindsdien werken de modules niet meer (voor de splitsing werkten ze feilloos).
hieronder een voorbeeld van de declaraties.

Option Compare Database
Option Explicit
Dim dbase As Database
Dim Opnames As Recordset
Public Function Residenten()
On Error GoTo Residenten_err
Set dbase = CurrentDb
Set Opnames = dbase.OpenRecordset("tbl-Intakes2014", dbOpenTable)

what's wrong??

mvg,
Duke of Earl

 

[OctaFish]

Waarom je een database object gebruikt snap ik niet helemaal (je bent overigens niet de enige ) maar je kunt inderdaad niet naar een Table object verwijzen. Dat moet een Dynaset zijn. Dus dit:

    Set Opnames = Current.OpenRecordset("tBag", type:=dbOpenDynaset)

 

[DukeOfEarl]

bedankt Octafish
ik zet het draadje op opgelost