ACCESS自动刷新并动态滚动显示表内的信息
发布网友
发布时间：2023-09-16 12:44
共2个回答
热心网友
时间：2024-12-11 19:47
把这一段加上去：
Private Sub Form_Timer()
Dim rst As DAO.Recordset
Set rst = Me.Recordset'由于数据已经绑定了，所以这样设置就好了。如果不绑定的话，可能需要使用ADO来完成。
If rst.EOF Then
rst.MoveFirst
Else
rst.MoveNext
End If
End Sub
不需要解释吧？大体就是将本地记录集设置为当前记录集，然后每隔1000秒向后移动1次【movenext】，如果移动到末端则返回第一条记录【避免出错】。
然后设置计时器的时间为1000。如图所示：
热心网友
时间：2024-12-11 19:47
http://zhidao.baidu.com/question/711674506586241005
请告诉我，你照做报错什么提示？
