Thema Datum  Von Nutzer Rating
Antwort
Rot Methode oder Datenobjekt nicht gefunden nach Update
 17.01.2015 08:26:36 verzweifelter
NotSolved
17.01.2015 17:41:44 Gast80796
NotSolved
18.01.2015 09:58:05 verzweifelter
Solved
18.01.2015 10:16:41 Gast61462
NotSolved

Ansicht des Beitrags:
Von:
verzweifelter		 Datum:
17.01.2015 08:26:36		 Views:
2226		 Rating:
     
Antwort:
  Ja
Thema:
Methode oder Datenobjekt nicht gefunden nach Update

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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ß

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Methode oder Datenobjekt nicht gefunden nach Update
 17.01.2015 08:26:36 verzweifelter
NotSolved
17.01.2015 17:41:44 Gast80796
NotSolved
18.01.2015 09:58:05 verzweifelter
Solved
18.01.2015 10:16:41 Gast61462
NotSolved