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

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

fan0217

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

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