Toggle between two checkboxes on a form

I have two checkboxes on a form, ChckIBCCP and ChckOtherReferral.
>
Each checkbox highlights its respective textboxes and combo boxes on
the form.
>
Many of the highlighted textboxes and combo boxes are the same for
either checkbox selected.
>
Some of the highlighted textboxes and combo boxes differ depending
upon which checkbox is selected.
>
I am unable to toggle between the two differing effects caused by
clicking each respective checkbox.
>
For example when I click on the second checkbox, ChckOtherReferral,
the highlighted textboxes and combo boxes associated with clicking on
this checkbox remain highlighted even after I click on the first
checkbox, ChckIBCCP!?
>
Can you help me?
>
Here is my code if it helps?
>
Private Sub ChckIBCCP_Click()
Dim ctl As Control
>
For Each ctl In Me.Controls
If ctl.Tag = "Shadow1" And ChckIBCCP = True _
And ctl.ControlType = 109 Then
ctl.BackColor = 16777215
ElseIf ctl.Tag = "" And ctl.ControlType _
= acTextBox Then
ctl.BackColor = 65535
End If
If ctl.Tag = "Shadow1" And ChckIBCCP = True _
And ctl.ControlType = 111 Then
ctl.BackColor = 16777215
ElseIf ctl.Tag = "" And ctl.ControlType _
= acComboBox Then
ctl.BackColor = 65535
End If
If ctl.Tag = "Shadow1" And ChckIBCCP = True _
And ctl.ControlType = 106 Then
ctl.SpecialEffect = 4
ElseIf ctl.Tag = "" And ctl.ControlType _
= acCheckBox Then
ctl.SpecialEffect = 1
End If
Next
End Sub
>
>
Private Sub ChckOtherReferral_Click()
Dim ctl As Control
>
For Each ctl In Me.Controls
If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
And ctl.ControlType = 109 Then
ctl.BackColor = 16777215
ElseIf ctl.Tag = "" And ctl.ControlType _
= acTextBox Then
ctl.BackColor = 65535
End If
If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
And ctl.ControlType = 111 Then
ctl.BackColor = 16777215
ElseIf ctl.Tag = "" And ctl.ControlType _
= acComboBox Then
ctl.BackColor = 65535
End If
If ctl.Tag = "Shadow1" And ChckOtherReferral = True _
And ctl.ControlType = 106 Then
ctl.SpecialEffect = 4
ElseIf ctl.Tag = "" And ctl.ControlType _
= acCheckBox Then
ctl.SpecialEffect = 1
End If
Next
End Sub
>
>
Thanks!,
>
John
>

As far as I can tell you're doing the same code in both scenarios. *The
only difference is that you're testing a different checkbox each time. *
And since you just checked that box "True" then your code returns would
return the same result each time.
>
By the way, is there a reason you don't want to use an option group? *
This seems like exactly the kind of scenario that would apply. *Instead
of two procedures you could write one like this:
>
Private Sub optIBCCP_or_Other_AfterUpdate()
* * Select Case Me.optIBCCP_or_Other
* * * * Case 1 'IBCCP
* * * * * * 'Dehighlight the "Other" fields
* * * * * * * * 'Highlight the IBCCP fields
* * * * Case 2 'Other
* * * * * * 'Dehighlight the IBCCP fields
* * * * * * * * 'Highlight the "Other" fields
* * End Select
End Sub
>
Hope that helps,
>
Carlos
>
zufie <john.marru...@illinois.govwrote in news:8ac70202-0a94-45cc-a4ea-
2921b46f2...@x35g2000hsb.googlegroups.com:
>
>
>>>>>>>>>>>>>>>
- Show quoted text -

As far as I can tell you're doing the same code in both scenarios. *The
only difference is that you're testing a different checkbox each time. *
And since you just checked that box "True" then your code returns would
return the same result each time.
>
By the way, is there a reason you don't want to use an option group? *
This seems like exactly the kind of scenario that would apply. *Instead
of two procedures you could write one like this:
>
Private Sub optIBCCP_or_Other_AfterUpdate()
* * Select Case Me.optIBCCP_or_Other
* * * * Case 1 'IBCCP
* * * * * * 'Dehighlight the "Other" fields
* * * * * * * * 'Highlight the IBCCP fields
* * * * Case 2 'Other
* * * * * * 'Dehighlight the IBCCP fields
* * * * * * * * 'Highlight the "Other" fields
* * End Select
End Sub
>
Hope that helps,
>
Carlos
>
zufie <john.marru...@illinois.govwrote in news:8ac70202-0a94-45cc-a4ea-
2921b46f2...@x35g2000hsb.googlegroups.com:
>
>
>>>>>>>>>>>>>>>
- Show quoted text -