[求助]如何实现没做修改enable撤销键，做了修改激活撤销键，按了保存之后重新enabl

babydidi

我使用这个撤销命令
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

但在调试过程中出现错误
当我数据没做修改时，就会弹出错误框，所以我想到这个办法，但不知道如何实现，求达人相助。
谢谢！

Grant

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("保存?", vbOKCancel, "提示") = vbOK Then
        
    Else
        Me.Undo
    End If
End Sub



可以在窗体更新前事件,至于修改激活在每个控件中更新后事件写入,但是太烦琐了.

babydidi

谢谢楼上，我已经加入和你那个类似的语句
我明白你的意思了，确实相当繁琐。
那有没有办法屏蔽错误提示而改成不执行任何操作？

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim a As Integer

a = MsgBox("是否保存？", vbOKCancel + vbQuestion, "提示")

If a = vbOK Then

MsgBox "保存成功！"

Else

    If a = vbCancel Then
   
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
   
    End If
   
End If

End Sub

babydidi

好像解决了。。。

On Error GoTo Button_Err

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Button_Err:
    MsgBox "还未做出任何修改", , "^__^"
    Resume Button_Exit