Use text for table field name

[Ke0EE]

I am trying to use a record field date as the field name of a different table.

Function SetChangeOnInactive()
' This routine will set the Closed Area change flag if someone with
' Open/Close in that area changes to inactive.
Dim db As Database, qryString As String, Area As String
Dim area_rst, name_rst
 
    Set db = CurrentDb
    ' First find any not in the master database
    Set name_rst = db.OpenRecordset("qrySelectNotInMasterDB", dbOpenDynaset)
    Set area_rst = db.OpenRecordset("tblClosedArea", dbOpenDynaset)
    Do Until name_rst.EOF ' For each person identified
        Do Until area_rst.EOF ' For each area they might have access
            Area = area_rst![ClosedArea]
 
            ' It works until I get to this line. Area contains the field name in area_rst
            If Not IsNull(name_rst!["Area"]) Then ' Set the table flag
                area_rst![ContentChange] = True
 
            End If
            area_rst.MoveNext
        Loop
        name_rst.MoveNext
    Loop
 
    area_rst.Close
    name_rst.Close
 
End Function
 

[MMcCarthy]

Try something like this ...

' It works until I get to this line. Area contains the field name in area_rst
If Not IsNull(name_rst!(Area) Then ' Set the table flag
        area_rst![ContentChange] = True
End If