PDA

Vollständige Version anzeigen : Pfad einer geöffneten DB anzeigen


Gerd G.
30.09.2002, 19:34
Hallo Leute,

wie kann ich mir mit VBA in einer 97er DB den aktuellen Pfad der von mir geöffneten Datenbank anzeigen lassen?

Herzlichen Dank für eure Hilfe

Gerd

Köbi
30.09.2002, 19:39
Grüezi Gerd

Pfad und Name der Db:
CurrentDb.Name

nur Pfad:
Left(CurrentDb.Name,Len(CurrentDb.Name)-Len(Dir(CurrentDb.Name)))

nur Name:
Dir(CurrentDb.Name)

TommyK
30.09.2002, 19:40
Hallo Gerd,

mit folgender Funktion:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>
<span class="TOKEN">Function</span> aktVerz() <span class="TOKEN">As</span> <span class="TOKEN">String</span> <span class="REM">' bestimmt Datenbank-Verzeichnis</span>
<span class="TOKEN">Dim</span> db <span class="TOKEN">As</span> <span class="TOKEN">Database</span>
<span class="TOKEN">Dim</span> verz$, i%, Z$
<span class="TOKEN">Set</span> db = CurrentDb
verz = db.Name
i = Len(verz)
<span class="TOKEN">Do</span> <span class="TOKEN">While</span> Z <> "\"
i = i - 1
Z = Mid$(verz, i, 1)
<span class="TOKEN">Loop</span>
aktVerz = Left$(verz, i)
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

Gruss Tommy

Schnobi
16.10.2002, 14:34
Super! Ich hab mir da ein abgekotzt mit left und right, und ihr packt da in eine so kurze Version! Ich danke euch! :top: :p :idee: