ms-access - 在 Access 2010 VBA 中遍历记录集

Question

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

我想使用 For 循环来遍历不同的字段，这样我就可以将 15If-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语句的情况下系统地检查记录的值？

Answer 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