كيفية الخروج من الأكسس عن طريق ShortCutMenu

[samihinnawi]

بسم الله الرحمن الرحيم

تحية لكل القائمين والعاملين والمشاركين فى هذا المنتدى الرائع.. وبعد

ارجو من السادة المشرفين، أو المشاركين.. (خاصة من المشرفة القديرة الأخت زهرة) توضيح كيفية الخروج من الأكسس بواسطة ShortCutMenu حيث أننى استخدمها كثيرا فى طباعة أو إغلاق أو فتح النماذج والتقارير.. ولكن عند استعمال الأمر Quit فى ال ShortCut تظهر لى رسالة تفيد بأن هذا الأمر غير متوفر حالياً وأضطر إلى إستبداله بالأمر SendKeys"%{F4}" والذى هو غير محبب، حيث أنه يتسبب فى تعطيل زر ال CAPS.

ولكم وافر الشكر والتحية والتقدير،

أخوكم / الحناوى

[جمال فايز]

بعض الاحيان يكون الضغط على زر الخروج متوقف على الانتهاء من أدخال بيانات معينة أو التراجع عن تلك البيانات التى تمت أدخالها بسبب وجود تضارب في بيانات معينة كمثل التكرار لبيانات وضعت أنت فيها خاصية عدم التكرار فى الجدول ، وعلى كل حال يمكن عمل ماكرو فيه الامر حفظ أولاً ثم الامر quit للخروج ومن ثم يوضع الماكرو في القائمة الخاصة shortcut

أرجو أن أكون وفقت في الرد عليك .

تقبل تحياتى .

[samihinnawi]

أولاً شكرا كثيراً على إهتمامك ياأستاذ جمال فايز، ولكن الموضوع بإختصار أنه لو إنى عملت Form لاتحوى أى بيانات وغير مبنيه على جداول أو إستعلام أو أى شئ، وحاولت الخروج من الأكسس وإغلاقه نهائيا عن طريق ShortCutMenu من هذه الفورم، وحسب ماأنا فاهم أنك تعمل ShotCutMenu ثم تدخل فى خواصها، وتعين Function مكتوبة فى Module كالآتى على سبيل المثال:

Sub Function QuitMe()

DoCmd.Quit

End Function

ثم نحفظ هذا ال Module

وعند ال RightClick على ال Form تظهر ال ShortCutMenu التى تم تعيينها لهذه الفورم أحصل على الرساله التاليه:

This Command 'Quit' is not available now ولايخرج من الأكسس

أعتقد إن الصورة أوضح الآن.. وللآن لم نحل المشكلة