Undo is isn't available

[Vcscwi]

I have a form with a save and cancel button.

My cancel button has...

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

but if the user has not made any changes, VBA creates an error stating "UNDO is not available at this time".

Is there a way to run a check to avoid this error?

Thanks for the suggestions!

 

[Cretin]

Can you do an on error routine now I am no expert but it might go something like this.

On error go to handleundo





handleundo:
If (err= undoerror) then
resume next'

You would need the message number of the error to define it as a variable.

Cretin

 

[traingamer]

try

if Me.Dirty Then
   DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
end if
DoCmd.Close , , acSaveNo

Me.Dirty returns true if the record has been changed but not yet saved.

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill