在 Access 2010 VBA 中遍历记录集答案

【问题标题】：Iterate Through Recordset in Access 2010 VBA在 Access 2010 VBA 中遍历记录集
【发布时间】：2013-10-12 10:11:53
【问题描述】：

我必须遍历一个表并测试 14 个不同字段的某个值。所有这些字段都有一个相似的名称，例如foo 1、foo 2、foo 3等

我想使用 For 循环遍历不同的字段，这样我就可以将 15 个 If-Else If 语句压缩成如下内容

For i = 2 to 15
    Dim fieldname as String
    fieldname = "foo " + i
    If conditionMet(MyTableRecordSet![fieldname]) Then
         'Update another column
    End If
Next i

但我知道，如果我这样做，VBA 会寻找一个字面上名为“fieldname”的字段，它不会像我希望的那样插入变量的值。有没有办法在那里获取变量的值？如果没有，是否有另一种方法可以系统地检查记录的值而无需太多 If-Else If 语句？

【问题讨论】：

标签： ms-access vba

【解决方案1】：

试试下面的代码

For i = 2 To 15
    Dim fieldname As String
    fieldname = "foo " & i
    If conditionMet(MyTableRecordSet(fieldname)) Then
         'Update another column
    End If
Next i

【讨论】：

非常感谢！我很少用 VBA 编程，所以我不熟悉它的特性。