Force form not to save updated fields

[Evgeny]

I have following code here, it works fine. But how do i force form not to save updated field on vbNo button.

Private Sub cmd_CloseCustomerInfo_Click()

Dim Answer As String

If Me.Dirty Then

Answer = MsgBox("Do you want save changes?", vbQuestion + vbYesNo, "Confrim")

Select Case Answer

Case vbYes

DoCmd.RunCommand acCmdSaveRecord

DoCmd.RunCommand acCmdClose

Case vbNo

DoCmd.RunCommand acCmdClose

End Select

Else

DoCmd.RunCommand acCmdClose

End If

End Sub

Thank you

[pbaldy]

I would probably use the before update event, but you can probably use the Undo method to unwind whatever was done on the form.

[Evgeny]

DoCmd.RunCommand acCmdUndo worded fine. thank you