رسالة ... هل تريد حفظ التغييرات؟

[yasser_sf]

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

عندما ادخل سجل جديد والا كذا سجل في نموذج من النماذج , الوارد ام الصادر او اي نموذج كان.....

ثم اضغط زر الخروج"اغلاق النموذج"

أريده قبل ان يغلق النموذج أن يسألني هل تريد حفظ التغييرات؟

ويكون فيه نعم , ولا , و إلغاء الأمر....

وطبعاً عارفين اكيد نعم يعني يحفظ التغييرات

ولا , مايحفظ

وإلغاء الأمر , مايخرج من النموذج ولا يسوي شيء على آخر إضافة

أرجو ان الاستفسار وصل :(

[التقني]

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

أخي الكريم

جرب هذه الطريقة

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
   strMsg = "حصل تغيير في البيانات"
   strMsg = strMsg & "هل تريد الحفظ ؟"
   strMsg = strMsg & "نعم للحفظ ، لا للتراجع ."
   If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ السجل") = vbYes Then
      
   Else
       DoCmd.RunCommand acCmdUndo
       
   End If
              
   End Sub

تم تعديل ديسمبر 8, 2005 بواسطه التقني