Hi,

I have a userform with two checkboxes. One I have named Yes and one I
have labeled No.

This is my code in the No Event procedure

UserForm2.Yes.Value = _
Not UserForm2.Yes.Value

This is my code in the Yes event procedure

UserForm2.No.Value = _
Not UserForm2.No.Value

It works perfectly. The problem is that I want to add code to change
the visibility of the textbox and label directly below it. When I try
what I have below, it screws everything up and the checkboxes don't
work correctly.

This is what I have in each of the event procedures right above the
above code I just displayed:

Yes_Click

Select Case UserForm2.Yes.Value
Case Is = "True"
UserForm2.SendToRepLabel.Visible = True
Case Is = "False"
UserForm2.SendToRepLabel.Visible = False
End Select

No_Click

Select Case UserForm2.Yes.Value
Case Is = "True"
UserForm2.SendToRepLabel.Visible = True
Case Is = "False"
UserForm2.SendToRepLabel.Visible = False
End Select


Any ideas what this is doing that is screwing up my checkboxes? I
mean, the select statements are not modifying the value of the
checkboxes, so why would it screw with their behavior?

Thanks

You are probably triggering each checkboxes click event from the other. Use
a boolean to control, like this


Private Sub Yes_Click()

If Not fReEntry Then

With Me

fReEntry = True

'your code

fReEntry = False
End With
End If

End Sub

--
__________________________________
HTH

Bob

"R Tanner" <(E-Mail Removed)> wrote in message
news:62660b38-2752-4274-ac58-(E-Mail Removed)...
> Hi,
>
> I have a userform with two checkboxes. One I have named Yes and one I
> have labeled No.
>
> This is my code in the No Event procedure
>
> UserForm2.Yes.Value = _
> Not UserForm2.Yes.Value
>
> This is my code in the Yes event procedure
>
> UserForm2.No.Value = _
> Not UserForm2.No.Value
>
> It works perfectly. The problem is that I want to add code to change
> the visibility of the textbox and label directly below it. When I try
> what I have below, it screws everything up and the checkboxes don't
> work correctly.
>
> This is what I have in each of the event procedures right above the
> above code I just displayed:
>
> Yes_Click
>
> Select Case UserForm2.Yes.Value
> Case Is = "True"
> UserForm2.SendToRepLabel.Visible = True
> Case Is = "False"
> UserForm2.SendToRepLabel.Visible = False
> End Select
>
> No_Click
>
> Select Case UserForm2.Yes.Value
> Case Is = "True"
> UserForm2.SendToRepLabel.Visible = True
> Case Is = "False"
> UserForm2.SendToRepLabel.Visible = False
> End Select
>
>
> Any ideas what this is doing that is screwing up my checkboxes? I
> mean, the select statements are not modifying the value of the
> checkboxes, so why would it screw with their behavior?
>
> Thanks

Forgot to say, fReEntry should be declared as module scope variable

Private fReEntry As Boolean

before any procedures

--
__________________________________
HTH

Bob

"R Tanner" <(E-Mail Removed)> wrote in message
news:62660b38-2752-4274-ac58-(E-Mail Removed)...
> Hi,
>
> I have a userform with two checkboxes. One I have named Yes and one I
> have labeled No.
>
> This is my code in the No Event procedure
>
> UserForm2.Yes.Value = _
> Not UserForm2.Yes.Value
>
> This is my code in the Yes event procedure
>
> UserForm2.No.Value = _
> Not UserForm2.No.Value
>
> It works perfectly. The problem is that I want to add code to change
> the visibility of the textbox and label directly below it. When I try
> what I have below, it screws everything up and the checkboxes don't
> work correctly.
>
> This is what I have in each of the event procedures right above the
> above code I just displayed:
>
> Yes_Click
>
> Select Case UserForm2.Yes.Value
> Case Is = "True"
> UserForm2.SendToRepLabel.Visible = True
> Case Is = "False"
> UserForm2.SendToRepLabel.Visible = False
> End Select
>
> No_Click
>
> Select Case UserForm2.Yes.Value
> Case Is = "True"
> UserForm2.SendToRepLabel.Visible = True
> Case Is = "False"
> UserForm2.SendToRepLabel.Visible = False
> End Select
>
>
> Any ideas what this is doing that is screwing up my checkboxes? I
> mean, the select statements are not modifying the value of the
> checkboxes, so why would it screw with their behavior?
>
> Thanks

On Oct 20, 3:24*pm, "Bob Phillips" <Bob...@somewhere.com> wrote:
> Forgot to say, fReEntry should be declared as module scope variable
>
> Private fReEntry As Boolean
>
> before any procedures
>
> --
> __________________________________
> HTH
>
> Bob
>
> "R Tanner" <tanner.ro...@gmail.com> wrote in message
>
> news:62660b38-2752-4274-ac58-(E-Mail Removed)...
>
>
>
> > Hi,
>
> > I have a userform with two checkboxes. One I have named Yes and one I
> > have labeled No.
>
> > This is my code in the No Event procedure
>
> > UserForm2.Yes.Value = _
> > * *Not UserForm2.Yes.Value
>
> > This is my code in the Yes event procedure
>
> > UserForm2.No.Value = _
> > * *Not UserForm2.No.Value
>
> > It works perfectly. *The problem is that I want to add code to change
> > the visibility of the textbox and label directly below it. *When I try
> > what I have below, it screws everything up and the checkboxes don't
> > work correctly.
>
> > This is what I have in each of the event procedures right above the
> > above code I just displayed:
>
> > Yes_Click
>
> > Select Case UserForm2.Yes.Value
> > * *Case Is = "True"
> > * * * *UserForm2.SendToRepLabel.Visible = True
> > * *Case Is = "False"
> > * * * *UserForm2.SendToRepLabel.Visible = False
> > End Select
>
> > No_Click
>
> > Select Case UserForm2.Yes.Value
> > * *Case Is = "True"
> > * * * *UserForm2.SendToRepLabel.Visible = True
> > * *Case Is = "False"
> > * * * *UserForm2.SendToRepLabel.Visible = False
> > End Select
>
> > Any ideas what this is doing that is screwing up my checkboxes? *I
> > mean, the select statements are not modifying the value of the
> > checkboxes, so why would it screw with their behavior?
>
> > Thanks- Hide quoted text -
>
> - Show quoted text -

Okay thank you for the info...