Office: Pfad für verknüpfte Tabellen per VBA ändern

hallo,

ich habe das Problem das meine Anwendung aus einem Client und einem Serverteil besteht. das ist eigentlich noch kein problem sondern so gewollt :P jedenfalls würde ich gerne den pfad an dem die servertabellen (.mdb) liegen über ein formular ändern. normalerweise macht man das über extras-datenbank diesntprogramme-tabellenverknüpfungs manager.

wäre nett wenn mir jemand sagen könnte ob das möglich ist oder nicht.

gruß

:)

 

Natürlich kannst Du das machen. Ist sogar sehr komfortabel möglich.

Vorschlag. Du machst einen Button im Formular. Die dahinterliegende Funktion lässt den Anwender einen Dateiauswahldialog machen und verknüpft dann die Tabellen.

Bei www.kurt-aus-kienitz.de gibt es sogar einen Vorschlag so etwas vollautomatisch zu machen (ohne Dateiauswahldialog).

Ich suche mal mein Beispiel heraus und poste es hier, wenn Du es willst.

Ich habe gerade bei Kurt nochmal nachgesehen. Er erklärt das alles so schön, da benötigst Du mein Beispiel nicht. Unter KnowHow / Access / Verknüpfungen aktualisieren steht alles

 

oh ja super. das ganze ist für die admin oberfläche geplant. eine datei auswahl wäre nicht schlecht. das nächste problem was mir dabei gerade in den sinn kam ist aber, das der pfad bei allen clients geändert werden muss wenn sich der server teil ändert.
wäre echt nett wenn du mir ein beispiel posten könntest. ich werd schon irgendwas hinbasteln *Smilie


danke nochmal

 

Wie schon gesagt: Kurt erklärt alles, auch die Sache mit dem Auswahldialog.

 

Hallo Omnikron,

anbei ein Beispiel für Relink Frontend und Backend.

 

danke euch beiden, so werd ichs packen *Smilie

 

Hallo, ja das geht:

brauchst eine Tabelle (habe sie "Pfad" genannt)
mit zwei Textfeldern Pfadangabe, Dateiname, vielleicht noch ein ID-Feld
Ja/Nein Feld "Selektiert", ein Textfeld AnzeigeDatenbank

in dieser Tabelle trägst du alle möglichen Zugriffspfade ein, vergiß nicht im Feld Pfadangabe am Schluss noch einen \ dazuzuschreiben.


dann ein Formular mit einem Kombifeld auf Anzeige Datenbank, nach Aktualisierung beim Kombifeld folgende Funktion aufrufen:

(Habe untenstehende Funktionen teils aus Access-Hilfe, teils selbst zusammengebastelt...)

PWD(Passwort)-Parameter ist optional



Public Function tp_verknuepfen()

Dim datenbasis As Database
Dim Pfad As Recordset
Dim Pfadangabe As String
Dim Dateiname As String
Dim DateinameSekundaer As String
Dim Verknuepfung As TableDef
Dim Tabellendurchlauf As TableDef
Dim x As Long

Set datenbasis = CurrentDb
Set Pfad = datenbasis.OpenRecordset("Pfad")
Pfad.Index = "PrimaryKey"
Do While Not Pfad.EOF
Pfad.Edit
Pfad!Selektiert = False
Pfad.Update
Pfad.MoveNext
Loop
Pfad.Seek "=", Forms![DatenQuelleSelektion]![KombiDatenbank]
If Pfad.NoMatch Then
MsgBox "möglicherweise Programmfehler!"
Else
Pfad.Edit
Pfad!Selektiert = True
Pfad.Update
Pfadangabe = Pfad!Pfadangabe
Dateiname = Pfad!Dateiname
For Each Tabellendurchlauf In datenbasis.TableDefs
If Len(Tabellendurchlauf.Connect) > 9 Then
For x = 1 To Len(Tabellendurchlauf.Connect) - 9
If Mid(Tabellendurchlauf.Connect, x, 9) = ";DATABASE" And Tabellendurchlauf.Name "Pfad" Then
Set Verknuepfung = datenbasis.TableDefs(Tabellendurchlauf.Name)
Verknuepfung.Connect = ";DATABASE=" & Pfadangabe & Dateiname & " ;PWD=haltwerda"
Verknuepfung.RefreshLink
Exit For
End If
Next x
End If
Next Tabellendurchlauf
End If
Pfad.Close
MsgBox "Datenquelle geändert."
End Function

Public Function tp_aktuelle_Verknüpfung()
Dim datenbasis As Database
Dim Pfad As Recordset
Set datenbasis = CurrentDb
Set Pfad = datenbasis.OpenRecordset("Pfad")
Pfad.MoveFirst
Do While Not Pfad.EOF
If Pfad!Selektiert Then
tp_aktuelle_Verknüpfung = Pfad!VerknüpfungsNummer
Exit Do
End If
Pfad.MoveNext
Loop
End Function

Public Function Aktueller_Pfad()
Dim datenbasis As Database
Dim Pfad As Recordset
Set datenbasis = CurrentDb
Set Pfad = datenbasis.OpenRecordset("Pfad")
Pfad.MoveFirst
Do While Not Pfad.EOF
If Pfad!Selektiert Then
Aktueller_Pfad = Pfad!Pfadangabe
Exit Do
End If
Pfad.MoveNext
Loop
End Function


*************************************************************


Viele Grüße

Thomas