• 0
mas123

هل نستطيع وضع كود للخروج من نافذة الأكسس

سؤال

إخوتي

يحزنني ما يقوم به المستخدم من عدم الخروج من البرنامج من زر حروج لأنه يقوم بوظائف كثيرة عندي في البرنامج منها مثلا إعادة دقة الشاشة إلى ماكانت عليه وتشغيل ملف صوتي والخروج بالضغط على (x) الموجودة في نافذة الأكسس

والسؤال هو هل نستطيع وضع هذه الأكواد عند الخروج من البرنامج سواء بالضغط على زر خروج أو بالضغط على( إكس) كما هو موضح بالصورة ؟

أرجو الإفادة

post-121764-1189279437_thumb.gif

exit.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

16 إجابة على هذا السؤال .

  • 0

في حدث ور الأمر ضع الأمر التالي:

DoCmd.Quit

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم

يبدو أنك لم تطلع على الأكواد المكتوبة في زر الأمر خروج الموجود في النموذج ولم يصل إليك مطلبي بعد

على العموم في زر خروج كود لظهور رسالة تأكيد الخروج وتسأل المستخدم هل تريد الخروج وبها زر ok & cancel فلو ضغط على أوك سينفذ الأمر quit وإلا فلا

والمطلوب تنفيذ كل ما سبق (كود زر الأمر خروج) إذا ضغط المستخدم على (x) الموجودة في أعلى نافذة الأكسس والمشار إليها في الصورة

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

أين عباقرة الأكسس؟

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

إليك طلبك ولكن من بعد نسخ ال Module بالطبع لن تترك الزر متروك ليضغط عليه المستخدم

بل إنسخ هذا الكود وضعه في حدث on load form في أول نموذج يظهر عند فتح البرنامج

HideAccessCloseButton

وأتمنى أن أكون قدمت الإفادة

وشكراُ

exit.rar

تم تعديل بواسطه osman terek
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

نعم أخي الكريم يمكن ذلك من خلال الكود التالي

Private Sub Form_Close()


أكتب هنا ما تريد فعله


End Sub

تحياتي

تم تعديل بواسطه الفارس القديم
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي mas123

لم أقراء المشاركة بشكل جيد معذرة

وأتمنى أن أكون قدمت الإفادة

أي فائدة قدمت أخي osman terek

لا والله إلا مثال في قمة الروعة ولم يمر علي من قبل

الله يعطيك الصحة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مواضيع ذات صلة

عدم تفعيل زر اغلاق قاعدة البيانات

http://www.arabteam2000-forum.com/index.php?showtopic=129341

التحكم في عدم تفعيل او اظهار واخفاء زر اغلاق قاعدة البيانات

http://www.arabteam2000-forum.com/index.php?showtopic=117636

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أخي osman tarek

ولكن

* عمل هذا الكود على إخفاء الثلاثة أزرار الموجودة أعلى نافذة الأكسس وأنا أريد إخفاء الإغلاق فقط

* وضع الكود في حث عند الفتح يجعلنا لا نحتاج للزر الموجود بالنموذج

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

ظهر رد الأخت زهرة أثناء تعديلي للرد

مرحبا بالأخت زهرة منذ فترة لم أقرأ مشاركات لك .... أرجو أن يكون الحال كما هو مرام والحمد لله

شكرا على توجيهك لصفحات رائعة وأمثلة أروع

ولكن ألا نستطيع عمل المطلوب الأول ؟

على حد علمي ... ليس هناك مستحيل في البرمجة بإذن الله وخاصة على زهرة

وأتذكر تعليقا لك أعجبني ( ما أبقاش زهرة إن ما جبت خبرها)

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

شكرا لك

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي الكريم محمد

ملفك بعد التعديل

يوجد طريقتين لعدم تفعيل رز اغلاق قاعدة البيانات X اما بواسطة الماكرو او من خلال عند حدث التحميل

za_exit.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحمدلله اخي قد وصلت إلى ما تريد

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

بالطبع لن تترك الزر متروك ليضغط عليه المستخدم

واما بالنسبة لجعل زر الإغلاق فقط مخفي فقد قدمت هذا المشرفة زهرة

وبارك الله بكم جميعاُ

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يبدو أن الأخت زهرة لم تقرأ هذا التعديل

ظهر رد الأخت زهرة أثناء تعديلي للرد

مرحبا بالأخت زهرة منذ فترة لم أقرأ مشاركات لك .... أرجو أن يكون الحال كما هو مرام والحمد لله

شكرا على توجيهك لصفحات رائعة وأمثلة أروع

ولكن ألا نستطيع عمل المطلوب الأول ؟

على حد علمي ... ليس هناك مستحيل في البرمجة بإذن الله وخاصة على زهرة

وأتذكر تعليقا لك أعجبني ( ما أبقاش زهرة إن ما جبت خبرها)

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

شكرا لك

يسعدني الوصل لحل المطلوب الأول إن كان ممكن

محمد صالح

شكرا للجميع على المشاركة والمرور

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

إخوتي الكرام

بالتدقيق في الموضوع وجدت المستخدم يمكنه الخروج من البرنامج بالضغط على ALT+F4 فكيف يمكننا إيقاف هذه العملية حتى يستلزم الخروج الضغط على زر خروج ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي محمد صالح

الملف بعد التعديل

لعدم تمكين مفتاحي ALT+F4 نحتاج الى وضع هذين الكودين في حدث عند فتح النموذج وفي حدث عند الضغط على مفتاحي ALT+F4

كود عند فتح النموذج

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

كود عدم التمكين عند الضغط على مفتاحي ALT+F4

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 18, 115
KeyCode = 0
End Select
End Sub

za_exit_up.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا للأخت زهرة ..... عوده حميدة

حيث أن 18 هذا كود alt

و115 كود F4

ويمكننا الاستغناء عن الكود الأول بضبط خصائص النموذج إلى

مفتاح العرض التمهيدي ----- نعم

ولكن هل المطلوب الأول مستحيل ؟!

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ الفاضل - الأخوة الكرام

كل عام وانتم بخير

هذا على حد علمى لما هو مطلوب فى البرنامج (( بعد إذن الأستاذة / زهرة ))

وإذا لم يكن بالضبط المطلوب أرجو من الأخ الكريم وضع المطلوب على هيئة

1 -

2-

3 -

وله جزيل الشكر

اخيكم

محمد جلال

za_exit_up.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل محمد صالح

صدقني بالله انني لم افهم منك قولك ( المطلوب الأول ) في مشاركتك

فماذا تريد بالضبط ان يتم في البرنامج

وتأكد انه لا يوجد شيء مستحيل فجميع الأكواد نستطيع ان نشكلها ونكيفها على كيفنا مثل العجينه .

ما اريده منك ان تشرح لي ما هو المطلوب ؟

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

لأن زر الخروج X من نافذة برنامج الأكسيس هو خاص بدوال الـ API وليس من خصائص الأكسيس مثل ما هو موجود في النموذج ( زر الإغلاق )

لهذا سيكون التعامل معه صعب قليلا ولكن سنحاول ان نصل اليه بأي طريقه .

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

اذا كان لديك فكره معينه تريد تطبيقها فأبلغنا بها وسأقوم بتنفيذها برمجيا فلا يوجد شيء مستحيل او لا يمكن تحقيقه فقد شاب رأسي من كثرة الأكواد البرمجية .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المطلوب الأول مشار إليه في المشاركة الأولى

والسؤال هو هل نستطيع وضع هذه الأكواد عند الخروج من البرنامج سواء بالضغط على زر خروج أو بالضغط على( إكس) كما هو موضح بالصورة ؟

أرجو الإفادة

ومشار إليه في المشاركة الثالثة

والمطلوب تنفيذ كل ما سبق (كود زر الأمر خروج) إذا ضغط المستخدم على (x) الموجودة في أعلى نافذة الأكسس والمشار إليها في الصورة

وبتوضيح أكثر

هل ممكن وضع الكود الموجود في زر الأمر خروج (رسالة تأكيد الخروج) عند الضغط على زر إغلاق نافذة الأكسس في حال تنشيطها وتظهر الرسالة فإذا ضغط المستخدم على ok ينفذ الأمر quit وإذا ضغط cancel لا يخرج من التطبيق

وبالنسبة لبرنامجي فما يمكن تطبيقه على كود الرسالة أستطيع تغيير الأكواد لحدمة برنامجي مثل العودة بدقة الشاشة لماكانت عليه وتشغيل ملف صوتي عند الخروج وهكذا

فإن كان ممكنا أرجو استعمال كود رسالة الخروج والموجود في زر الأمر خروج

أتمنى أن أكون قد أوضحت

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .