تغيير ايقونه ملف الاكسيس

[george2018]

الساده الافاضل تحياتي لكم

لدي ملف اكسيس وتم تغيير ايقونه القوائم والتقارير وذلك من خلال خيارات اكسيس " قاعدة البيانات الحاليه " وتحديد مسار للايقونه ، ولكن عند تغيير مسار الايقونه فان الملف يفتح بالوضع الافتراضي للاكسيس

فهل توجد طريقه لجعل ملف الاكسيس يحتفظ بالايقونه داخله دون الحاجه لوجودها في مسار محدد

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

ضع الكود التالي في وحدة نمطية

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
      
End Function

Function Xicon()
Dim intX As Integer
    Const DB_Text As Long = 10
    ' AppTitle
    intX = AddAppProperty("AppTitle", DB_Text, "عنوان البرنامج")
    ' AppIcon
    intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\N.ico")
    CurrentDb.Properties("UseAppIconForFrmRpt") = 1

End Function

ثم استدعي الدالة في النموذج الرئيسي للبرنامج

Private Sub Form_Load()
    Call Xicon
End Sub

او عن طريق ماكرو والافضل تسميته autoexec ليبدأ مع عمل البرنامج

RunCode

ثم اسم الدالة

Xicon()

تحياتي

تم تعديل ديسمبر 27, 2018 بواسطه محمد ابوعبد الله

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

بعد اذن اخي محمد ابو عبد الله

في المربع في الصورة ضع المسار التالي

.\iconName.ico

 

على ان تكون الصورة موجودة جانب قاعدة البيانات

بحيث ان iconName هو اسم الايقونة

 

[george2018]

الاخ عبدالله قدور

الطريقه مظبوطه بس المشكله لو ملف الايقونه اتمسح او تم تغير مكانه فان الاكسيس يفتح بالايقونه الافتراضيه له وليس الايقونه المحدده

الاخ / محمد ابو عبدالله 

الطريقه اللي حضرتك شرحتها هل بتحتاج ان ملف الايقونه يكون في مسار محدد ، ولو تم تغيير مسار الايقونه هل تظل داخل ملف الاكسيس ام تظهر الايقونه الافتراضيه للاكسيس ؟

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

9 ساعات مضت, george2018 said:

لاخ / محمد ابو عبدالله 

الطريقه اللي حضرتك شرحتها هل بتحتاج ان ملف الايقونه يكون في مسار محدد ، ولو تم تغيير مسار الايقونه هل تظل داخل ملف الاكسيس ام تظهر الايقونه الافتراضيه للاكسيس ؟ 

يجب ان تكون في نفسار البرنامج وهي منفصلة عن البرنامج وليست مضمنة له

تحياتي

[Elsayed Bn Gemy]

هناك حل بسيط جدا لتفادى تلك المشكلة 

وهى حفظ الايقونة داخل قاعدة البيانات واستخرجها فى حالة مسحها 

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

 

[ebnjabalapp]

السلام عليكم الاخ عبد الله قدور

والافاضل

1/في المرفقات وحدة نمطية قم باستبرادها من قائمة ملف استيراد في vb access

2/ ضع الايكون المناسب للبرنامج ضمن مسار النظام

3/ ضع الكود التالي في حددث عند التحميل او الفتح او الحالي لكل النمازج المراد التعالمل معها

  SetFormIcon Me.hWnd, Application.CodeProject.Path & "\iconame.ico"

4/ غير اسم الايكون في الكود السابق بما يتناسب مع الموجود عندك

انتهي

وملاحظة اخي Elsayed Bn Gemy الخبير

برنامجك الجميل يحتاج مراجعة في شان استخراج الايكون وتحياتي لك والي الامام

IconModule.rar

[عربي عالمي]

أشكركم تم التطبيق بنجاح .

تم تعديل يناير 11, 2019 بواسطه عربي عالمي

[ebnjabalapp]

 

بالتوفيق اخي عربي عالمي

في انتظار تعليق الاخ                 Elsayed Bn Gemy

في انتظار رد الاخ  عبد الله قدور

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

السلام عليكم @ebnjabalapp

اخي الكريم بما أنك تنتظر ردي فوجب علي تجربة الكود رغم ضيق الوقت عندي ، لكن لما وضعت الكود في الوحدة النمطية ظهرت لي الرسالة التالية

واظنها ناجمة عن أني استخدم نسخة اوفيس 64 فهل هناك حل برأيك

 

 

تم تعديل يناير 12, 2019 بواسطه عبد الله قدور

[Elsayed Bn Gemy]

في ١٠‏/١‏/٢٠١٩ at 12:04, ebnjabalapp said:

وملاحظة اخي Elsayed Bn Gemy الخبير

برنامجك الجميل يحتاج مراجعة في شان استخراج الايكون وتحياتي لك والي الامام

 

السلام عليكم اخى الكريم
هل لى ان اسالك ما هى المشكلة التى واجهتك فى مرفقى حتى يتسنى لنا حلها سويا