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
Hallo,
vermutlich:
Verweis auf DAO3.6 Library ist nicht (mehr) gesetzt und
....rsWH As DAO.Recordset, rsPD As DAO.Recordset
fehlt.
Danke,
lag an der MS DAO 3.6 Object Library ;D
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