Tools->Startup->Application_Title code reference

[jmodo]

I am trying to access this reference via code.

also- File->Database_Properties->(Summary_Tab)->Title if someone knows how?

Thanks!
-J

 

[CautionMP]

jmodo,
Popular question recently.

Here is what the Help file says:

[green]'Help file topic example [b]Database Properties Example[/b][/green]
[navy]Function[/navy] GetSummaryInfo(strPropName [navy]As String[/navy]) [navy]As String[/navy]
    [navy]Dim[/navy] dbs [navy]As[/navy] Database, cnt [navy]As[/navy] Container
    [navy]Dim Do[/navy]c [navy]As Do[/navy]cument, prp [navy]As[/navy] Property

    [green]' Property not found Error.[/green]
    Const conPropertyNotFound = 3270
    On [navy]Error Goto[/navy] GetSummary_Err
    [navy]Set[/navy] dbs = CurrentDb
    [navy]Set[/navy] cnt = dbs.Containers!Databases
    [navy]Set Do[/navy]c = cnt.Documents!SummaryInfo
    [navy]Do[/navy]c.Properties.Refresh
    GetSummaryInfo = [navy]Do[/navy]c.Properties(strPropName)

GetSummary_Bye:
    [navy]Exit Function[/navy]

GetSummary_Err:
    [navy]If[/navy] Err = conPropertyNotFound [navy]Then[/navy]
        [navy]Set[/navy] prp = [navy]Do[/navy]c.CreateProperty(strPropName, dbText, "None")
        [green]' AppEnd To collection.[/green]
        [navy]Do[/navy]c.Properties.App[navy]End[/navy] prp
        [navy]Resume[/navy]
    [navy]Else[/navy]
        [green]' Unknown Error.[/green]
        GetSummaryInfo = ""
        [navy]Resume[/navy] GetSummary_Bye
    [navy]End If[/navy]
[navy]End Function[/navy]

Note that these properties are not visible from Windows Explorer (at least in O2K SR-1). If your looking for that check here: Microsoft: Access Other topics Forum > Reset File Summary Title after Compact/Repair

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[Remou]

Or on one line:
CurrentDb.Containers("Databases").Documents("SummaryInfo").Properties("Title")