我正在尝试使用记录集代码遍历表中的所有字段并进行调试。按照您自然地读取表的顺序打印它们的值和字段名称,即从左到右跨列再到下面的行上]]
我已经完成了我想做的事情,但仅针对第一行。这是代码:
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循环,但是无论尝试如何还是无法获得结果,或者在无限查询中锁定访问权限,我都无法获得结果。
感谢您的帮助
我正在尝试使用记录集代码循环遍历表中的所有字段并进行调试。按照您自然地读取表的顺序(即从左到右,从...开始,依次打印它们的值和字段名称...