تغيير ايقونه برنامج الاكسس على سطح المكتب

[بلال اليامين]

السلام عليكم

اريد طريقة تغيير ايقونة الاكسس على سطح المكتب لقد حاولت ولم اسيطيع

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

لتغيير ايقونة النماذج والتقارير

CurrentDb.Properties("AppIcon") = "D:\N.ico"

ولتغيير ايقونة سطح المكتب لا بد اولا من انشاء اختصار على سطح المكتب للبرنامج

وهذه وظيفة الكود التالي

    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    Dim strDesktop As String
         strDesktop = WshShell.SpecialFolders("Desktop")
    Dim X As Object
    Set X = WshShell.CreateShortcut(strDesktop & "\Officena.lnk")
        X.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name
        X.WindowStyle = 1
        X.IconLocation = CurrentProject.Path & "\N.Ico"
        X.Description = "Officena"
        X.WorkingDirectory = strDesktop
        X.Save

تحياتي

تم تعديل أغسطس 3, 2020 بواسطه محمد أبوعبدالله

[بلال اليامين]

السلام عليكم ورحمة الله وبركاته
اريد تغيير ايقونه برنامج الاكسس على سطح المكتب
حاولت لكن دون جدوى طريق خيارات الاكسس تغير فقط النماذج والتقارير وليس البرنامج
امل تفيدوني في ذلك
وشكرا للجميع.

Desktop.zip

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تم الرد قبل ذلك على نفس الموضوع

تحياتي

[بلال اليامين]

اخي محمد جربت الكود وحاولت ولم اسطيع 

[alriashi]

ممكن مثال نطبق عليه

وشكرا

[بلال اليامين]

اليك البرنامج

111.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

11111.rar

تحياتي

[د.كاف يار]

اخي هذا برنامج كنت استخدمه في اصدار اكسس 2003

قد يفي بالغرض

IconChanger3[1].4.zip

[alriashi]

حلو البرنامج الله يجزاك خير استاذنا العزيز

[alriashi]

بارك الله فيكم ما قصرتوا 

الله يجزاكم كل خير