Insert Filename on Form

[laman]

I would like to have the current database filename show up in a textbox on a form. Any ideas?

Thanks.

 

[petermeachem]

Dim MyDB As Database
Dim Temp As String


Set MyDB = CurrentDb()
Temp = MyDB.Name

This will give you the full path and the database name (this is from Access 97 dao)

To get the mdb name


L = 1
lSlash = 1
Do Until L = 0
L = InStr(L, Temp, "\&quot
If L <> 0 Then
lSlash = L
L = L + 1
End If
Loop

print Left$(Temp, lSlash) gives the path
D:\utils
print right$(temp,len(temp)-lslash) gives the mdb
Time and Billing.mdb
Peter Meachem
peter@accuflight.com