Below is the function I finished with:
Code:
Private Function ChgCount() As Integer
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'* Fields of interest have their Tag property set to the string "HL?". Loop through
'* the current form's controls collection and examine the TRUE/FALSE state of its
'* "Chg" companion in the current record and add to the count if found to be TRUE.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Dim ctl As Control
ChgCount = 0
For Each ctl In Me.Controls
If ctl.Tag = """HL?""" Then
If Me(Replace(ctl.Name, "tb", "chg")) Then _
ChgCount = ChgCount + 1
End If
Next ctl
End Function