Option Compare Database   'Verwenden der Datenbank-Sortierreihenfolge beim Vergleich von Zeichenfolgen.


'-----------------------------------------------------------------------------
' Gibt den kompletten Pfad des Verzeichnis aus
' in dem die Datenbankdatei .mdb liegt.
'-----------------------------------------------------------------------------
' getestet mit Access 2.0
' (c) by Dirk Burkamp , burkamp@poboxes.com, 1997
' Teil der deutschsprachigen Access FAQ www.ping.de\sites\ise\faq\access.htm
'-----------------------------------------------------------------------------
Function getdbpfad () ' Gibt den Pfad des Datenbankverzeichnis zurueck

Dim db As Database
Dim GesamtPfad As String
Dim i As Integer

Set db = CurrentDB()
GesamtPfad = db.Name   ' Das ist der komplette Name
i = Len(GesamtPfad)
Do Until Mid$(GesamtPfad, i, 1) = Chr$(92) ' Den kompletten Pfad durchsuchen
    i = i - 1
Loop
getdbpfad = Left$(GesamtPfad, i) ' Und den Rest zurueckgeben

End Function