قوائم مختصرة ⭐ هدية ~ صانع القوائم المختصرة 2026 ⭐

**Foksh** · يونيو 13

اهااااا ، الآن توضحت لي الأمور ، بعد أن قمت بجعل أسماء الجداول = جداول نظام غير ظاهرة ، يبدو أنني لم أتحقق من مصدر صف الليست بوكس List_Objects في النموذج FrmAssignMenu .

لذا أرجو تعديل ما يلي في النموذج :-

حذف الاستعلام مصدر الصف لليست بوكس هذا .
تغيير قيمة نوع مصدر الصف من Table/Query لتصبح Value List .

استخدم الحدث التالي عند التحميل للنموذج هذا :-

Private Sub Form_Load()
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _
             "FROM MSysObjects " & _
             "WHERE Type In (-32768,-32764) AND Left(Name,1)<>'~' " & _
             "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _
             "ORDER BY Type, Name;"
             
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    Me.List_Objects.RowSourceType = "Table/Query"
    Set Me.List_Objects.Recordset = rs
    
    Set rs = Nothing
End Sub

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

شكراً لك لتنبيهك لهذه النقطة أخي أحمد :fff:

الآن جرب النتيجة وأخبرني هل عملت معك أم لا !!!

تم تعديل يونيو 13 بواسطه Foksh

**أحمد العيسى** · يونيو 13

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

الآن جرب النتيجة وأخبرني هل عملت معك أم لا !!!

تم عمل التعديلات التى أشرت إليها

وما زالت هذه النقطة عالقة .. فى انتظار تجربتك أنت

**Foksh** · يونيو 13

8 دقائق مضت, أحمد العيسى said:

فى انتظار تجربتك أنت

تجربتي على إصدارين مختلفين أعلى من 2003 ، وأما بخصوص الإصدار 2003 فليس لدي هذا الإصدار للأسف كي أقوم بتجربته .

**منتصر الانسي** · يونيو 13

2 ساعات مضت, أحمد العيسى said:

وما زالت هذه النقطة عالقة .. فى انتظار تجربتك أنت

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

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

إسمح لي أخي @Foksh بملاحظة

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

Private Sub Form_Load()

    Dim strHostPath As String
    Dim strSQL As String

    'تحديد مسار الملف المضيف
    strHostPath = CurrentProject.FullName

    'بناء جملة الإستعلام عن النماذج والتقارير الخاصة بالملف المضيف
    strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _
             "FROM MSysObjects IN '" & strHostPath & "'" & _
             "WHERE Type In (-32768,-32764) And Left(Name,1)<>'~' " & _
             "ORDER BY Type, Name;"
             
    'تعيين خاصية مصدر الصف للقائمة بالإستعلام هذا
    Me.List_Objects.RowSource = strSQL
 

End Sub

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

كذلك ستلاحظ أني قمت بالإستغناء عن السطر الخاص بإستبعاد النموذجين FrmMain و FrmAssignMenu (أقصد السطر التالي)

             "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _

وذلك لسببين

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

أما السبب الثاني فحتى لايتم إستبعاد إي نماذج في الملف المضيف وتحمل نفس الإسم (خصوصاً FrmMain فالكثير يسمي النموذج الرئيسي بهذا الإسم)

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

تحياتي

Menu Builder.accdb

**أحمد العيسى** · يونيو 13

54 دقائق مضت, منتصر الانسي said:

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

إسمح لي أخي @Foksh بملاحظة

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

فعلاً له منا كل الشكر والتقدير على هذا العمل

طبقت ما ذكره الزميل العزيز "منتصر الانسي" بضرورة إضافة وظيفة Addin فى أكسس 2024 ، ثم فتحت تطبيقي ( للعلم بصيغة mdb يحتوي على 124 تقرير ) في نفس برنامج أكسس

ومن خلال وظيفة Addin استطعت الوصول لتطبيقى ( تذكر يا فوكش إنه 2003 ) وتم إضافة القائمة المختصرة مرة واحدة لكل التقارير بعد تحديدهم معاً

كم كان توفير الوقت والجهد رائعاً جداً

شكراً لكم مرة أخرى

تم تعديل يونيو 13 بواسطه أحمد العيسى

**Moosak** · يونيو 13

بارك الله لك هذا التوفيق أخي فادي 🙂🌹
جعله الله في موازين حسناتك .. 😊🤲

------------------------------------------------

بعد التجربة بشكل سريع ..

أول ما بحثت عنه هذا الأمر ولم أجده من ضمن القائمة 😅

image.png.cffeb6a2151cf1e111764d6d03de8430.png

----------------------------------------------------

حبذ إضافة شرط عدم تكرار إضافة نفس الأداة 🙂

image.png.7e53e29f1b1864f1c6c79f489d24a4bb.png

----------------------------------------------------

والباقي بعد ما أكمل بحث وبعد التجربة الفعلية 😁

**منتصر الانسي** · يونيو 13

54 دقائق مضت, أحمد العيسى said:

تذكر يا فوكش إنه 2003

لايوجد فرق بين الإصدارات المهم ماهو الإصدار الذي تعمل به فطالما أنك تعمل في اكسس 2024 فستظهر لك نفس البيئة سواء كان الملف الذي تفتحه mdb او accdb

حاولت تعديل الملف ليعمل في 2003 وكانت هذه هي النتيجة

سنجد هنا أن الأزرار لم تظهر كما يجب أن تكون عليه ولكن لو فتحت نفس الملف في اكسس 2024 ستظهر بشكل طبيعي

ارفق لكم الملف لمن يحب أن يجربه

Menu Builder 2003.rar

**أحمد العيسى** · يونيو 13

جربت ملف Menu Builder 2003.mdb

وأنتج ما تم عمله مع الملف الأصلى وإن كانت الأزرار غير ظاهرة

( دون أن أذهب لويندوز 10 الذى عليه أكسس 2024 )

لكن الأخ فادى وضع مسمى تحت كل زر يوضح عمله وكان كافياً

**Foksh** · يونيو 13

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

إسمح لي أخي @Foksh بملاحظة

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

شكراً لك اخي منتصر على هذه الإلتفاته .. فعلاً فاتتني تماماً ولم اتيقن لها .

5 ساعات مضت, Moosak said:

بعد التجربة بشكل سريع ..

أول ما بحثت عنه هذا الأمر ولم أجده من ضمن القائمة 😅

بسيطة هذه مهندسنا الغالي .. سيتم العمل على تصحيح النقاط التي تم طرحها وملاحظتها ..

5 ساعات مضت, Moosak said:

حبذ إضافة شرط عدم تكرار إضافة نفس الأداة 🙂

هذه النقطة خطرت ببالي ، ولكني تجاهلتها وتركتها مفتوحة بحرية للمستخدم دون قيود .

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

ارفق لكم الملف لمن يحب أن يجربه

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

**Foksh** · يونيو 16

image.png.23c395a5cc6d0c757626381a5c312aff.png

1️⃣ تم التعامل مع جميع الملاحظات التي طُرحت من الإخوة والأساتذة ( مشكورين جميعاً :wub: ) الذين قاموا بتجربة الأداة ومشاركتي نتائج اختباراتهم وملاحظاتهم .

2️⃣ تم إصلاح مشكلة الأزرار وأيقوناتها في الإصدار 2003 بإضافة إصدار منفصل كلياً وبنفس المزايا .

ملف الأداة مفتوح المصدر ، للتحميل :-

Menu Builder 2026.zip

Menu Builder 2003.zip

تم تعديل يونيو 16 بواسطه Foksh

**منتصر الانسي** · يونيو 16

هذا هو التطبيق الفعلي لإتقان العمل :fff: :fff: :fff:

**Foksh** · يونيو 16

3 دقائق مضت, منتصر الانسي said:

هذا هو التطبيق الفعلي لإتقان العمل

أنتم السابقون في طرح العطاء . والتعديلات التي قمتم بها كانت دافعاً لجعلي أقوم فعلاً بتثبيت نسخة أوفيس 2003 وإجراء التعديلات لما يتوافق مع متطلبات المستخدمين ..

لكم مني كل الشكر والتقدير على مداخلاتكم المميزة ودعمكم :fff:

**jo_2010** · يونيو 17

في 11‏/6‏/2026 at 19:23, Foksh said:

أخواني وأساتذتي ومعلمينا ( دون استثناء ) ..

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

1️⃣ القدرة على إنشاء قوائم مختصرة دون أن تكتب أي أمر برمجي أو حتى البحث عن الخيارات داخل آكسيس لإضافة قائمة مختصرة .... إلخ .

2️⃣ القدرة على استيراد قوائم مختصرة من قاعدة بيانات أخرى إلى قاعدة بياتك الحالية من خلال الأداة .

3️⃣ القدرة على تصدير قوائم مختصرة إلى قواعد بيانات أخرى .

4️⃣ التحكم بالترتيب للأوامر داخل القوائم بحرية وسهولة ، وإتاحة إمكانية تسمية الأوامر كما تحب .

5️⃣ إتاحة إمكانية إعادة تسمية قائمة مختصرة موجودة مسبقاً .

6️⃣ التحكم بحذف قوائم معينة لا تريدها من خلال زر واحد .

7️⃣ إتاحة الفرصة لإضافة أوامر خاصة من خارج آكسيس ، أو ماكرو . أي أنك تستطيع استدعاء دوال عامة من مشروعة داخل زر في القوائم التي تصنعها .

والكثير من الميزات التي يجب عليك اكتشافها بنفسك .

📸 واجهة الأداة المتواضعة :-

فيديو توضيحي لطريقة الاستخدام بشكل سريع ..

ملف الأداة مفتوح المصدر ، للتحميل :-

Menu Builder.zip 719.26 kB · 73 downloads

لمعرفة وظيفة كل زر ، فقط قف على الزر وستظهر لك الوظيفة المخصصة له .

استاذى الفاضل

لما بختار امر عرض التقرير فى وضع التصميم بيظهر فى القائمة مخفى غير فعال

ممكن توضيح لهذذا السبب

**أحمد العيسى** · يونيو 17

أخى فادي

أرجو أن يتسع صدرك لإجراء مزيد من التجارب الميدانية على تطبيقك 2003

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

وكان التصميم كالتالي

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

أما عن سطر التصدير فقد وقف عند الأكسل ولا ينفذ

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

وكان تصميمها على برنامجك كالتالي

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

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

للعلم جربت ما سبق على أكسس 2024 ولم يتغير شيئاً مما سبق

db.mdb

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

**Foksh** · يونيو 17

هذه تجربتي على ملفك المرفق ، ولكن على الإصدار 2010 . أما الإصدار 2003 فقد قمت بتثبيته على جهازي الثاني في المنزل .. وسأعمل على تجربة نفس المرفق على الاصدار 2003 :-

تم تعديل يونيو 17 بواسطه Foksh

**jo_2010** · يونيو 23

في 11‏/6‏/2026 at 19:23, Foksh said:

أخواني وأساتذتي ومعلمينا ( دون استثناء ) ..

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

1️⃣ القدرة على إنشاء قوائم مختصرة دون أن تكتب أي أمر برمجي أو حتى البحث عن الخيارات داخل آكسيس لإضافة قائمة مختصرة .... إلخ .

2️⃣ القدرة على استيراد قوائم مختصرة من قاعدة بيانات أخرى إلى قاعدة بياتك الحالية من خلال الأداة .

3️⃣ القدرة على تصدير قوائم مختصرة إلى قواعد بيانات أخرى .

4️⃣ التحكم بالترتيب للأوامر داخل القوائم بحرية وسهولة ، وإتاحة إمكانية تسمية الأوامر كما تحب .

5️⃣ إتاحة إمكانية إعادة تسمية قائمة مختصرة موجودة مسبقاً .

6️⃣ التحكم بحذف قوائم معينة لا تريدها من خلال زر واحد .

7️⃣ إتاحة الفرصة لإضافة أوامر خاصة من خارج آكسيس ، أو ماكرو . أي أنك تستطيع استدعاء دوال عامة من مشروعة داخل زر في القوائم التي تصنعها .

والكثير من الميزات التي يجب عليك اكتشافها بنفسك .

📸 واجهة الأداة المتواضعة :-

فيديو توضيحي لطريقة الاستخدام بشكل سريع ..

ملف الأداة مفتوح المصدر ، للتحميل :-

Menu Builder.zip 719.26 kB · 84 downloads

لمعرفة وظيفة كل زر ، فقط قف على الزر وستظهر لك الوظيفة المخصصة له .

استاذى الفاضل

شكرا على هذة التحفة الفنية

لكن عندى مشكلة انظر الصورة

**Foksh** · يونيو 24

في 23‏/6‏/2026 at 10:29, jo_2010 said:

لكن عندى مشكلة انظر الصورة

أهلا أخي جو ..

جاري العمل على تصويب بعض الملاحظات من التجارب التي مر بها أخوتنا في هذا الموضوع ..

ولكن فيما يخص ملاحظتك . فقط علينا استبدال القيمة 11 في الدالة لتصبح 2952 الخاصة بعرض التصميم .

سأقوم بإرفاق ملف معدل عند الانتهاء من التنقيح إن شاء الله .

**jo_2010** · يونيو 29

في 12‏/6‏/2026 at 18:47, Foksh said:

1️⃣ إضافة زر لمعاينة القائمة التي تم انشائها ، بدلاً من الدخول إلى تقرير أو نموذج وتعيينها وتجربتها .

2️⃣ إضافة فكرة القوائم الفرعية . بحيث يكون زر داخل القائمة الرئيسية يتفرع منه قائمة فرعية أخرى ... وهكذا .

3️⃣ إضافة مميزة بحفظ القائمة كـ VBA داخل ملف نصي يتم حفظه على سطح المكتب . بحيث يمكنك من نسخه وتشغيله مرة واحدة فقط في مشروعك لإنشاء القائمة المختصرة التي انشأتها من خلال الأداة ، أو استوردتها من قاعدة أخرى 😉 .

4️⃣ إضافة زر لتعيين/إزالة قائمة مختصرة لعدد من النماذج أو التقارير مرة واحدة ، دون الحاجة لتعيينها واختيارها يدوياً لكل نموذج أو تقرير .

5️⃣ إضافة ميزة مسح جميع القوائم المختصرة من جميع كائنات ( نماذج وتقارير ) قاعدة البيانات الحالية . وليس بتحديد كائنات محددة كما في النقطة4️⃣ .

6️⃣ إضافة الميزة الذهبية الجديدة وهي دمج الأداة إلى إضافات آكسيس وكأنها جزء منه وتجدها داخل الإضافات - Addin . كما في الصورة الموضحة :-

7️⃣ إضافة زر لإزالة الأداة من الـ Addin بشكل كامل ونهائي .

📸 واجهة الأداة بعد التحديث :-

كل هذه الميزات وأكثر في المرفق التالي للنسخة المحدّثة :-

Menu Builder.zip 788.01 kB · 36 downloads

( تم تحديث المرفق بعد ملاحظة خطأ بسيط في نموذج عرض التقارير والنماذج الموجودة في قاعدة البيانات ) .

والشكر موصول لأخي @أحمد العيسى على هذه الملاحظة .

فيديو توضيحي لطريقة استخدام القوائم الفرعية :-

الخبير الفاضل

ممكن لوتكرمت

انظر الصورة

**jo_2010** · يونيو 29

استاذى الفاضل ومعلمى الخبير Foksh

فمت باستبدال القيمة 11 في الدالة لتصبح 2952 الخاصة بعرض التصميم والوضع كما هو انظر الصورة فى التعليق السابق

**Foksh** · يونيو 29

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :-

تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها .
إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا ..

ملف المشروع مفتوح المصدر :-

Menu Builder V.2.zip

كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..