Application Title 1

[rgbanse]

From the menu bar I can set the Application Title that will show up in the Toolbar by using Tools/Startup - Application Title: Is there a way to set this value using VBA?
Thx in advance
RGB

 

[oharab]

This code will do it

Call ApplicationTitle("YourNewTitle&quot

'***Start***
Sub ApplicationTitle(strTitle As String)
Dim intX As Integer
intX = AddAppProperty("Apptitle", dbText, strTitle)
RefreshTitleBar
End Sub

Function AddAppProperty(strName As String, varType As Variant, varValue As
Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue

AddAppProperty = True

AddProp_Bye:
Exit Function

AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType, varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
'***End***

 

[rgbanse]

Way Cool !!!!
thank yo so very much
RGB