Veteran
Beiträge: 140
 
| Hallo Peter,
der Pfad passt (habe ich geprüft), zumal das Icon in der 2010 er Version korrekt angezeigt wird. IntX gibt einen Leerwert aus (nicht null und nicht "")
Auch der ursprüngliche Code zur Anzeige der Icons funktioniert in der 365 er nicht mehr.
Weiteres Beispiel (so habe ich das vor dem Fehler verwendet und dann noch zusätzlich mit der von Microsoft vorgeschlagenen Variante getestet):
Dim DB As DAO.Database, Pr As Property
Dim Pfad As String
Set DB = CurrentDb()
Pfad = Application.CurrentProject.Path & "\Prog\DOWviewer.ico"
If FileExist(Pfad) Then
On Error GoTo err2
DB.Properties("AppIcon") = Pfad ' Eigenschaft wird geändert
End If
DB.Properties("AppTitle") = "Novalis® Document-Editor"
RefreshTitleBar
err1:
Exit Sub
err2:
If Err = 3270 Then ' Eigenschaft noch nicht vorhanden
Set Pr = DB.CreateProperty("AppIcon", dbText, Pfad)
DB.Properties.Append Pr ' Eigenschaft wird angehängt
Resume Next
Else
MsgBox "Unbekannter Fehler (IconSetzen)"
Resume err1
End If
Viele Grüße
Stephan |
