Pfad zum Backend der verknüpften Tabellen ermitteln

Und hier eine Funktion, die bei eingebundenen Access-Tabellen den Pfad zur Herkunfts-Datenbank zurückgibt. Beim Auslesen des Pfades spielt es keine Rolle, ob auf die Herkunftsdatenbank zugegriffen werden kann oder nicht.

Code:

Function TabellenHerkunftsDB(TableName As String)   '------------------------------------------------- ' Funktion, die für eingebundene Tabellen die ' Herkunfts-Datenbank zuückgibt '-------------------------------------------------   On Error GoTo Fehler   Dim db As Database Dim pf As String   Set db = CurrentDb()   pf = db.TableDefs(TableName).Connect TabellenHerkunftsDB = Right(pf, Len(pf) - _ (InStr(1, pf, "DATABASE=") + 8))   Ende: Exit Function   Fehler: If Err = 5 Then TabellenHerkunftsDB = "Interne Tabelle!" Resume Ende End If MsgBox Err.Description, 16, "Fehler"   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!