Office中国论坛/Access中国论坛

标题: 窗体修改、更新、新增数据如何才能出现提示窗口 [打印本页]

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

作者: hi-wzj 时间: 2006-12-6 22:05
看子窗体中的"更新前""删除"等事件.

作者: boy8848 时间: 2006-12-7 01:00
我从别处抄了一个你看看能用不：

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

'在窗体的字段的“属性”“事件”“更新后”的右边输入“=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 时间: 2006-12-7 01:09
还有一种！！

在窗体更新前判断:

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　

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)