[求助]应如何撤消所有的操作

chenjun86666

我想制作一个保存的对话框,点取消时撤消本次所有的操作应如何写代码?

fan0217

Private Sub Form_BeforeUpdate(Cancel As Integer)

If MsgBox("是否保存客户资料？ 单击取消将撤销本次输入。", vbOKCancel + vbQuestion, "提示") = vbOK Then

MsgBox "保存成功！", 64, "提示"

Else   
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 '撤销本次输入
   
      
End If

End Sub

66666qqq

ACCESS 只能撤消最后一次的修改,如果打开一个窗体,多修改几次,撤消时并不是回到刚进来的状态.

如何解决这个问题?

fan0217

LucasLynn大师的作品：窗体操作回溯器（RsUndo）发布贴（当前版本：V2.0 正式版）

http://www.office-cn.net/forum.php?mod=viewthread&tid=32308&replyID=&skin=1

66666qqq

谢谢fan0217

LucasLynn大师的作品太强了，有时间要好好研究才行。

我只是想问问有没有简单一些的方法，只需退出如不保存就退回到刚进来的样子。

binzhouxc721521

建立一个表作为存档表，存档时进行以下操作：

删除查询：删除存档表所有记录

追加查询：将本次输入更新的表追加到到存档表

制作一个保存的对话框,点取保存，可用宏或 vba自动实现这两个操作查询，

反之，如不需保存，需撤消本次所有的操作，用 宏或 vba自动实现下面两个操作查询：

删除查询：删除本次输入表所有记录

追加查询：将存档表追加到到本次输入的表

wangru

我也正碰到此问题，好久未解决了！