تغير صورة الايقونة

[TQTHAMI]

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

لدي مجموعة من ازرة الاوامر بها صور ابي كل زر امر ياخذ الصورة من رقم الصورة الي بالجدول 

عند اختيار رقم الصورة تتغير الصورة التي في  زر الامر  حسب الرقم لمختار من القائمة 

مرفق مثال موضح بة المطلوب

icon.rar

تم تعديل نوفمبر 25, 2022 بواسطه TQTHAMI
اضافة مرفق

[TQTHAMI]

لا أَيُّها القوّمُ وَيَحكُمُ هُبّوا
أُسائِلُكُم وَلُا مجُيـــبُّ

😩😩😩

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي TQTHAMI 🙂 

اطلعت على المرفق وقرأت المطلوب عدة مرات .. ولكن عجزت عن فهم ماتريده بالضبط 😅

تختار من القائمة فتتغير صور الأزرار ؟

وعند الاختيار من القائمة أي زر الذي تريد تتغيير صورته ؟

أم تضغط الزر فتتغير صور الأزرار الأخرى ؟ أم ماذا بالضبط ؟!

 

لديك 6 أزرار .. والصور عددها 5 .. !!  🙃

 

[TQTHAMI]

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

بارك الله فيك اخي

اولا اشكرك على تجاوبك 

1- القائمة تختوي على اسماء الصور الموجودة في مجلد الصور 

2- عند اختيار اي اسم او صورة من القائمة يتم وضعها في زر الامر الذي اخددة
((مثال : اخترت الصورة رقم 3 من القائمة حميع الازرار التي تكون العلامة فيها رقم 3 تتحول الى الصورة المحنارة من القائمة وهي رقم 3))
((مثال :اخترت الصورة رقم 4 من القائمة حميع الازرار التي تكون العلامة فيها رقم 4 تتحول الى الصورة المحنارة من القائمة وهي رقم 4 ))

ان شاء الله وفقت في توصيل المعاومة

 

لديك 6 أزرار .. والصور عددها 5 .. !!  🙃

ذا مثال 

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

[Moosak]

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

جرب الآن حسب فهمي المتواضع للشرح : 🙂

icon - Moosak.rar

[TQTHAMI]

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

اخي الكريم Moosak انت رائع بكل معنى الكلمة هذا تماما ما اريده 

أولا:

بيض الله وجهك يوم تبيض وجوه  وأظلك في ظله يوم لا إلا ظله  وجعلك مفاتيح للخير مغاليق للشر  ورزقك حجاً مبرور وتجارةً لن تبور إن شاء الله العزيز الحكيم.

ثانيا : مثال رائع واجابة موفقة اكثر من ما طلبت

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

تحياتي

وبأنتظار ردك

icon.rar

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

[Moosak]

وعليكم السلام أخي TQTHAMI  🙂 

شكرا لك على دعواتك الطيبة ، وتقبل الله منا ومنك 🤲

تم التنفيذ ولله الحمد  ..  (ولكن بشرط أن تكون النماذج مفتوحة أثناء التغيير )

وهذه هي الدالة المستخدمة :

Public Sub ChangeBtnPic(PicNum As Integer, BtnTag As Integer)

On Error Resume Next
  Dim Frm As Form, ctl As Control
      For Each Frm In Access.Forms
        If CurrentProject.AllForms(Frm.Name).IsLoaded Then
            For Each ctl In Frm.Controls
                If ctl.ControlType = acCommandButton Then
                    If ctl.Tag = BtnTag Then
                         ctl.Picture = PicBt & PicNum & ".bmp"
                    End If
                End If
            Next ctl
        End If
    Next Frm
End Sub

 

icon - Moosak.rar

[TQTHAMI]

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

الأخ الكريم الفاضل  Moosak

 

اشكرك على مبادرتك بسرعة الرد فجزاك الله خيرا 

ملاحظة بسيطة وهامة أرجو ان تتقبلها بصدر رحب

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

لو استطعت فعلها بدون فتح النماذج يكون 100%

تحياتي لك

 

[Moosak]

30 دقائق مضت, TQTHAMI said:

لو استطعت فعلها بدون فتح النماذج

علشان تعمل هذي الخطوة .. لازم تحفظ القيم في جدول .. ولما يفتح أي نموذج ياخذ القيم من الجدول .. وهذي لحالها قصة ثانية 🙂 

وأترك موضوعها للشباب .. لأني بكون مشغول خلال الفترة القادمة 😉🌹

[TQTHAMI]

 

يعطيك الف عافيه ماقصرت كفيت ووفيت بارك الله فيك وفي ذريتك وسدد الله خطاك

 واتمنى من الجميع التفاعل معى فى الموضوع

ولكم خالص الشكر والعرفان

 

[TQTHAMI]

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

بارك الله فيك أخي 

بأي طريقة تراها مناسبة 

واكرر شكري للجميع وخصوصا الاخ Moosak   

  الطلب سلامة الجميع

وانتظر ردكم على احر من الجمر

تحياتي

[TQTHAMI]

اتمنى من الجميع التفاعل معى فى الموضوع

ولكم خالص الشكر والعرفان