实时显示数据

luoqin　发表于：2010-11-05 20:39:35 　

复制

如何在窗体中实时显示数据，就是随着时间的变化数据的采集而时刻着显示采集的数据，这个具体如何实施，请高手指点，谢谢

Top

wj.s 发表于：2010-11-05 23:21:30

利用窗体属性中的计算器就可以编程每隔一个指定的时间刷新窗体的数据,以达到实时显示数据.

注意,计时器间隔的时间是指毫秒

举例:

1.窗体设计视图->属性->计时器触发->选"[事件过程]"->点右边的[...]->进入VBA代码窗口,输入以下代码:

Private Sub Form_Timer()
    ' 如果计时器间隔为0,执行代码
    If Me.TimerInterval = 0 Then
        ' 刷新窗体
        Me.Requery
        ' 计时器间隔重置为600毫秒
        Me.TimerInterval = 600
    End If
End Sub

2.窗体设计视图->属性->计时器间隔->输入600

以上设置是每个600毫秒刷新一次窗体,你自己可以根据需要修改下间隔的时间

Top

wj.s 发表于：2010-11-06 17:08:37

更正下上述的代码:

    ' 如果计时器计数至600毫秒,执行代码
    If Me.TimerInterval = 600 Then
        ' 计时器间隔重置为1毫秒
        Me.TimerInterval = 1
        ElseIf Me.TimerInterval = 1 Then
            ' 刷新窗体
            Me.Requery
            ' 计时器间隔重置为600毫秒
            Me.TimerInterval = 600
    End If

Top

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

Access交流中心

实时显示数据