一、问题描述:
有使用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)