Dynamische Verknüpfung von Tabellen in VBA

Question

Ich versuche Tabellen zum hinteren Ende in Access 2010 beim Start einer Verknüpfung zu machen,

Hier ist der Code:

dbs.TableDefs(intLoop - 1).Connect = ";DATABASE=" & strBack & strBackEnd 
Debug.Print (dbs.TableDefs(intLoop - 1).Connect) 
dbs.TableDefs(intLoop - 1).RefreshLink 

jetzt die connect auf eine Datei Das C: oder D: Laufwerk hängt vom PC-Setup ab. Aber anstatt sich mit der Datei zu verbinden, öffnet sich das System-DNS-Auswahlfenster.

Irgendwelche Hinweise, warum? Der Pfad ist gültig, die Datenbank ist gültig.

Answer 1

In einem Kommentar, der Sie erklären:

Die Datenbank, die eine Mischung aus lokalen Tabellen hat, verknüpfte Dateien mdb und Links zu SQLServer.

Sie mit dieser Mischung durch Prüfen der .Connect Eigenschaft jedes TableDef und die Änderung nur solche, die sich Links zu anderen Access-Datenbank umgehen kann.

Dim dbs As DAO.Database 
Dim tdf As DAO.TableDef 

Set dbs = CurrentDb 
For Each tdf In dbs.TableDefs 
    With tdf 
     If .Connect Like ";DATABASE=*" Then 
      .Connect = ";DATABASE=" & strBack & strBackEnd 
      .RefreshLink 
     End If 
    End With 
Next 

Dieser Vorschlag geht davon aus den Verbindungen existieren bereits und Sie versuchen, nur ihre Verbindungseigenschaften zu verändern. Wenn Sie die Verknüpfungen von Grund auf neu erstellen müssen, fügen Sie eine lokale Tabelle mit den Informationen für jede verknüpfte Tabelle hinzu und steuern Sie die Linkerstellung anhand dieser Informationen.