フィールド名としての変数

Question

For R = 1 To NRrows 

    If (RSNonResourceCosts![CostType]) <> "" Then 
     CL(1) = CL(1) + 1 
     WKS.Cells(199 + R, 1) = (RSNonResourceCosts![CostType]) 
    End If 

    If (RSNonResourceCosts![SoftwareCosts]) <> "" Then 
     CL(2) = CL(2) + 1 
     WKS.Cells(199 + R, 2) = (RSNonResourceCosts![SoftwareCosts]) 
    End If 

    RSNonResourceCosts.MoveNext 

Next R 

添付されているコードの「切り捨て」バージョンです。私は間接式を適用するためにExcelスプレッドシートに書いています。この例の[CostType]と[SoftwareCosts]は現時点では定数です。

コードを修正しなくても、ユーザーがフィールドを追加できるようにしたいと考えています。新しいフィールド名はテーブルから派生します。角括弧の間にフィールド名（テーブルが変更されるまではわからない）を使用できますか？

Answer 1

はい：

FieldName = "SomeField" 
WKS.Cells(199 + R, 1) = RSNonResourceCosts.Fields(FieldName).Value