调试。打印表中的所有数据

问题描述 投票:0回答:1

我正在尝试使用记录集代码遍历表中的所有字段并进行调试。按照您自然地读取表的顺序打印它们的值和字段名称,即从左到右跨列再到下面的行上]]

This is a sample table

我已经完成了我想做的事情,但仅针对第一行。这是代码:

Sub RecordSets()
Dim db As Database
Dim rs As Recordset
Dim i As Long
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl1")

        For i = 0 To rs.Fields.Count - 1
                Debug.Print rs.Fields(i).Name
                Debug.Print rs.Fields(i).Value
        Next

rs.Close
db.Close
End Sub

立即窗口产生以下结果:

    Category
    Clothing
    Item
    Shirt
    Price
    5

这是第一行,完全是我想要的。但是我无法获得任何代码来完成其他行的完全相同的操作。我有99%的把握要与For ... Next循环结合使用Do Before .EOF循环,但是无论尝试如何还是无法获得结果,或者在无限查询中锁定访问权限,我都无法获得结果。

感谢您的帮助

我正在尝试使用记录集代码循环遍历表中的所有字段并进行调试。按照您自然地读取表的顺序(即从左到右,从...开始,依次打印它们的值和字段名称...

vba loops data-extraction
1个回答
0
投票
未经测试:
© www.soinside.com 2019 - 2024. All rights reserved.