احساس النموذج بتغيير البيانات بداخله

[sayed fox]

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

لدي نموذج فاتورة مبيعات

يوجد بهذا النموذج عدة ازرار مثل الحذف و التعديل و الطباعة و الاغلاق

بالنسبة لزر الاغلاق وهو يؤدي الى اغلاق النموذج

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

بياناته فقبل الاغلاق يظهر رسالة للمستخدم ان هناك تغييرات حدثت هل تريد حفظ التعديلات؟

فاذا كانت الاجابة نعم يتم الحفظ و اغلاق النموذج

واذا كانت لا فيتم التراجع عن التغييرات و اغلاق النموذج.

[منذر عساج]

أخي الكريم :

ضع في حدث قبل التحديث للنموذج الكود التالي :

If MsgBox("  هل تريد حفظ التغييرات ", vbYesNo, _
" تأكيد الحفظ") = vbNo Then
 Cancel = True
 SendKeys "{ESC}"
 Exit Sub
End If

تم تعديل أبريل 17, 2007 بواسطه منذر عساج