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

[Foksh]

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

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

1. حذف الاستعلام مصدر الصف لليست بوكس هذا .
2. تغيير قيمة نوع مصدر الصف من Table/Query لتصبح Value List .
3. استخدم الحدث التالي عند التحميل للنموذج هذا :-

   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

    

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

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

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

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

[أحمد العيسى]

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

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

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

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

[Foksh]

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

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

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

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

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

[أحمد العيسى]

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

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

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

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

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

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

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

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

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

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

[Moosak]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Menu Builder 2003.rar

[أحمد العيسى]

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

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

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

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

[Foksh]

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

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

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

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

 

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

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

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

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

 

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

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

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

 

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

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

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

 

 

[Foksh]

 

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

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

 

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

Menu Builder 2026.zip

 

Menu Builder 2003.zip

 

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

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

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

[Foksh]

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

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

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

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

[jo_2010]

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

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

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

 

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

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

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

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

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

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

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

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

 

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

 

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

 

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

Menu Builder.zip 719.26 kB · 73 downloads

 

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

 

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

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

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

[أحمد العيسى]

أخى فادي

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

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

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

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

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

 

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

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

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

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

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

db.mdb

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

[Foksh]

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

تم تعديل الأربعاء at 15:22 بواسطه Foksh

[jo_2010]

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

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

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

 

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

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

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

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

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

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

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

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

 

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

 

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

 

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

Menu Builder.zip 719.26 kB · 84 downloads

 

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

 

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

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

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