Office: (Office 2003) tabellen neu verknüpfen

hallo,

ich habe eine Datenbank, welche ich oft zwischen mehreren Rechnern hin und her transferiere. Die Daten Tabellen sind in einer anderen Datenbank, welche auf dem jeweiligen Rechner liegt und über Verknüpfungen eingebunden.

Wie kann ich mit VBA den Pfad der Verknüpfung neu festlegen?

:)

 

schau mal hier: http://www.dbwiki.de/wiki.php?title=...n_des_Backends

 

super, danke!

(verdammt viel code)

 

hallo serna,

es muss gar nicht so kompliziert sein, wenn du auf jedem rechner ms-access installiert hast, gibt es im menü Extras im bereich Datenbank-Dienstprogramme den Tabellenverknüpfungs-Manager. der funktioniert ganz ohne code.

zum anderen habe ich den basic-verknüpfungscode ein wenig entschlackt. der folgende code setzt voraus, dass sich das backend im gleichen verzeichnis befindet, wie das frontend und der name der backenddatei ist fest verdrahtet - das kann man aber leicht ändern:

Public Sub relinkTables()
' Datentabellen neu einbinden
' Das Backend muss sich im aktuellen Datenbankverzeichnis befinden
Dim oDb As DAO.Database
Dim oTd As DAO.TableDef
Dim sPath As String
Dim sTableName As String
Dim i As Integer

' Fehlerbehandlung einschalten
On Error GoTo relinkTables_Err

' Datenbankpfad festlegen
sPath = CurrentProject.Path
If Right(sPath, 1) "\" Then
sPath = sPath & "\"
End If
' Link auf aktuelle Datenbank setzen
Set oDb = CurrentDb()
' Alle Datentabellen durchlaufen
For i = 0 To oDb.TableDefs.Count - 1
' Verweis auf aktuelle Tabelle setzen
Set oTd = oDb.TableDefs(i)
' alle Systemtabellen übergehen
If UCase(Left(oTd.Name, 4)) "MSYS" Then
' Tabelle neu verlinken
oTd.Connect = ";DATABASE=" & sPath & "DbName_BE.mdb"
oTd.RefreshLink
End If
Next i
' Datenbank und Table-Objekte löschen
Set oDb = Nothing
Set otb = Nothing
' Meldung ausgeben
MsgBox "Die Datentabellen wurden erfolgreich verknüpft!", _
vbOKOnly + vbInformation, "Datentabellen verknüpfen"
' Sub verlassen
Exit Sub
relinkTables_Err:
MsgBox "Beim Verknüpfen der Tabellen ist der folgende Fehler aufgetreten:" & _
Chr(13) & Err.Description, vbOKOnly + vbCritical, "Datentabellen verknüpfen"
' Datenbank und Table-Objekte löschen
Set oDb = Nothing
Set otb = Nothing
End Sub

vielleicht hilft dir der code?

gruß

helmut

 

Danke,

eigendlich ist die fülle des Codes aber relativ egal, hauptsache es funzt.
Ich war halt nur ein weng verwundert *Smilie

Grüße

 

Hallo

Merci für all den Code. Leider kann obiger Code für mein Problem nicht verwendet werden und auch der Tabellenverknüpfungs-Manager funktioniert nicht!

Problem siehe:
http://ms-office-forum.net/forum/sho...d.php?t=191075 #9

Irgendwelche Ideen?