Correction using undo function (1 Viewer)

[spleewars]

on event of a yes/no button

if me.object 1 then
unitsection = 0#
else
if me.object 1 then
unitsection.undo
end if
end if
end sub

the undo function is not working... any better idea?

 

[Beetle]

Your code makes no sense.

if me.object 1 then

What is me.object? Is the button, or some other field/control, named object? If so it shouldn't be as Object is a Access / VBA reserved word. If it's a Yes/No field it will either be True (-1), False (0) or possibly Null, not 1. Plus, you're using the same argument in two different If statements, one inside the other, so the second If statement will never be processed.

Can you clarify what it is you're trying to do here?

 

[ghudson]

This should give you an idea on how to use an Undo function...

    If MsgBox("Do you want to Undo the unsaved changes you have made to the current record?", vbQuestion + vbYesNo, "Undo Changes") = vbYes Then
        If Me.Dirty Then
            DoCmd.RunCommand acCmdUndo
        Else
            MsgBox "There were no modifications made to the current record.", vbInformation, "Invalid Undo"
        End If
    Else
        MsgBox "User aborted the Undo function.", vbCritical, "Aborted Undo"
    End If

 

[Pat Hartman]

DoCmd.RunCommand acCmdUndo
and
Me.Undo
both undo ALL pending changes for the current form.

Me.ControlName.Undo
only backs out the change to the named control.

 

[Regina A. Reali]

Okay, I know that it undid my correction. I am thorougly confused.

 

[boblarson]

Okay, I know that it undid my correction. I am thorougly confused.

As I said, CTRL+Z RUNS the undo function. It isn't the undo function.

 

[Regina A. Reali]

Ok thank you.