Check Box - Counting Problem

[aingram]

I'm trying to make the following code work.

It basically adds up the check boxes if there are ticked so that i can display in a text box "multi fields selceted"

am i using the right code? is there an easier way of doing this

Private Sub Ward_2_AfterUpdate()
Dim Multi_Count As Integer
Dim Sum_Count As Integer
Multi_Count = 0
Sum_Count = 0

If Ward_1 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_2 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_3 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_4 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_5 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_6 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_7 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count
If Ward_8 = true Then
Multi_Count = Sum_Count + 1
Sum_Count = Multi_Count

End If
End If
End If
End If
End If
End If
End If
End If

If Multi_Count > 1 Then
Me.Multi_Ward = "multi fields selceted
Else
me.multi_ward  = null
End If

End Sub

Please help

 

[MarkK]

Yes, there's an easier way.
A boolean True is equal to minus 1 (-1).
Since your control names are numbered sequentially you can write a loop like...

Private Function CountChecks()
  Dim i as integer
  Dim iSum as integer

  For i = 1 to 8
    'addressing each member of the controls collection by name
    'sum the value of the check box controls
    iSum = iSum + Me.Controls("Ward_" & i).value
  Next i
  'if this value is < -1, then more than one check box is marked True
  Me.Multiward = iif(iSum < -1, "Multi-Fields Selected", Null)
End Function

Now, to trigger this function from each of your numbered Ward controls, replace "[Event Procedure]" on the property with "=CountChecks()" for each control.