ACC2000 / 2003: Pfadname des Backend bestimmen

06/04/2008 - 19:00 von Michael Hessler | Report spam
Hallo,

wie kann ich unter ACC 2000 und 2003 den Pfadnamen des Backend
bestimmen?

In Formularen funktioniert:
Pfad = Mid$(verbundene_DB(), 1,
Len(verbundene_DB()) - Len(Pfad(verbundene_DB())))

mit:
Function verbundene_DB()
Dim s_Name As String
Dim dbs As Database
Dim I As Integer

Set dbs = CurrentDb
With dbs
I = 0
s_Name = ""
'Aus der tabledef-Eigenschaft der verknüpften Tabellen
wird der Datenbankname exstrahiert
Do Until (I > .TableDefs.count - 1) Or (s_Name <> "")
If (.TableDefs(I).Attributes And dbAttachedTable) Then
s_Name = .TableDefs(I).Connect
Else
I = I + 1
End If
Loop
End With
Set dbs = Nothing
If s_Name <> "" Then
I = InStr(s_Name, "=")
s_Name = Mid$(s_Name, I + 1, Len(s_Name) - I)
End If
verbundene_DB = s_Name
End Function



Ich hàtte es aber gerne in VisualBasic und Pfad() bzw. .path
klappt nicht.
Danke
Michael
 

Lesen sie die antworten

#1 Gunter Avenius
06/04/2008 - 19:17 | Warnen spam
Hallo Michael Hessler,

Michael Hessler schrieb folgendes:
wie kann ich unter ACC 2000 und 2003 den Pfadnamen des Backend
bestimmen?



CurrentDb.TableDefs("DeineTabelle").Connect

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK
Sa/So 12./13.04.2008 und Sa/So 19./20.04.2008

Ähnliche fragen