undo button

[enrico via AccessMonster.com]

my undo wizard button doesn't work, it only gives an alert message everytime
i click it something like:

"the command or action 'undo' isn't available right now".

is there a way or how can i code the cancel or undo button?

 

[Allen Browne]

Assuming a bound form where things can be editied, try this:

Private Sub cmdUndo_Click()
If Me.Dirty Then Me.Undo
End Sub

If that doesn't work, something else is going on.

 

[Linq Adams via AccessMonster.com]

The Wizard code for Undo throws this error when either the form is unbound or
the current record is already saved. Allen's code, unlike the Wizard's,
checks if the record is dirty before attempting to Undo it, and will
eliminate the error message. If the record has already been saved, which
sounds like the case here, Undo will have no effect.