来源：爱赛思应用俱乐部 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