قوائم مختصرة ⭐ هدية ~ صانع القوائم المختصرة 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

    

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

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

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

تم تعديل بالامس في 11:16 بواسطه 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 ) وتم إضافة القائمة المختصرة مرة واحدة لكل التقارير بعد تحديدهم معاً

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

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

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

[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 كي أقوم بتثبيته على جهازي الآخر وأقوم بفحص الأخطاء التي يمكن أن تأتي مع فرض الإصدارات البسيط .