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