Office中国论坛/Access中国论坛

标题: [求助]应如何撤消所有的操作 [打印本页]

作者: chenjun86666 时间: 2006-3-8 01:38
标题: [求助]应如何撤消所有的操作
我想制作一个保存的对话框,点取消时撤消本次所有的操作应如何写代码?

作者: fan0217 时间: 2006-3-8 03:17
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 时间: 2006-3-9 00:49
ACCESS 只能撤消最后一次的修改,如果打开一个窗体,多修改几次,撤消时并不是回到刚进来的状态.

如何解决这个问题?

作者: fan0217 时间: 2006-3-9 00:53
LucasLynn大师的作品：窗体操作回溯器（RsUndo）发布贴（当前版本：V2.0 正式版）

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

作者: 66666qqq 时间: 2006-3-13 04:11
谢谢fan0217

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

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

作者: binzhouxc721521 时间: 2006-3-13 06:05
建立一个表作为存档表，存档时进行以下操作：

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

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

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

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

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

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

作者: wangru 时间: 2009-10-29 23:44
我也正碰到此问题，好久未解决了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)