如何循环访问 Microsoft Access 报告中的字段

【问题标题】：How to loop through a field in Microsoft Access Report如何循环访问 Microsoft Access 报告中的字段
【发布时间】：2014-03-05 20:49:23
【问题描述】：

我有一个表 Worklist 有两个列 Name 和 Pages。现在我喜欢在报告中打印每个记录集的次数与Pages 中的数字一样多，但不知道如何循环遍历Pages 字段。

表格：

--------------------
|  Name  |  Pages  |
--------------------
|  Mike  |    1    |
--------------------
|  Phil  |    3    |
--------------------
|  Lisa  |    2    |
--------------------

报告输出应为：

Mike
Phil
Phil
Phil
Lisa
Lisa

【问题讨论】：

标签： vba ms-access

【解决方案1】：

这里有一个代码可以满足你的要求。

它遍历所有行，然后遍历页数。

希望这就是您想要的。

Private Sub loopfiles()
    Dim mydb As DAO.Database
    Dim Rst As DAO.Recordset

    Set mydb = CurrentDb
    Set Rst = mydb.OpenRecordset("Table1", dbOpenDynaset)


    Rst.MoveFirst
    Do While Not Rst.EOF
        mystring = ""
        For i = 1 To Rst![Pages]
            mystring = mystring & Rst![Name1] & " "
        Next i

        MsgBox Left(mystring, Len(mystring) - 1)



    Rst.MoveNext
    Loop
    Rst.Close


End Sub

【讨论】：