علي المصري قام بنشر يوليو 31, 2012 قام بنشر يوليو 31, 2012 (معدل) السلام عليكم ورحمة الله وبركاته اريد أن اعمل زر خروج ( غلق ) نموذج ولكن مع رسالة تحذيرية تنبه على هل تريد بالفعل الخروج من الشاشة الحالية مثلا وتشمل زري امر 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 بواسطه علي المصري
ابوخليل قام بنشر يوليو 31, 2012 قام بنشر يوليو 31, 2012 If MsgBox("هل تريد اغلاق النموذج", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "اغلاق") = vbNo Then Exit Sub Else docmd.close
علي المصري قام بنشر يوليو 31, 2012 الكاتب قام بنشر يوليو 31, 2012 (معدل) هل سيكون الكود في الشكل التالي صحيح 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 بواسطه علي المصري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.