<<< 返回 access911.net 编程静态资料库索引页 新手来看:傻瓜问题,如何使窗体在保存数据前提示? 作者:cg1 摘自:access911.net 录入:cg1 时间:2005-1-28 浏览人次:860
专题地址:http://access911.net/index.asp?u1=a&u2=72FAB31E16DCEFF3 如果需要更详细的评论或说明,请点击该地址。 简述:新手来看:傻瓜问题,如何使窗体在保存数据前提示? 问题:
回答:
| 在窗体更新前事件中编程即可。 Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("您更改的数据是否要保存?", vbDefaultButton2 + vbYesNo) = vbNo Then Cancel = True End If End Sub |
注意 Cancel 参数的使用,如果根本不想使用 ACCESS 的自动保存功能并且也不想有提示,那么在 BeforeUpdate 事件中加一个判断,然后再调用 Cancel = True 就可以了。要保存用 Access 命令按钮向导生成的“记录保存”按钮即可。 比如: '在窗体公共部分声明一个变量 Dim blnCanSave As Boolean Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Form_BeforeUpdate_Err If blnCanSave = False Then C..................... ........... |
|
|