Can I set Access Application Title programmatically?

[raphaelbm]

Can I set Access Application Title programmatically?


I would like to code =Left([CurrentProject].[Name],InStrRev([CurrentProject].[Name],".")-1)


That will give me the filename as the Title.


It is a pain having to type it manually for each new database.
Thanks for looking. Raphael

[moke123]

Pass the new title to this sub

Sub SetNewAppTitle(NewTitle As String)

    On Error GoTo SetNewAppTitle_Error
    
    CurrentDb.Properties("AppTitle") = NewTitle

    Application.RefreshTitleBar
    
Exit_Sub:
    Exit Sub

SetNewAppTitle_Error:

    If Err.Number = 3270 Then ' Property not found
        CurrentDb.Properties.Append CurrentDb.CreateProperty("AppTitle", dbText, NewTitle)
        Application.RefreshTitleBar
    Else
        MsgBox "Error setting application title: " & Err.Description, vbCritical
    End If
        
    Resume Exit_Sub
    
End Sub

[isladogs]

Just to explain part of Moke's code

The AppTitle property does not exist until it is created either in Options | Current Database or using code
For that reason, the code needs to trap for error 3270 which is triggered when the property doesn't exist.

The same applies to the AppIcon property.

[Welshgasman]

Supplies a solution in a 9 year old thread for same issue, then asks the question?

[June7]

The other thread was asking about pulling application title into a report header.

This one wants to assign title to the application.