تغيير ايقونة الواجه الامامية لقاعدة بيانات تم تقسيمها

[ahmad_mustafa]

السلام عليكم 

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

ولكم الشكر

[عبد الله قدور]

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

بالنسبة لي انا استخدم هذه الطريقة

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

 

[ahmad_mustafa]

اخي عبد الله قدور انا اريد ان ارسل الواجهة الامامية لاكثرمستخدم  مباشرة بأيكونة غير ايكون الاكسسز

[Moosak]

وعليكم السلام أخي أحمد 🙂 

شاهد طريقتي في عمل أيقونة سطح المكتب هنا :

ويوجد كذلك لدي كود VBA لعمل اختصار للبرنامج في سطح المكتب .. إن شئت أرسلته لك 🙂 

تم تعديل نوفمبر 1, 2022 بواسطه Moosak

[Moosak]

 

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

Public Function CreateShortCut(strTargetFileFullPath As String, strShortCutName As String, strIconPath As String)
    'strTargetFileFullPath  : Sorce File                    Like : "D:\DomnFunBuldr.accdb"
    'strShortCutName        : Wanted Name for the ShortCut  Like : "Moosak"
    'strIconPath            : Icon Full Path                Like : "D:\MyIcon.ico"
    Dim oWSH As Object
    Dim oShortcut As Object
    Dim sPathDeskTop As String
    Set oWSH = CreateObject("WScript.Shell")
    sPathDeskTop = oWSH.SpecialFolders("Desktop")
    
    strShortCutName = strShortCutName & ".lnk"
    
    Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName)
    With oShortcut
        .IconLocation = strIconPath
        .TargetPath = strTargetFileFullPath
        .Save
    End With
    Set oWSH = Nothing
End Function

'===================================(Testing)
Sub TestCreateShortCut()

Call CreateShortCut("D:\DomnFunBuldr.accdb", "MoosakAp", "D:\MyIcon.ico")

End Sub

 

[ahmad_mustafa]

السلام عليكم  اخي Moosak   

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

 

[Moosak]

53 دقائق مضت, ahmad_mustafa said:

واما الطريقة الثانية مافهمت اين يوضع الكود محتاج شرحها بارك الله فيك

وعليك السلام ورحمة الله أخي أحمد 🙂 

أخي العزيز يمكنك وضع كود إنشاء الأيقونة عند تشغيل البرنامج مثلا .. عند حدث فتح أول نموذج ( على سبيل المثال )

الكود سيحتاج منك أن تخبره (مكان ملف الأكسس الأصلي ) + ( أسم الاختصار الذي سينشئه في سطح المكتب ) + ( مكان صورة الأيقونة التي ستضعها ) ..

وهي مشروحة في الكود مع ضرب مثال عليها .. هكذا :

    'strTargetFileFullPath  : Sorce File                    Like : "D:\DomnFunBuldr.accdb"
    'strShortCutName        : Wanted Name for the ShortCut  Like : "Moosak"
    'strIconPath            : Icon Full Path                Like : "D:\MyIcon.ico"

 

[ahmad_mustafa]

بارك الله فيك سأعتمد الطريقة الاولى لكني اسال هل يمكن التعديل على الملف بعد تحوبله الى exe

[Moosak]

2 ساعات مضت, ahmad_mustafa said:

هل يمكن التعديل على الملف بعد تحوبله الى exe

نعم ممكن ..  🙂 
افتح الملف عن طريق الـ WinRaR