CODEWITHSUNDEEP
ms-accessvba
RyszardJ
RyszardJ

Reputation: 39

Variables as field names

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

Attached is a "Cut down" version of the code. I am writing to an Excel spreadsheet to apply Indirect formula. [CostType] and [SoftwareCosts] in the example are constants at the moment.

I want the user to be able to add fields without then having to amend the code. The new field name will be derived from the table. Is it possible to use a field name (not known until the table is modified) between the square brackets?

Upvotes: 0

Views: 41

Answers (1)

Gustav
Gustav

Reputation: 56006

Yes:

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

Upvotes: 1

Related Questions