السلام عليكم اخواني الاعزاء
هذا كود تغير ايقونه الاكسس في وندوز 7
ولكن لايشتغل في وندوز 10
هل في احد عنده فكرة
Dim intX As Integer
Const DB_Text As Long = 10
' هنا اسم البرنامج اذا رغبت في تغييره
intX = AddAppProperty("AppTitle", DB_Text, "Tailor program")
intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.path & "\DATA\Scans\" & "Icon_001.ico")
intX = AddAppProperty("AppTitle", 10, "Tailor program")
intX = AddAppProperty("AppIcon", 10, IconPath)
CurrentDb.Properties("UseAppIconForFrmRpt") = 1
Application.RefreshTitleBar