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" wrote in message
...
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" wrote in message
...
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" wrote:
Forgot to say, fReEntry should be declared as module scope variable

Private fReEntry As Boolean

before any procedures

--
__________________________________
HTH

Bob

"R Tanner" wrote in message

...



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...