الحفظ من زر الحفظ

[رعد داود]

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

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

[رعد داود]

وهذا ملف للتطبيق

برنامج القروض.rar

[محمد أبوعبدالله]

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

يمكنك استخدام الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
     Me.Undo
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

[رعد داود]

7 minutes ago, محمد ابوعبد الله said:

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

يمكنك استخدام الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
    On Error Resume Next
    DoCmd.SetWarnings False
    If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
     Me.Undo
    End If
    DoCmd.SetWarnings True
End Sub

تحياتي

شكرا   جاري  التجربة

[alaa aboul-ela]

Private Sub cmdSave_Click()
    fieldname = True
   docmd.GoToRecord ,,acNewRec
    blnGood = False
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
 
    If Not fieldname Then
        strMsg = "هل تريد الحفظ والانتقال لسجل جديد ؟؟?"
        If MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm") = vbYes Then
            Me.Undo
        Else
            Cancel = True
        End If
    End If

end sub لا تنسى 

 

تم تعديل يناير 22, 2020 بواسطه alaa aboul-ela

[alaa aboul-ela]

طريقة اخرى

تجبرك على الحفظ في حالة كون السجل فاضي 

If me.dirty then

    me.dirty = false

end if

end sub

[رعد داود]

شكرا  لكما  احبتي  استفدت من الردود