Toggle between two checkboxes on a form

[zufie]

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

[Linq Adams via AccessMonster.com]

I won't even try to wade thru all of your code, but basically, at the
beginning of each of your click events, step thru each of your controls,
regardless of their tag properties, and set them to the un-hilighted colors,
then format according to the checkbox that is True..

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000/2003

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200807/1

[Carlos Nunes-Ueno]

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 <jo***********@illinois.govwrote in news:8ac70202-0a94-45cc-a4ea-
29**********@x35g2000hsb.googlegroups.com:

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

[zufie]

On Jul 1, 8:40*pm, "Carlos Nunes-Ueno" <[e-mail]>
wrote:

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 <[e-mail] in news:8ac70202-0a94-45cc-a4ea-
[e-mail]:

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- Hide quoted text -

- Show quoted text -

Thank you! I followed your advice and used an option group!

John

[zufie]

On Jul 1, 8:40*pm, "Carlos Nunes-Ueno" <[e-mail]>
wrote:

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 <[e-mail] in news:8ac70202-0a94-45cc-a4ea-
[e-mail]:

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- Hide quoted text -

- Show quoted text -

Thank you! I followed your advice!

John