File name and path on Report Footer 1

[RobertGardiner]

I want to put the File name and path into a report footer, in Excel =Cell("Filename&quot will cause it to display the full path and the File name.

I want to do this in an Access Report ???

 

[striker83716]

Create a module an paste the following;

Function DbName() As String
Set db = DbEngine(0)(0)
DbName = db.Name
Set db = Nothing
End Function


Then set the control source of your report textbox to "=DbName()" Open your report and you should have the results you desire.
Note: You can use this sontrol source any where you like in your database

Good Luck

Rob

 

[RobertGardiner]

It came back with variable not defined it was refering to "db"

Does the fact I'm using Access97 have an impact?

 

[striker83716]

Probably
Try this

Function DbName() As String
Dim db as database
Set db = DbEngine(0)(0)
DbName = db.Name
Set db = Nothing
End Function

 

[RobertGardiner]

Thanks that works realy cool

I often wonder why valuable features are missing from access, things like rounding numbers random number generator and the file name path.

Thanks again