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ß