Access 2010中迭代通過記錄集VBA

Question

我必須遍歷一個表並測試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陳述？

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