| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1196 人关注过本帖
标题:[求助]为什么我用的access会自动保存。
只看楼主 加入收藏
实况人
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-2-17
收藏
 问题点数:0 回复次数:1 
[求助]为什么我用的access会自动保存。

为什么我用access的时候不用按保存按钮,直接把数据表关掉或把access关掉也不会提示内容被修改,是否要保存呢。
而且重新打开的时候已经被保存了,不爽啊。有时候怕不小心改了什么内容直接被保存也不知道啊。
各位大大谁教教我。

搜索更多相关主题的帖子: access 自动 保存 
2006-02-17 08:34
gy0503
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-2-13
收藏
得分:0 
1、新建一模块把下面代码复进去:
Option Compare Database
Option Explicit
Public allowSave As Boolean
Public Function NoAllowSave()
allowSave = True
End Function
2、把“=NoAllowSave()”复制到所有文本框属性里的事件选项卡中的“更改”右边的文本框里
Private Sub Form_Open(Cancel As Integer)
'在窗体打开事件里输入
allowSave = False
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
'在窗体更新前事件里输入:
If allowSave = True Then
If MsgBox("当前数据已经被修改,是否保存?", vbYesNo + vbQuestion, "请选择...") = vbYes Then
Else
Me.Undo
End If
End If
End Sub

http://gy0503.id666.com
gy0503@126.com


青山在脚下,云海任翱翔。一羽揽乾坤,绝无两相同。
2006-02-19 10:06
快速回复:[求助]为什么我用的access会自动保存。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056891 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved