access vba disable auto save record
Private Sub Form_BeforeUpdate(Cancel As Integer) If Not (Me.NewRecord) Then If MsgBox("Would You Like To Save The Changes To This Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save Changes to Record ???") = vbNo Then Me.Undo End If Else If MsgBox("Would You Like To Save This New Record?", vbQuestion + vbYesNo + vbDefaultButton1, "Save This Record ???") = vbNo Then Me.Undo End If End If End Sub
Source: www.access-programmers.co.uk