عند اضافة فاتورة لا يقوم البرنامج بحفظ الفاتورة

اخي الفاضل

استخدم هذا الكود في حدث قبل التحديث للنموذج

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
 If MsgBox("هل تريد حفظ هذه الفاتورة ؟", vbQuestion + vbYesNo + vbDefaultButton1, "حفظ الفاتورة") = vbNo Then
  Me.Undo
 End If
Else
 If MsgBox("هل تريد حفظ هذه الفاتورة ؟", vbQuestion + vbYesNo + vbDefaultButton1, "حفظ الفاتورة") = vbNo Then
  Me.Undo
 End If
End If
End Sub

لا يتم الحفظ التلقائي سواء كانت الفاتورة جديده او فاتوره مسجلة مسبقا إلا بعد موافقتك ( بنعم ) وعدى ذلك لن يتم الحفظ

بالتوفيق