Application Title in Text Box of Report Header

[Phil-N]

Hi, I have several Databases that use the same reports. At this stage I have to manually change the title of each report to identify which site it is for, but wondered is it possible to have the "Application Title " (or filename) in say a text box? I have looked through the Expression Builder, but can't seem to find either filename or Application Title. I started using Access over 20 years ago and do it all through queries and properties, I have not used VBA or other coding.

[burt1215]

If you want to use VBA, here's how I would do it.

Application.CurrentProject.Name

This will result in the filename as a string with the .extension.
If you don't want the .extension, you could use something like this:

Dim strFileName As String
Dim intWhereIsThePeriod As Integer
Dim strFileNameWithoutExtension As String


strFileName = Application.CurrentProject.Name
intWhereIsThePeriod = InStr(strFileName, ".")
strFileNameWithoutExtension = Left(strFileName, intWhereIsThePeriod - 1)

The variable names are a little ridiculous, but it's to give you an idea of what they do.
From there, I would add this and trigger it to the loading of your report.

Me.txtReportHeader = strFileNameWithoutExtension

Where txtReportHeader is the name of the text box you want to fill with the name of your file.

If you have any questions about how you would implement this, let me know and I'll see if I can help out.

[raphaelbm]

You asked about "Application Title " (or filename) in say a text box...
I use the filename all the time to identify which database.


I make a Name field in the Property sheet calling it:
f-Project-Name-and-Version
where the Control Source is:
=Left([CurrentProject].[Name],InStrRev([CurrentProject].[Name],".")

That gives me filename up to the .extent part. I can then use it where I want...

Here is an example using it as a page footer: (With date and page numbers)
=Format(Date(),"ddd dd-mmm-yyyy") & "@" & [f-Project-Name-and-Version] & " Page " & [Page] & " of " & [Pages]

Hope that helps...
raphaelbm

[Welshgasman]

You asked about "Application Title " (or filename) in say a text box...
I use the filename all the time to identify which database.


I make a Name field in the Property sheet calling it:
f-Project-Name-and-Version
where the Control Source is:
=Left([CurrentProject].[Name],InStrRev([CurrentProject].[Name],".")

That gives me filename up to the .extent part. I can then use it where I want...

Here is an example using it as a page footer: (With date and page numbers)
=Format(Date(),"ddd dd-mmm-yyyy") & "@" & [f-Project-Name-and-Version] & " Page " & [Page] & " of " & [Pages]

Hope that helps...
raphaelbm

Nine year old thread?

[moke123]

Nine year old thread?

Hate when that happens.

Was gonna post a simple

x =  oFSO.GetBaseName(CurrentProject.Path) ' returns the filename without extension.

oFSO is a global self healing instance of FileSystemObject.

[June7]

raphaelbm, filename and application title and project name can all be completely different from each other.

From the Immediate Window:

?CurrentDb.Name
C:\Users\Administrator\June\LL\UmpiresVer2.accdb

?CurrentProject.FullName
C:\Users\Administrator\June\LL\UmpiresVer2.accdb

?CurrentProject.Name
UmpiresVer2.accdb

?CurrentDb.Properties("AppTitle")
UmpiresData

?Application.VBE.VBProjects(1).Name
Umpires