Ändern eines tabledef-Objekts .connect-Eigenschaft in VBA

Ich versuche, etwas zu tun, dass ich schon hundert mal, aber es plötzlich nicht mehr funktionieren. 

acc.AutomationSecurity = msoAutomationSecurityLow   'Remove Security Prompt
acc.OpenCurrentDatabase path & "Year " & Range("yr") & "\" & Range("yr") & Range("mo") & "\Year " & Range("yr") & Range("mo") & " GENERIC DB NAME.mdb", True

'update link
acc.CurrentDb.TableDefs("TABLE NAME").Connect = "MS Access;DATABASE=" & path & "Year " & Range("yr") & "\" & Range("yr") & Range("mo") & "\Year " & Range("yr") & Range("mo") & " OTHER DB.mdb"
acc.CurrentDb.TableDefs("TABLE NAME").RefreshLink

Ich weiß nicht, ob dies bezieht sich auf die Tatsache, dass wir kürzlich aktualisiert, um Sie Excel 2010, und die db ist immer noch ACCESS 2003, aber dies sollte eine einfache bit-code ausführen. Es passiert nichts, wenn ich den oben stehenden code ausführen. Die Datei öffnet sich der richtige Weg aber die Verbindungszeichenfolge nie zugewiesen bekommt, um die Tabelle def-Objekt, dh. Es läuft ohne erroring, aber die Tabelle ist nicht Verlinkung zu der neuen Datenbank. Ich habe mit der folgenden code, der funktioniert, und wir haben es genutzt, um rund um das Thema. Ich bin immer noch neugierig, warum kann ich nicht einen Wert zuweisen .connect-Eigenschaft im Stil " - Anwendung.currentdb.tabledef("TABELLE").verbinden', aber wenn ich weisen Sie die currentdb eine neue Datenbank-Objekt kann ich.

So, ich weiß nicht warum, aber wenn ich mit diesem funktioniert es

dim db as DAO.database
set db = acc.CurrentDb
db.TableDefs("TABLE NAME").Connect = "MS Access;DATABASE=" & path & "Year " & Range("yr") & "\" & Range("yr") & Range("mo") & "\Year " & Range("yr") & Range("mo") & " OTHER DB.mdb" 
db.TableDefs("TABLE NAME").RefreshLink

Vielen Dank für jede Hilfe können Sie zur Verfügung stellen.

Wo ist es aufgetreten? Was ist die Fehlermeldung?
Es nicht scheitern, es funktioniert einfach nicht, ändern Sie die connect-Eigenschaft.
Bitte aktualisieren Sie Ihre Frage, geben Sie uns eine genaue definition von "funktioniert nicht."
Ich habe aktualisiert es in einem Versuch, um präziser.

InformationsquelleAutor user1082270 | 2011-12-05

  1. 8

    Ich lief in ein ähnliches problem. Wenn Sie versuchen, tun dies direkt durch CurrentDb (d.h. CurrentDb.TableDefs("foo").Connect) nicht funktioniert und nicht einen Fehler auslösen.

    Der Grund ist: Jedes mal, wenn Sie beziehen sich auf CurrentDB es wird eine neue Instanz.

    In Ihre zweite Methode erstellt ein Datenbank-Objekt, das auf die CurrentDb und das ist deine zweite Methode funktioniert.

    Lange Geschichte kurz:
    Gut:

    Dim Db as Database
Set Db = CurrentDb
Db.TableDefs("foo").Connect = "New connection string"
Db.TableDefs("foo").RefreshLink

    Schlecht:

    CurrentDb.TableDefs("foo").Connect = "New connection string"
CurrentDb.TableDefs("foo").RefreshLink
    Jedes mal, wenn Sie beziehen sich auf CurrentDB ist es eine neue Instanz.

    InformationsquelleAutor Travis

Schreibe einen Kommentar