Change Application Title (1 Viewer)

[JohnPapa]

I thought this would have been a bit easier

I can change the application title using the following only if the Application Title is blank. If it is not blank then it does not change. Anybody knows why?

Dim db As Database
Set db = CurrentDb()
Dim newtitle
newtitle = "qwerty"
Set newtitle = db.CreateProperty("AppTitle", dbText, strNewTitle)
db.Properties.Append newtitle
Application.RefreshTitleBar

 

[spikepl]

So what does a function containing "create" in its function name do, you think?

 

[JohnPapa]

Nice one spikepl!!

Was missing the
db.Properties("AppTitle") = "New name"