CurrentProject.Connection verursacht plötzlich Laufzeitfehler

[Tiffi1985]

Hallo,

gestern habe ich Project 2010 installiert. Seitdem funktionierten einige Programmteile meiner Access Datenbank (Access 2007) nicht mehr. Ich denke, es liegt irgendwie an den Verweisen, aber ich weiß nicht wieso/wo. Daher hoffe ich auf eure Hilfe.

Der Code lautet:

Code [Auswählen] Erweitern


Dim rst As New ADODB.Recordset
Dim conn As ADODB.Connection

   Set conn = CurrentProject.Connection

With rst
       .Open "tbl_SonderleistungenBuchungen", conn, adOpenKeyset, adLockOptimistic
       .AddNew
       
      [...]
                         
       .Update
   
       .Close
       
   End With
   
   Set rst = Nothing
    Set conn = Nothing


Und an diesem Set bleibt er mit dem Laufzeitfehler "Laufzeitfehler -2147418113: Die Methode 'Connection' für das Objekt xy ist fehlgeschlagen" hängen. Wieso? Was kann ich tun um das wieder zu reparieren?

Folgende Verweise sind gesetzt:
Visual Basic For Applications
Microsoft Access 12.0 Object Library
OLE Automation
Microsoft Outlook 12.o Object Library
Microsoft ActiveX Data Object 2.8 Library
Mircosoft Excel 12.0 Object Library
Microsoft DAO 3.6 Object Library
Microsoft Offce 12.0 Object Library (da XP installiert)
Microsoft Word 12.0 Object Library

[Hondo]

Hallo,
ich kann jetzt nicht sagen was das mit MS Project zu tun hat, aber den ADODB Connector hab ich so noch nie erstellt.

Im einfachsten fall geht das so:

Code [Auswählen] Erweitern

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = DeinConnectionString
cnn.Open

DeinConnectionString deklariere als String global und weise in einer initial-Prozedur deinen Access 2007 Connectionstring zu.
Wie der aussehen musst findest du auf der Seite http://www.connectionstrings.com/access-2007

Gruß Andreas

[database]

Hallo,

bzw.:

Dim rst As New ADODB.Recordset
Dim conn As ADODB.Connection

    Set conn = CurrentProject.Connection

With rst
        .Open "tbl_SonderleistungenBuchungen", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        .AddNew
       
       [...]
                         
        .Update
   
        .Close
       
    End With
   
    Set rst = Nothing
    Set conn = Nothing