0

テーブルを反復処理し、特定の値について 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そうでない場合、あまり多くのステートメントを使用せずにレコードの値を体系的に調べる別の方法はありますか?

4

1 に答える 1

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
于 2013-10-12T02:05:59.370 に答える