Close the form with out saving

[JAMBAI]

Hi,

I have a MS Access form,and its recordsource is some search query.

When I click the close button (not the X mark) what ever data I typed in the form field are saved into the database.

DoCmd.Close acForm, Me.NAME is the code behind that button click event.

Let me know how to close the form without saving the data.

Thanks
Jambai

[MMcCarthy]

Hi Jambai

You need to run an Undo command first as follows:

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close acForm, Me.Name

Mary

[NeoPa]

It's difficult for me to test this atm (& Mary's code will work anyway :)), but try this :

Me.Dirty = False
Call DoCmd.Close(acForm, Me.Name)

Actually, put it in the OnClose event procedure instead :

Private Sub Form_Close()
  Me.Dirty = False
End Sub

That way it doesn't matter if the operator does use the forms x.

[JAMBAI]

Thank you so much for your responses.

I tried with Me.Undo, it worked.

Thanks
Kumar

[NeoPa]

Nice one Kumar.
I'm not absolutely sure if that will work if/when multiple changes are made on the form before it's exited. If you find that's a problem, simply try out the Me.Dirty approach :)

[MMcCarthy]

Nice one Kumar.
I'm not absolutely sure if that will work if/when multiple changes are made on the form before it's exited. If you find that's a problem, simply try out the Me.Dirty approach :)

I should work for any unsaved changes to the forms data.

Mary

[NeoPa]

So it's like an UndoAll rather than an UndoLastChange then :)

[MMcCarthy]

So it's like an UndoAll rather than an UndoLastChange then :)

Essentially if you edit a saved record it will undo all changes and revert back to the saved record.

Mary

[nayrbreps05]

Hi Jambai

You need to run an Undo command first as follows:

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close acForm, Me.Name

Mary

But if u didn't type anything and click the close command button message will appear that undo is not available right now...

[NeoPa]

Me.Dirty tells you if you need to run the undo (Call Me.Undo seems easiest).