数据更新事件从“更新前”改为“更新后”代码如何更改？

Lee　发表于：2010-10-07 11:44:52 　

参考麦田先生的数据更新保存例子：http://www.accessoft.com/article-show.asp?id=1319 ，其方法如下：

第一:进入修改窗体的设计状态→窗体属性→事件→更新前→选择[事件过程]→单击右面的"…"
第二:点击进入了VBA编辑界面,在鼠标光标处输入以下红色部分代码:
If MsgBox("此数据已编辑，是否保存？", vbQuestion + vbYesNo, "中国汽车零部件管理信息系统") = vbNo Then
Me.Undo
End If

但修改记录较多时，要每个记录确定是否保存不是很方便，所以我想把事件改为更新后，在退出窗体时再询问是否保存。

但在更新后事件中套用上述代码，不管确定保存与否，数据记录都会被修改，请问代码要如何相应地更改？

Top

爱吉瑞发表于：2010-10-07 12:04:22

你可能设置的是每个文本框Beforeupdate事件,其实只要设置整个窗体的Beforeupdate事件即可.代码是相同的。

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("此数据已编辑，是否保存？", vbQuestion + vbYesNo, "中国汽车零部件管理信息系统") = vbNo Then
Me.Undo
End If

End Sub

这样在窗体中修改完数据,保存时只提示一次了。

Top

Lee 发表于：2010-10-07 19:46:54

不是，我确实是设置窗体的，只不过是子窗体罢了，当你修改完一个字段内容把光标移至另一字段，就会弹出询问窗口，不信你可以试试。

Top

羽扇子君发表于：2010-10-08 07:13:09