用代码实现对数据修改或增加的取消

时　间:2007-10-18 21:37:16
作　者:zhuyiwen    ID：42  城市：广州
摘　要:用代码实现对数据修改或增加的取消
正　文:

来源：爱赛思应用俱乐部 zhuyiwen

在窗体中修改数据时，关闭窗体，数据已经修改，这样很容易产生错误数据.

可采用如下方法解决:

在窗体更新前判断:
代码：
--------------------------------------------------------------------------------

Private Sub FORM_BeforeUpdate(Cancel As Integer)
　 　　If MsgBox("保存吗?", vbYesNo, Me.Caption) <> vbYes Then
　 　　　　Cancel = True　 　　
End If　
End Sub　
' 去除系统的报错信息:　
Private Sub FORM_Error(DataErr As Integer, Response As Integer)
　 　　Response = acDataErrContinue
End Sub　

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店