Cancel button for adding data

[eliotchs]

Hi,

I have the following in ona cancel button on a form
it works but i get a blank dialog box after it closes???



Thanks in Advance

Joe

Private Sub Command298_Click()
On Error GoTo Err_Command298_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close

Exit_Command298_Click:
Exit Sub
Err_Command298_Click:
MsgBox Err.Description
Resume Exit_Command298_Click

End Sub

[boblarson]

First off, get rid of the DoCmd.DoMenuItem code. that is old legacy code that is just around for backwards compatibility.

Use

Me.Undo

or

DoCmd.RunCommand acCmdUndo

And the close, you should be explicit so that Access doesn't get confused. If you want to close that form, you can use this code (with no changes to it whatsoever):

DoCmd.Close acForm, Me.Name, acSaveNo

(it is important to use acSaveNo so that design changes aren't saved to your form, including filters - and acSaveNo has nothing to do with records)