Database Title

[Ig]

Hi,
How can I get through VBA "Database Title" on the tab "Summary" of "Database
Properties" screen?
The same question is about "Project Name" on the "General" tab of "Project
Properties" screen.
Thanks

 

[Jeff Conrad]

I only have Access 97 in front of me at this moment, but this code works
in that version:

Dim dbs As DAO.Database
Dim strTitle As String

Set dbs = CurrentDb()

strTitle = dbs.Containers("Databases").Documents("SummaryInfo").Properties("Title")

' Print Title
Debug.Print strTitle

' Print Project Name
Debug.Print Application.GetOption("Project Name")

Set dbs = Nothing

 

[Ig]

it works on 2002 as well.
Thanks Jeff.

I only have Access 97 in front of me at this moment, but this code works
in that version:

Dim dbs As DAO.Database
Dim strTitle As String

Set dbs = CurrentDb()

strTitle =
dbs.Containers("Databases").Documents("SummaryInfo").Properties("Title")

' Print Title
Debug.Print strTitle

' Print Project Name
Debug.Print Application.GetOption("Project Name")

Set dbs = Nothing

 

[Jeff Conrad]

it works on 2002 as well.
Thanks Jeff.

Excellent, glad to help.