Veteran
Beiträge: 140
 
| Hallo Peter,
die Titelbezeichnung wird bei Öffnen des StartForms gesetzt (open event) :
Dim intX As Integer
Const DB_Text As Long = 10
If DLookup("Variante", "tblLizenzDaten") = "Makler-Hausverwaltung" Then
ProgrammNameAktuell = "DokuWork®Hausverwaltung " & 2023 & " ( " & Format(Date, "dddd, dd. mmmm yyyy") & " )"
ElseIf DLookup("Variante", "tblLizenzDaten") = "Architekt" Then
ProgrammNameAktuell = "DokuWork®Architekt " & 2023 & " ( " & Format(Date, "dddd, dd. mmmm yyyy") & " )"
ElseIf DLookup("Variante", "tblLizenzDaten") = "Online-Portal" Then
ProgrammNameAktuell = "Online-Portal" & " ( " & Format(Date, "dddd, dd. mmmm yyyy") & " )"
ElseIf DLookup("Variante", "tblLizenzDaten") = "KFZ" Then
ProgrammNameAktuell = "DokuWork®KFZ " & 2023 & " - Bundesverband freier KFZ-Importeure e.V. "
Else
ProgrammNameAktuell = "DokuWork® " & 2023 & " ( " & Format(Date, "dddd, dd. mmmm yyyy") & " )"
End If
intX = AddAppProperty("AppTitle", DB_Text, ProgrammNameAktuell)
If FileExist(AktVerz & "DokuWork.ico") Then
intX = AddAppProperty("AppIcon", DB_Text, AktVerz & "DokuWork.ico")
CurrentDb.Properties("UseAppIconForFrmRpt") = 1
End If
Application.RefreshTitleBar
Mit Access 2010 gestartet wird das Icon korrekt angezeigt. Das Build der verwendeten Access 365 lautet : Version 2410 Build 18129.20158 click & run.
Grüße
Stephan
Edit: Die Function 'AddAppProperty' ist die im Eingangsbeitrag verlinkte Version, die von MS bereitgestellt ist.
Edited by sks 30.11.24 14:41
|
