Can someone help me add an exception argument to my cancel as integer sub?

[xwnoob]

So i have this code:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
'Ensure that users do not accidentally save records
If MsgBox("Do you want to save the updated records?", vbOKCancel, "Save?") = vbCancel Then


Me.Undo
End If
End If
End Sub

How do i add a code inside that creates an exception for a button that goes to a new record? I want to add the exception for my add new record button but i dont know which function/command to use

[boblarson]

First off, if the Before Update event fires, the form is dirty so you don't need to check that. Second, do you want it to save when the new record button is clicked but not if it is navigated to in another way? Or what?

[xwnoob]

First off, if the Before Update event fires, the form is dirty so you don't need to check that. Second, do you want it to save when the new record button is clicked but not if it is navigated to in another way? Or what?

Yes i would like it to save when the new record button is clicked but not any other way thats why i did the me.undo. My form has 2 subforms on it and i intend to add a new record button to each of them so that the only way you can save the records are to click on the buttons

[boblarson]

You can set a flag for the Before Update event by putting this:

Private blnSave As Boolean

in the general declarations section of the form's code (that is up after the OPTION COMPARE DATABASE and, if you have it set, the OPTION EXPLICIT).

then you would set it to TRUE in the click event of the form's save button:

Private Sub YourButtonNameHere_Click()
   If Me.Dirty Then
      blnSave = True
      Me.Dirty = False
   End If
   
End Sub

Then in the form's BEFORE UPDATE event you would use:

Private Sub Form_BeforeUpdate(Cancel As Integer)
   Cancel = (Not blnSave)
End Sub