✔ [Acc2003/VBA] Text in Titelleiste ändern

[sheel]

Guten Morgen!

Der Titel sagt eigentlich eh schon alles:

Kann man mit VBA in Access 2003 das "Microsoft Access" in der Titelleiste ändern?
Oder zumindest was dazuhängen?

Hab da schon einiges gefunden, aber das funktioniert irgendwie nicht so recht...
Sind wahrscheinlich keine 3 Codezeilen, aber ich bin unfähig, draufzukommen

Wäre nett, wenn mir wer was funktionierendes posten könnte...so viel wird es wohl nicht sein

danke
Sheel

 

[Drogist]

Hallo sheel,

ich habe mal eine "Anleihe" bei der Access-Hilfe gemacht (F1 -> Tilelleiste) und bin dabei über diesen Code gestolpert:

Sub ChangeTitle()
    Dim obj As Object
    Const conPropNotFoundError = 3270
    
    On Error GoTo ErrorHandler
    ' Return Database object variable pointing to
    ' the current database.
    Set dbs = CurrentDb
    ' Change title bar.
    dbs.Properties!AppTitle = "Contacts Database"
    ' Update title bar on screen.
    Application.RefreshTitleBar
    Exit Sub
    
ErrorHandler:
    If Err.Number = conPropNotFoundError Then
        Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database")
        dbs.Properties.Append obj
    Else
        MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    End If
    Resume Next
End Sub

Vielleicht hilft es ja, bei mir hat es geklappt

 

[sheel]

Danke

Zu meiner "Verteidigung" muss ich noch sagen, dass ich die Access-Hilfe irgendwann einmal zerschossen habe, hab also da nicht nachgeschaut