窗体修改、更新、新增数据如何才能出现提示窗口

lilianban

我做了个销售发货单,在子窗体更新或新增或修改数据时没有任何提示,很容易出错,请问在子窗体修改或新增数据如何才能出现提示窗口(提示是否要保存对窗体"     "的更改或新增数据然后是、否、取消之类的窗口)

hi-wzj

看子窗体中的"更新前""删除"等事件.

boy8848

我从别处抄了一个你看看能用不：


检查数据是否被修改，无则退出，有则询问是否保存


'在窗体的字段的“属性”“事件”“更新后”的右边输入“=NoAllowSave()”，
'在窗体的“打开”事件中代码“allowSave = False”
'定义模块
Option Compare Database
Option Explicit
Public allowSave As Boolean
Public Function NoAllowSave()
    allowSave = True
End Function
“退出”按钮的单击事件代码
If allowSave = True Then
   If MsgBox("当前数据已经被修改，是否保存？", vbYesNo + vbQuestion, "请选择...") = vbYes Then
   Else
      Me.Undo
   End If
End If
DoCmd.Close

boy8848

还有一种！！





在窗体更新前判断:


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