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

[mas123 42]

إخوتي

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

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

أرجو الإفادة

exit.rar

[مصلح الحريصي 15]

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

DoCmd.Quit

[mas123 42]

أخي الكريم

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

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

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

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

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

تم تعديل 8 Sep 2007 بواسطه mas123

[عثمان الترك 0]

السلام عليكم

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

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

HideAccessCloseButton

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

وشكراُ

exit.rar

تم تعديل 8 Sep 2007 بواسطه osman terek

[الفارس القديم 0]

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

Private Sub Form_Close()


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


End Sub

تحياتي

تم تعديل 8 Sep 2007 بواسطه الفارس القديم

[مصلح الحريصي 15]

اخي mas123

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

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

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

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

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

[zahrah 4,304]

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

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

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

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

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

[mas123 42]

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

ولكن

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

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

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

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

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

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

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

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

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

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

شكرا لك

تم تعديل 9 Sep 2007 بواسطه mas123

[zahrah 4,304]

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

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

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

za_exit.rar

[عثمان الترك 0]

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

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

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

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

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

[mas123 42]

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

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

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

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

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

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

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

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

شكرا لك

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

محمد صالح

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

[mas123 42]

إخوتي الكرام

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

[zahrah 4,304]

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

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

لعدم تمكين مفتاحي 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

[mas123 42]

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

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

و115 كود F4

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

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

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

تم تعديل 10 Sep 2007 بواسطه mas123

[Mohamed Galal 3]

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

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

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

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

1 -

2-

3 -

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

اخيكم

محمد جلال

za_exit_up.rar

[zahrah 4,304]

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

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

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

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

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

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

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

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

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

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

[mas123 42]

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

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

أرجو الإفادة

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

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

وبتوضيح أكثر

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

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

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

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