AppIcon wird in 365 er Access nicht mehr gesetzt
sks
Gesendet: 30.11.24 15:23
Betreff: RE: AppIcon wird in 365 er Access nicht mehr gesetzt


Veteran

Beiträge: 140
10025
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
Top of the page Bottom of the page