كيف يمكن الحفظ فقط من خلال زر حفظ

[بوعبد الله محفوظ]

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

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

الفورم المقصود هو العملاء وأيضا الجدول بنفس الاسم

قمت بإضافة الكود التالي

Private bSaveButtonClicked As Boolean

ثم قمت بإضافة الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Answer As Long
Answer = MsgBox("لم تقم بحفظ المعلومات هل أنت متأكد من ذلك", vbYesNo + vbInformation)
 If Not bSaveClicked Then
        If Answer = vbYes Then
 Cancel = True
        If Answer = vbNo Then
Cancel = False
Me.Undo
 
End If
        End If
                End If
End Sub

كل شيء يشتغل تمام

لكن عند الضغط على "no" يقوم الفورم بالحفظ والإغلاق

وأنا أريده أن يبقى في نفس الفورم بدون أي تغييرات

بارك الله فيكم وفي علمكم

الفانورة4.rar