Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access开发平台

Access开发平台不需要手动刷新即可获取列表窗体最新数据

时 间:2018-11-06 08:31:24
作 者:伊西军   ID:63090  城市:无锡
摘 要:有使用Access快速开发平台的朋友询问:多人同时使用时,如何不手动点击刷新,就可以在列表窗体展现出最新的数据呢?
正 文:

一、问题描述:

      有使用Access快速开发平台的朋友询问:多人同时使用时,如何不手动点击刷新,就可以在列表窗体展现出最新的数据呢?

二、问题解答:

1、在 Sys_ServerParameters 表中添加一组数值:

     ParameterName:LastChangeUnixTime

     Value:空值即可


2、新建一个模块:ModulForRefreshList,里边写如下代码:

     Public unixTime As String

     Public Function getUnixTime()

         getUnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())

     End Function


3、在对应列表窗体的事件里边 设置计时器间隔位500  计时器触发里边写:

     If getparameter("LastChangeUnixTime", , , , , True) <> unixTime Then
         unixTime = getparameter("LastChangeUnixTime", , , , , True)
         Call Me.Parent.btnRefresh_Click
     End If


4、在对应列表窗体的打开事件里边添加:

     unixTime = getparameter("LastChangeUnixTime", , , , , True)


5、在对应编辑窗体的保存按钮事件里边添加如下代码在提示保存成功的代码前边:

     Call SetParameter("LastChangeUnixTime", dbText, getUnixTime(), True)



Access快速开发平台QQ群 (群号:84825014)       access源码网店

最新评论 查看更多评论(4)

2018/11/9 22:49:14Victor Duane
窗体数据在加载时控制数量,不要加载过多的数据

2018/11/9 22:48:29Victor Duane
把SFRLIST改为记录集,并把修改,删除,新增 选为否

2018/11/9 22:47:08Victor Duane
直接改写为CURRENTDB.EXECUTE即可

2018/11/8 9:07:19陈宏凯
学习了

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助