[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

- تحياتي .