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

[CODE=vb]
Function SetChangeOnInac tive()
' 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...