Hallo VBA Forengemeinschaft,
Seit gestern wurden einige Sicherheitsupdate bei meinem Office 2007 auf Win 7 32 Bit eingespielt.
Nun Funktioniert mein VBA Code nicht mehr. Scheint als wäre ein Problem mit dem Zugriff auf die Datenbank (Access).
Sobald auf die Datenbank zugegriffen wird kommt der Fehler Methode oder Datenobjekt nicht gefunden. Gearbeitet wurde mit Microsoft Office 3.6 DAO Object Library.
Habe die Vermutung dass sich dort was geändert hat. Auf einem Rechner mit XP läuft der Code noch. Hier ein Auszug daraus:
Dimensionierung der Globalvariablen als Recordset:
Global User As Recordset
Global User2 As Recordset
Global Search_User As Recordset
Global Mitarbeiter As Recordset
Global PU As Recordset
Global DB_check_PU As Recordset
Global Ferien As Recordset
Global DB_check_Ferien As Recordset
Global Urlaubsplan As Recordset
Global Vorbelegung As Recordset
Global User_auslesen As Recordset
Global User_online As Recordset
Global Zeiten As Recordset
Global Log_Planung As Recordset
Global Log_Eingabemaske As Recordset
Global Log_Mitarbeiter As Recordset
Global Log_Sonstiges As Recordset
Hier tritt der erste Fehler auf:
rivate Sub Workbook_BeforeClose(Cancel As Boolean)
If login = True Then
init_Arbeitsmappe = True
login = False
userid = 0
Userlevel = 0
init_kalender_persoenlich = False
init_kalender_planung = False
init_mitarbeiter_persoenlich = False
init_mitarbeiter_planung = False
Tabelle4.b_login.Caption = "LOGIN"
Tabelle8.b_login.Caption = "LOGIN"
Range("AB3").value = "GAST"
Pruefe_Rechte
Tabelle4.Activate
End If
ActiveWorkbook.Saved = True
End Sub
und zwar bei Tabelle4.b_login.Caption = "LOGIN"
evtl. weiß jemand rat
gruß
|