CurrentDb.Properties refreshing in current session 1

[zevw]

Hi!

You can set the value of the application Title and Icon which is usually set in the Tools ====> Startup, with the following code

CurrentDb.Properties("AppTitle").Value = "My Program"
CurrentDb.Properties("AppIcon").Value = "C:\MyProg.ico"

I was wondering if these values can only be set for the next session,or can I run some code which will immediately refresh the title and icon.

i.e.
if the user decides to call their progran the company name rather than "My Program" and they want to see it on the Application Title (caption) now, how can that be done?

Thanks in advance

 

[TheAceMan1]

How are ya zevw . . . . .

[purple]Try this . . . should work:[/purple]

[blue]Public Sub SetAppTitleBar(txtTitle As String, IconPath As String)
   Dim db As DAO.Database, prp As DAO.Property
   Dim prpName As String, prpText As String, Idx As Integer

On Error GoTo GotErr
   Set db = CurrentDb
   
   Idx = 1
   prpName = "AppTitle"
   db.Properties(prpName) = txtTitle [green]'Attempt to assign[/green]
   
   Idx = 2
   prpName = "AppIcon"
   db.Properties(prpName) = IconPath [green]'Attempt to assign[/green]
   
   Application.RefreshTitleBar [green]'Update On Screen![/green]

Exit Sub

GotErr:
   If Err.Number = 3270 Then [green]'property doesn't exist![/green]
      prpText = Choose(Idx, txtTitle, IconPath)
      Set prp = db.CreateProperty(prpName, dbText, prpText)
      db.Properties.Append prp [green]'New property set![/green]
   Else
      MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
   End If
   Resume Next
End Sub[/blue]

Typical call to the routine would be:

[blue]   SetAppTitleBar("[purple][b]TitleBarText[/b][/purple]","[purple][b]Icon Path & FileName[/b][/purple]")[/blue]

[blue]Cheers! . . .[/blue]

See Ya! . . . . . .

 

[zevw]

Hi TheAceMan1:

Thanks, for your help.

It works great!!!