Undo one action only

[zoooza84]

Hello all,



I have a form that has multiple text boxes. Was trying to add an Undo button that behaves exactly the same as the (Ctrl+Z) or the undo button used in microsoft access, word, excel ..etc. as it only undos one action in a click. When added the undo button i used just a normal button and added a code to it. if i type in different text boxes and press on the undo button it undos everything modified since the form was opened. Is there a way to change that ?

Looking forward to read your replies ...
Thank you in advance.

[Bob Fitz]

Hi

Can you post your code for the button?

[zoooza84]

Code for the undo Button
Private Sub Undo_Click()
DoCmd.RunCommand acCmdUndo
End Sub
----------------------------------

Private Sub Form_Current()
Me!Undo.Enabled = False
End Sub
------------------------
Private Sub Form_Dirty(Cancel As Integer)
Me!Undo.Enabled = True
End Sub

-----------------------------

[Bob Fitz]

Hi

Please try this code in the OnClick event of your button.

    Dim ctrl As Control
    For Each ctrl In Me.Form
        If ctrl.ControlType = acTextBox Then
            If ctrl.Value <> Nz(ctrl.OldValue, "") Then
                ctrl.Value = ctrl.OldValue
                Exit Sub
            End If
        End If
    Next

Dose this work as you require?

[zoooza84]

Hi,

Thank you Bob for your Reply ...
I tried the code, But it undos the first change i made on the form and then the one after, one after until the last change, i.e it undos the oldest.
And it undos all changes in a certain box, i.e. if i make changes in (text box 1) and then go to (text box 2) and make more changes, if i use the button it'll undo all changes made in (Text Box 1) and if i press again it'll undo all changes made in (Text Box 2), while the action of a Ctrl+Z is undoing one action at a time.

Is it possible to adapt that behavior (Ctrl+Z)?

Thanks again for your help

[Bob Fitz]

If I understand correctly, you want each click of the button to undo the the last change in whatever textbox was last changed and each subsequent click to do the same.
I can't say that I know how to do this. Thinking out lould and without thinking it through, the only way I can think of, is to create a log table in which you could store the old value of each field. The field's "OldValue" would need to be written to the table in the AfterUpdate event of each field. The OnClicked event of the button could then be used to lookup this value and replace the current textbox value.