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

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

اعرض الملف

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

---

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

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

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

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

تم في هذه الأداة الأخذ بالإقتراحات التي قدمها الأخ @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 وذلك في النسخة الجديدة التي أقوم فيها بإضافة الهدية القيمة المقدمة منك

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

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

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

كذلك تم إضافة العبارة Case Else في بناء صيغة الأمر لتجاوز أي مشكلة قد تحدث كما ذكر هنا

في 20‏/9‏/2026 at 22:46, Foksh said:

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

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

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

 وأخيراً وليس آخراً تم تصحيح الخطأ الذي ذكرة الأخ @Moosak في ملاحظته هذه

في 20‏/9‏/2026 at 18:33, Moosak said:

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

أرجو أن تنال التعديلات إستحسانكم وفي إنتظار أي ملاحظات أو مقترحات إضافية (فكما ترون فإن لملاحظاتكم القيمة الأثر الكبير في تحسين الأداة)

تحياتي للجميع

[Moosak]

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

سير ياشيخ الله يوفقك دنيا وآخرة يارب 🤲

[Moosak]

فقط لدي ملحوظة بسيطة بعد التطبيق العملي .. 🙂 

عند حفظ الأداة كإضافة للبرنامج  .. وعند تطبيق الأكواد على قاعدة جديدة فإنها لا تعمل بسبب أنها لا تحتوي على الموديولين التابعين لها 
وهذا سيحوجك إلى استيرادهما من ملف القالب () ويعيدنا إلى نقطة الإنطلاق من البداية 😅 (بمعنى أنني لازلت محتاج يكون هذا الملف موجود جنبي) !

السؤال هو : هل يمكن إدراج الموديولين تلقائيا في القاعدة التي يتم استخدام الأداة فيها ؟ 

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

29 دقائق مضت, Moosak said:

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

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

4 دقائق مضت, Moosak said:

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

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

ولكنك طرحت فكرة جميلة

6 دقائق مضت, Moosak said:

السؤال هو : هل يمكن إدراج الموديولين تلقائيا في القاعدة التي يتم استخدام الأداة فيها ؟ 

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

 

[Foksh]

 وااااااااو 

إبداع وتوظيف جميل وذكي ورائع فوق الخيار للأفكار .. وأنت هنا من أرفع له القبعة أخي منتصر 

جزاك الله خيراً لصبرك على 7299 سجل في الجدول المخصص للأيقونات .

وحقيقة أنت قمت بتوظيف الفكرة التي تقاعست عن تنفيذها في أداة صانع القوائم المختصرة ، ولكن هنا أنت أعدت لي الحماس بالتنفيذ 😜

 

 

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

18 دقائق مضت, Foksh said:

وحقيقة أنت قمت بتوظيف الفكرة التي تقاعست عن تنفيذها في أداة صانع القوائم المختصرة ، ولكن هنا أنت أعدت لي الحماس بالتنفيذ 😜

يااارجل أعتقد إنك لو نويت بتخرج بما لم يسبقك إليه أحد 

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

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

السؤال هو : هل يمكن إدراج الموديولين تلقائيا في القاعدة التي يتم استخدام الأداة فيها ؟ 

من جمال الفكرة قمت بتنفيذها مباشرة

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