如何做到提示窗体每30秒刷新一次

george21312　发表于：2014-08-09 10:33:23 　

上面是右下角提示的源文件，如何做到让该窗体每30秒刷新一次

cspa 发表于：2014-08-09 14:21:28

DTimer() 事件做如下修改：

Private Function DTimer()
    Dim N As Integer

    If D >= 1888 Then                      '改9999999为1888
        Me.OnTimer = "=HidenTimer()"
        Me.OnTimer = "=ShowTimer()"        '新增语句
        D = 0                              '新增语句
        Exit Function
    End If
    D = D + 1

End Function

Top

george21312 发表于：2014-08-10 15:04:55

谢谢大神了，我希望的是只刷新窗体的显示内容，而不是重新打开窗体，大神请问怎么操作

Top

cspa 发表于：2014-08-11 09:06:52

是这样吗？点击下载此附件

将DateAdd("S", 5, Time) 中的5，改为30即为30秒刷新一次。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何做到提示窗体每30秒刷新一次