*فورم* : لاعطاء فرصة للتراجع قبل تعديل سجل

لاعطاء فرصة للتراجع قبل تعديل سجل

http://www14.brinkster.com/mtarafa/forms/u...dateconfirm.zip

Private Sub Salary_BeforeUpdate(Cancel As Integer)
If MsgBox("  هل تريد تغيير المرتب فعلاً ؟؟ ", vbYesNo, _
   " رسالة تأكيد تغيير المرتب ") = vbNo Then
   Cancel = True
   SendKeys "{ESC}"
   Exit Sub
End If

End Sub