In Access 2007 Typen unverträglic. Zuvor in AC 2003 keine Prob.

[Knatterkopf]

Hallo,

verstehe nicht warum plötzlich dieser Code nicht funktioniert, bzw. eine Fehlermeldung "Typen unverträglich" hierbei springt?!

Dim Control1 As String, Control2 As String, DB As DAO.Database, rsWH As Recordset, rsPD As Recordset
Dim counter As Integer, controlref As String
counter = 0
controlref = Referenzpfad
Set DB = CurrentDb
Set rsWH = CurrentDb.OpenRecordset("Select * from TAB_worked_hours")
Set rsPD = CurrentDb.OpenRecordset("Select * from TAB_Personal")

jmd. eine Ahnung??
Freu mich über Hilfe!

Lg
Adrian

[DF6GL]

Hallo,

vermutlich:

Verweis auf DAO3.6 Library ist nicht (mehr) gesetzt und

....rsWH As DAO.Recordset, rsPD As DAO.Recordset

fehlt.

[Knatterkopf]

Danke,
lag an der MS DAO 3.6 Object Library

hat sich irgendwie nicht mit der "MS Office 12.0 Access Database engine Object Library" vertragen...
Hab diese rausgenommen und DAO 3.6 rein!
jetzt funzt alles!

Danke & Lg