بعد التحية والسلام لجميع الأخوة والأخوات
هل ممكن إعطاءنا مثال يتضمن اجراء الحدث Click الأيمن للماوس على كائن معين يتضمن
حدث مباشر أو حدث يتضمن فتح قائمة منسدلة تحتوي على عدة أحداث ثانوية أخرى
مع الشكر الجزيل مقدماً
أبومنتظر
إجراء حدث او فتح قائمة منسدلة عن طريق click الأيمن للماوس
مغلق
وعليكم السلام و مشكورة ً أستاذتي الفاضلة
ولكن هل من الممكن التوضيح أكثر عن كيفية تحرير القائمة MyPopUP و أين ؟
أخي الكريم هذه التعليمات الخاصة بتخصيص قائمة مختصرة إن شاء الله فيها الكثير
تخصيص قائمة مختصرة
في القائمة أدوات، انقر فوق تخصيص .
انقر فوق علامة التبويب أشرطة الأدوات.
تحت أشرطة الأدوات، حدد خانة الاختيار قوائم مختصرة.
قم بأحد الإجراءين التاليين:
حذف أمر من قائمة مختصرة
انقر فوق فئة في شريط الأدوات (شريط الأدوات: شريط يحتوي على أزرار وخيارات يمكنك استخدامها لتنفيذ أوامر. لعرض شريط الأدوات، انقر فوق تخصيص من القائمة أدوات ثم انقر فوق علامة التبويب أشرطة الأدوات). قائمة مختصرة، ثم انقر فوق القائمة المختصرة (قائمة مختصرة: قائمة تظهر لائحة أوامر متعلقة بعنصر معيّن. لعرض قائمة مختصرة، انقر بزر الماوس الأيمن فوق عنصر ما أو اضغط SHIFT+F10.) التي تحتوي على الأمر.
اسحب الأمر من القائمة.
إضافة أمر إلى قائمة مختصرة
انقر فوق فئة في شريط الأدوات (شريط الأدوات: شريط يحتوي على أزرار وخيارات يمكنك استخدامها لتنفيذ أوامر. لعرض شريط الأدوات، انقر فوق تخصيص من القائمة أدوات ثم انقر فوق علامة التبويب أشرطة الأدوات). القائمة المختصرة، ثم انقر فوق القائمة المختصرة (قائمة مختصرة: قائمة تظهر لائحة أوامر متعلقة بعنصر معيّن. لعرض قائمة مختصرة، انقر بزر الماوس الأيمن فوق عنصر ما أو اضغط SHIFT+F10.) التي تريد تعديلها.
في مربع الحوار تخصيص، انقر فوق علامة التبويب أوامر.
في المربع فئات، انقر فوق فئة للأمر.
اسحب الأمر من المربع أوامر إلى المكان الذي تريد ظهور الأمر به في القائمة المختصرة، ثم أفلت زر الماوس.
******
ولكن لي سؤال
هل نستطيع عمل قائمة تحتوي أكواد الأزرار فمثلا لوكان عندنا زر يقوم بمجموعة من الأوامر مثل حفظ وتحديث وغلق النموذج مثلا
هل يمكن دمج عمل (وظيفة) هذا الزر في القائمة المختصرة؟ أو حتى في قائمة في شريط القوائم ؟
؟
تم تعديل هذه المشاركة بواسطة mas123 في 28 يوليو 2007 في 13:24
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اقتباسولكن لي سؤالهل نستطيع عمل قائمة تحتوي أكواد الأزرار فمثلا لوكان عندنا زر يقوم بمجموعة من الأوامر مثل حفظ وتحديث وغلق النموذج مثلا
هل يمكن دمج عمل (وظيفة) هذا الزر في القائمة المختصرة؟
نعم أخي الكريم يمكن عمل ذلك وبكل سهوله فقط اتبع الخطوات التالية :
1. قم بإنشاء ماكرو يضم كل الأحداث المطلوبه مثل حفظ السجلات SaveRecord و تحديث النموذج Refresh واغلاق النموذج المطلوب Close
2. يجب ان تكون هذه العمليات مرتبه تحت بعض في الماكرو حتى يتم تنفيذها مع بعض .
3. لا تقم بتشغيل الماكرو لأنه سوف يطالبك برساله لابد ان يكون النموذج المطلوب مفتوح حتى يتم عليه الحفظ والتحديث والإغلاق .
4. احفظ الماكرو بأي إسم تريد . وقم بلإغلاقه .
5. اذا كان لديك قائمة منبثقه سابقة فبإمكانك التعديل عليها وذلك بإضافة قائمة فرعية جديده تحت الفرع الرئيسي من القائمة الأصلية .
6. في القائمة الفرعية الجديده كل ما علينا هو اضافة الماكرو وذلك من خلال اختيار كافة الماكروات من القائمة اثناء التصميم وسنجد الماكرو الخاص بنا سابقا من ضمنها ولهذا سوف نقوم بإجراجه في القائمة الفرعية الجديده ثم نقوم بتغيير التسمية الخاصة به في القائمة وليكن مثلا " حفظ + تحديث + إغلاق "
6. لا تحاول تشغيل القائمة الفرعية الجديده الخاصة بعمليات النموذج ( حفظ + تحديث + اغلاق ) إلا والنموذج مفتوح بعنى نقوم اولا بفتح النموذج ثم نضغط بالماوس الأيمن على النموذج ثم نقوم بتشغيل القائمة .
وهذا الملف بعد التعديل
بارك الله فيك
ماذا لو كان عمل الزر كما في زر حفظ سجل أو زر تحديث سجل بالمرفق؟
؟
تم تعديل هذه المشاركة بواسطة mas123 في 28 يوليو 2007 في 15:09
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اقتباسماذا لو كان عمل الزر كما في زر حفظ سجل أو زر تحديث سجل بالمرفق؟
لم افهم عليك اخي الكريم ماذا تقصد بالضبط
بمعنى آخر هل نستطيع عمل جزء في القائمة المختصرة يقوم بعمل (أو وظيفة) زر حفظ السجل بجميع أكواده أو زر تحديث السجلات بجميع أكواده بالمرفق السابق
أتمنى أن أكون قد أوضحت
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اخي الفاضل
لقد قمت بحذف زر امر حفظ السجل وزر أمر تحديث السجلات واستبدلتهما بزر واحد فقط وهو زر أمر " حفظ وتحديث " حيث تم استدعاء الأكواد الخاصة بالحفظ والتحديث في زر الأمر هذا ايضا لا شيء مستحيل اخي الكريم في عمل قائمة منبثقه تؤدي نفس الغرض عند الضغط بالماوس الأيمن على النموذج فقط اتبع الخطوات
1. نقوم بإنشاء داله او وظيفة عامه مهمتها تقوم بالذهاب الى زر الأمر الجديد وهو " حفظ وتحديث " حيث يتم عليه التركيز اولا ثم انتظار الضغط عليه ثانيا من خلال هذا الكود
Function za() Dim ctl As Control Set ctl = Forms!Form!ALL DoCmd.GoToControl ctl.Name SendKeys "~", True End Function
2. نقوم الأن بإستدعاء هذه الوظيفة من خلال ماكرو جديد نقوم بعمله من خلال الأمر RunCode في الماكرو
3. نقوم بإنشاء قائمة منبثقه على النموذج ونسميها مثلا " حفظ و تحديث " ومن ثم يتم استدعاء الماكرو من خلالها
وهذا المثال بعد التعديل ( يعني اصبح لديك طريقتين للحفظ والتحديث
الأولى من خلال زر الأمر والثانية من خلال القائمة المنبثقه المعتمدة على زر الأمر
ممكن بعض الشرح للتعديل والموديول
ولديّ نموذج به كود عند التحميل لتشغيل استعلام بناء جدول وعرض تقرير مبني على هذا الجدول ثم يغلق النموذج
هل من الممكن حذف هذا النموذج والاستعاضة عنه بكلك يمين مثل حفظ وتحديث السابق؟
؟
عذرا لكثرة الأسئلة
تم تعديل هذه المشاركة بواسطة mas123 في 28 يوليو 2007 في 21:09
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اقتباسممكن بعض الشرح للتعديل والموديول
ما هو الذي تريد ان اشرحه لك اخي الكريم
لقد شرحت الطريقة ووضعت لك الموديول في المشاركة السابقة
فكل ما نحتاجه هو موديول وماكرو وقائمة منبثقه فقط .
بسم الله الرحمن الرحيم
بارك الله فيك اختنا زهرة
بصورة أخرى هل نستطيع إلغاء نموذج يقوم بما يلي والاستعاضة عنه بقائمة في شريط القوائم أو قائمة مختصرة سيان
Private Sub Form_Load() DoCmd.Close DoCmd.SetWarnings False DoCmd.OpenQuery "makeFinalrprt" DoCmd.OpenReport "finalreport", acPreview DoCmd.SetWarnings True End Sub
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
اخي الفاضل محمد صالح
نعم يمكن عمل ذلك بدون الحاجة الى اي نموذج فقط اتبع الطريقة التالية
1. قم بإنشاء وحدة نمطية جديده وضع بها هذا الكود
Function Finalrprt() DoCmd.SetWarnings False DoCmd.OpenQuery "makeFinalrprt" DoCmd.OpenReport "finalreport", acPreview DoCmd.SetWarnings True End Function
2. قم بحفظ الوحدة النمطية
3. قم بإنشاء ماكرو جديد واختر منه الأمر RunCode وضع في خانة الحدث السفلية للأمر العبارة التالية () Finalrprt
4. قم بحفظ الماكرو بإسم مثلا FR
5. قم بإنشاء قائمة مختصره جديده على شريط القوائم ثم اختر من التبويب اثناء تصميم القائمة - تبويب الأوامر - واختر منه جميع وحدات الماكرو وستجد الماكرو الذي أنشاناه سابقا بإسم FR هو الموجود الوحيد قم بسحبه الى القائمة الجديده .
6. من خصائص القائمة قم بتغيير اسم الماكرو مثلا الى " التقرير النهائي .
7. اغلق القاعدة واعد فتحها ثم اضغط على القائمة الجديده ستجد انها قامت بفتح الإستعلام makeFinalrprt والتقرير finalreport
هذا المثال لا يوجد به اي نموذج فقط استعلام وتقرير للتجربه وهو جاهز
انظر القائمة الجديده " التقرير النهائي " في اعلى البرنامج
هذا الموضوع مغلق.