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

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

[VB_Coder]

السلام عليكم

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

كود :

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]

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