How to Put File Name in a Text Box

[cterjesen]

Can someone tell me how to put the filename (the name of the database) in a textbox in a form or in a report?

I want this name in the report to change when I copy the database over with a new name.

Thanks!

 

[timwangTM]

It works to use CurrentProject property of Application object.

Surpose FileName, FilePath, FileFullName are all textboxes. Compose your codes like following:

FileName.Text = Application.CurrentProject.Name
FilePath.Text = Application.CurrentProject.Path
FullName.Text = Application.CurrentProject.FullName

Tim

 

[cterjesen]

Thanks, this works great.

When I use the Name choice I get the database name with a ".mdb" extension on the end. Is there any way to eliminate the application extension?

 

[timwangTM]

It's easy. Just use VB functions: LEFT(FileName, LEN(FileName)-4).

Tim