تعديل كود غلق نموذج

[علي المصري]

السلام عليكم ورحمة الله وبركاته

اريد أن اعمل زر خروج ( غلق ) نموذج ولكن مع رسالة تحذيرية

تنبه على هل تريد بالفعل الخروج من الشاشة الحالية مثلا

وتشمل زري امر Ok , Cancle

لدي الكود التالي

Private Sub CloseMe_Click()

On Error GoTo Err_CloseMe_Click

If Me.Dirty Then Me.Dirty = False

MsgBox "هل تريد الخروج من شاشة ادخال بيانات الطلاب", vbInformation, "صيفنا مميز 2012"

DoCmd.close

Exit_CloseMe_Click:

Exit Sub

Err_CloseMe_Click:

MsgBox Err.Description

Resume Exit_CloseMe_Click


End Sub

ولكن لا يوجد به زر Cancel

مما لا يمكنني من الرجوع إلى الفورم أي انها تغلق ولا بد من فتحها من جديد

فهل من تعديل

تم تعديل يوليو 31, 2012 بواسطه علي المصري

[ابوخليل]

If MsgBox("هل تريد اغلاق النموذج", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "اغلاق") = vbNo Then

   Exit Sub

   Else

docmd.close

[علي المصري]

هل سيكون الكود في الشكل التالي صحيح 100% أم به شيئ خاطئ

Private Sub CloseMe_Click()

On Error GoTo Err_CloseMe_Click

If MsgBox("هل تريد اغلاق النموذج", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "اغلاق") = vbNo Then

Exit Sub

Else

DoCmd.Close

Exit_CloseMe_Click:

Exit Sub

Err_CloseMe_Click:

MsgBox Err.Description

Resume Exit_CloseMe_Click

	 End If

End Sub

تم تعديل يوليو 31, 2012 بواسطه علي المصري

[محمد ايمن]

صحيح إن شاء الله

[علي المصري]

شكرا أخي الكريم