مكتبة الموقع - أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة {سلسلة الأدوات المساعدة المخصصة}

[منتصر الانسي]

اعرض الملف

أداة إنشاء الخيارات المخصصة بإستخدام القوائم المختصرة {سلسلة الأدوات المساعدة المخصصة}

---

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

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

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

بالإضافة إلى نسخة بإسم القالب يحتوي الكائنات المطلوب إستيرادها

تم في هذه الأداة الأخذ بالإقتراحات التي قدمها الأخ @Foksh والأخ @Moosak في موضوع الأداة السابقة هنا

فأصبح نموذج ببناء صيغة أمر الإستدعاء يقوم بإضافة عبارة Select Case ضمن الصيغة وتم إستخدام دالة بدل الإجراء ليتم إرجاع قيمة الخيار مباشرة لأني رأيت بصراحة أن هذين الإقتراحين هما الأنسب لهذه الأداة

أرجو أن تجدوا في هذه الأداة الفائدة العلمية والعملية

وفي إنتظار أي ملاحظات تقدمونها

تحياتي

---

• صاحب الملف
  منتصر الانسي
• تمت الاضافه
  09/19/26
• الاقسام
  قسم الأكسيس

 

[Foksh]

تبارك الله ، ما شاء الله ،، إبدااااااااع أخي منتصر فعلاً بهذه التحديثات التي لا تأتي شيء تلك الملاحظات التي تتحدث عنها مقارنة بكم الإبداع هذا 

لي إضافة سآتيك بها حال هدوء الأفكار في جمجمتي الصغيرة ، تتعلق بإضافة أيقونة للأزرار ، كالفكرة التالية :-

أو هذه الفكرة على ملف مشروعك :-

تم تعديل السبت at 23:48 بواسطه Foksh
تنسيق الرد ..

[منتصر الانسي]

13 ساعات مضت, Foksh said:

لي إضافة سآتيك بها حال هدوء الأفكار في جمجمتي الصغيرة ، تتعلق بإضافة أيقونة للأزرار ، كالفكرة التالية :-

إضافة أكثر من رائعة أخي @Foksh وبإذن الله سأقوم بدمجها مع الأداة ليتم تحديد الأيقونات من خلال نموذج بناء صيغة الأمر

ألف شكر أستاذنا الكبير

[Foksh]

منذ ساعه, منتصر الانسي said:

بإذن الله سأقوم بدمجها مع الأداة ليتم تحديد الأيقونات من خلال نموذج بناء صيغة الأمر

العفو أستاذي وأخي منتصر .. ما هي إلا نقطة في بحر إبداعاتكم 

[Moosak]

ما شا الله عليك أخي منتصر .. موسوعة عامرة بالأفكار الرائعة 😊👌🌼

كنت أستخدم القوائم المنسدلة لعمل هذه الخيارات .. والآن سهلت علي الأمر .. جزاك الله عنا كل خير 

..........................................................

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

[منتصر الانسي]

منذ ساعه, Moosak said:

كنت أستخدم القوائم المنسدلة لعمل هذه الخيارات .. والآن سهلت علي الأمر .. جزاك الله عنا كل خير 

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

منذ ساعه, Moosak said:

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

هذا لأن الغرض من زر الأمر هو تجربة كيف سيكون شكل القائمة ولم يتم إستخدام العبارة الشرطية Select case معه وكان الأمر مجرد طلب إظهار مربع الرسالة بالنتيجة مهما كانت ولكن لو تلاحظ فلن تظهر هذه المشكلة في أي مثال من أمثلة النسخة التوضيحية 

[Foksh]

3 ساعات مضت, منتصر الانسي said:

ولم يتم إستخدام العبارة الشرطية Select case معه وكان الأمر

هل ممكن يكون السبب هو عدم وجود إحتياط كـ Case Else ؟؟

[منتصر الانسي]

21 ساعات مضت, Foksh said:

هل ممكن يكون السبب هو عدم وجود إحتياط كـ Case Else ؟؟

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

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

ولو عدنا للكود خلف زر الأمر سنجد عدم وجود عبارة Case Else

Dim intResult As Integer

intResult = GetOptions("نموذج إدخال البيانات" & _
                       ";نموذج تعديل البيانات" & _
                       ";نموذج إستعراض البيانات" & _
                       ";نموذج تحديد معايير تصفية التقارير")

Select Case intResult
    Case Is = 1
        DoCmd.OpenForm "frm01"
    Case Is = 2
        DoCmd.OpenForm "frm02"
    Case Is = 3
        DoCmd.OpenForm "frm03"
    Case Is = 4
        DoCmd.OpenForm "frm04"
End Select

ولكن في المثال الثاني سنجد أنه سيتم تنفيذ إجراء لم يكن في الحسبان

في هذه الحالة سيتطلب منا إضافة عبارة Case Else وعلى رأي المثل الوقاية خير من العلاج إن شاء الله سأقوم يإضافة هذا الأمر ضمن بناء صيغة الأمر بالإضافة إلى معالجة الملاحظة المقدمة من الأخ @Moosak وذلك في النسخة الجديدة التي أقوم فيها بإضافة الهدية القيمة المقدمة منك