منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود عند الخروج من الشاشه تظهر رساله تريد الحفظ ام لا

السلام عليكم ورحمه الله وبركاته
كيفكم اخواني الكرم
لعل تكونوا بخير
اريد ان اسال عن كود يجعل المستخدم اذا نسى الضغط على زرار الحفظ تخرج له رساله عند ضغطه على زرار عوده وخروجه من الصفحه تساله اذا كان يريد الحفظ ام لا ومع الموضوع مثال مرفق لتطبيق الكود عليه

السلام عليكم

- في البداية قم بتعريف متغير في المنطقة العامه في أعلى كود الفورم . كهذا :

كود :

Dim Is_DataChanged  As Boolean

- ثم ضع هذا السطر في حدث اللود للفورم Form_Load :

كود :

Is_DataChanged = False

- بعد ذلك ضع هذا السطر في داخل حدث الـ Text _Change لجميع التكستات التي يمكن تغيير أو تعديل البيانات فيها جميع تكستات البياات الرئيسية وتكستات رصيد الإجازة :

كود :

Is_DataChanged = True

- وضع هذا السطر في آخر كود زر الحفظ بعد RS.Update :

كود :

Is_DataChanged = False

- ثم أخيرا ضع هذا الكود في أعلى كود زر العودة :

كود :

If Is_DataChanged = True Then

   If MsgBox("لقد قمت بتعديل البيانات . هل تريد حفظ التعديل؟", vbYesNo + vbExclamation, "") = vbYes Then

      OsenXPButton2_Click

      DoEvents

   End If

End If

- تحياتي .

شكرا اخى كريم الخلق وانار الله لك طريقق بالعلم والايمان

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

رجل الكهرباء_mybb_import4729

VB_Coder

رجل الكهرباء_mybb_import4729