Jump to content
أوفيسنا

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


Go to solution Solved by د.كاف يار,

Recommended Posts

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

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

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

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

تحياتي

Edited by محمد أبوعبدالله
  • Like 2
Link to post
Share on other sites

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

Desktop.zip

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...