Question

access窗体里面的内容，怎么自动滚动呢？

access能不能实现一种功能，窗体里面能不能就有五个格，还是自动滚动表里面的内容，求access高手

Answer 1

这个需求可以通过利用代码编写窗体的Timer事件过程予以实现。下面是示范解决方案

有一张如图数据表

新建一个ACCESS窗体，添加5个非绑定文本框，为该窗体模块添加下列VBA代码，即可实现逐顷春姿条滚动显示定价表里的雀绝每条信息：

Option Compare Database
Dim rs As New ADODB.Recordset
Private Sub showDatas()
    Text1 = rs!商品名称
    Text2 = rs!成本价
    Text3 = rs!普通价
    Text4 = rs!会员价
    Text5 = rs!促销价
End Sub
Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = 0
    Dim strSql As String
    Dim cn As ADODB.Connection
    Set cn 森简= CurrentProject.Connection
    rs.CursorLocation = adUseClient
    strSql = "select * from 定价表"
    rs.Open strSql, cn, adOpenStatic, adLockReadOnly
    Set cn = Nothing
    If rs.RecordCount > 0 Then showDatas
    Me.TimerInterval = 1000  '每秒显示一条记录
End Sub
Private Sub Form_Timer()
    If Not rs.BOF And Not rs.EOF Then
        If Not rs.EOF Then rs.MoveNext
        If rs.EOF Then rs.MoveFirst
        If Not rs.EOF Then showDatas
    End If
End Sub

运行效果图

追问

如果每列再加上四个文本框应该怎么弄呢？也就是五个一滚动那种，应该怎么改呢？能加您QQ吗？

追答

道理都是一样的，只是处理起来过程更加复杂。搞清楚显示一条的再说吧，要知道你能得到我这样水准的回答已经非常难得的了。