Extreme Veteran
Beiträge: 573
 
| Hallo Stephan,
sks - 30.11.24 15:23
Const DB_Text As Long = 10
Zur Info, DB_Text ist eine DAO-Konstante aus DAO 2.5/3.5 gewesen, die heute noch verwendet werden kann, siehe
? DB_Text im Direktfenster
ergibt 10
[...]
If FileExist(AktVerz & "DokuWork.ico") Then
Setz mal auf die FileExist-Zeile einen Haltepunkt und schau, was in AktVerz steht.
intX = AddAppProperty("AppIcon", DB_Text, AktVerz & "DokuWork.ico")
CurrentDb.Properties("UseAppIconForFrmRpt") = 1
End If
Was gibt intX zurück?
-----
Gruss - Peter |
AppIcon wird in 365 er Access nicht mehr gesetzt