عند إغلاق النموذج لدي رسالة تأكيد هل تريد إغلاق النموذج إذا إخترت (نعم) فيقوم بإغلاق النموذج دون أية مشكلة ولكن إذا إخترت (لا) تظهر رسالة خطأ
ملاحظة مهمة جداً تظهر المشكلة فقط إذا إخترت إغلاق النموذج من زر أمر أمر إذا إخترت إغلاق عن طريق زر X فلا تظهر أية مشكلة
أرجو منكم حل المشكلة وجزاكم الله خيراً
إليكم المثال ...
ملفك بعد التعديل
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
أخي الكريم جزاك الله خيراً ولكن بهذا الكود لن تظهر أي رسالة خطاً سيتجاوز كل الأخطاء يعني ربما يظهر خطأ آخر عند إغلاق النموذج لا أريد إخفائه ...
على فكرة أنا حاولت أني أخذ رقم الخطأ وأحاول إيقافه عن طريق عبارة if ولكن دون فائدة نرجو المساعدة بطريقة أخرى وجزاكم الله خيرا
تم تعديل هذه المشاركة بواسطة fehme في 18 سبتمبر 2008 في 02:38
عزيزي هيما تحياتي
عزيزي السائل، تفضل، ضع هذا الكود في حدث زر الامر الخاص بالاغلاق
استخدام حدث Unload يؤدي الى بعض لاخطاء
Private Sub Command0_Click()
x = MsgBox("هل تريد الخروج", vbOKCancel + vbDefaultButton1, "")
If x = 1 Then
DoCmd.Close
Else
Exit Sub
End If
End Subالرقم 1 هنا يمثل القيمة التي يتعامل معها بالكود لزر الامر الموجود في الرسالة، وهنا
vbOKCancel
ياخذ الزر Cancel = 2 والزر OK = 1
تحياتي وارجوو ان تكون بفائدة
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ