Retrieving the name of the DB in VBA

[chippyles]

This SQL command in VBA computes the user name, host name, time stamp and the task as the Form or Report name.

Answer this riddle...

Form or Report is to Me.Name as
Name of DB is to ???

I need to capture the name of the Db the person is using so I can differentiate the forms and reports.


DoCmd.SetWarnings False
DoCmd.RunSQL " INSERT INTO LOG_REPORT ( [DATE], [USER], HOST ,TASK )" & _
"SELECT now() AS [DATE], environ('username') AS [USER], environ('computername') AS HOST ,'" & Me.Name & "'"
DoCmd.SetWarnings True

 

[SkipVought]

Hi,

How about CurrentDB.Name?

Skip,
[sub]
[red]Be advised:[/red] Researchers have found another Descartes trueism, "Cogito ergo spud."
"I think; therefore, I YAM! [/sub]

 

[RoyVidar]

Versions 2000+

[tt]currentproject.name[/tt]

Roy-Vidar

 

[BobStubbs]

You can get to the database file name, and the name which you set in Application Title via the Tools ... Startup menu option.

CurrentProject.Name - returns the .mdb file name. Example:

MyDatabase.mdb

CurrentProject.Path - returns the path to the.mdb file. Example:

C:\Databases

CurrentProject.FullName - returns the path and file name. Example:

C:\Databases\MyDatabase.mdb

CurrentDb.Properties("AppTitle") - the name set in Tools ... Startup. Example:

My Example Database Version 1.0


I hope that this is useful.



Bob Stubbs