Userform checkboxes question

[chuckles1066]

I have a userform with some checkboxes which relate to answers to questions.

Question 2 is related to question 1 insofar as if the user clicks NO to question 1, then question 2 becomes irrelevant.

No problem, I have a routine that sets both checkboxes associated with question 2 to enabled=false if NO is answered to question 1.

And if the user changes his/her mind and then clicks YES to question 1, both checkboxes associated with question 2 are set to enabled = true.

It all works well except.............if there is a tick in either of the question 2 checkboxes and those checkboxes are subsequently set to enabled=false, the ticks remain (albeit greyed out).

How can I clear the tick before setting enable to false?

 

[texasalynn]

post the code you have

 

[chuckles1066]

Dim q1, q2, As Boolean

Private Sub CheckBox1_Change()
q1 = False
    Select Case CheckBox2.Value
        Case True
            CheckBox2.Value = False
        Case Else
            CheckBox1.Value = True
            CheckBox3.Enabled = True
            CheckBox4.Enabled = True
            Label2.ForeColor = &H80000012
    End Select
If CheckBox1.Value + CheckBox2.Value = -1 Then q1 = True
    Select Case CheckBox2.Value
        Case True
            q2 = True
            EnableOKButton
        Case Else
            q2 = False
            EnableOKButton
    End Select
End Sub

Private Sub CheckBox2_Change()
q1 = False
    Select Case CheckBox1.Value
        Case True
            CheckBox1.Value = False
        Case Else
            CheckBox2.Value = True
            CheckBox3.Enabled = False
            CheckBox4.Enabled = False
            Label2.ForeColor = &H80000011
    End Select
If CheckBox1.Value + CheckBox2.Value = -1 Then q1 = True
    Select Case CheckBox2.Value
        Case True
            q2 = True
            EnableOKButton
        Case Else
            EnableOKButton
    End Select
End Sub

Private Sub CheckBox3_Change()
q2 = False
    Select Case CheckBox4.Value
        Case True
            CheckBox4.Value = False
        Case Else
            CheckBox3.Value = True
    End Select
If CheckBox3.Value + CheckBox4.Value = -1 Then q2 = True
EnableOKButton
End Sub

Private Sub CheckBox4_Change()
q2 = False
    Select Case CheckBox3.Value
        Case True
            CheckBox3.Value = False
        Case Else
            CheckBox4.Value = True
    End Select
If CheckBox3.Value + CheckBox4.Value = -1 Then q2 = True
EnableOKButton
End Sub

Private Sub CommandButton1_Click()
cb1v = CheckBox1.Value
cb2v = CheckBox2.Value
cb3v = CheckBox3.Value
cb4v = CheckBox4.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
quit = False
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CommandButton1.Enabled = False
End Sub

Sub EnableOKButton()
If q1 And q2 Then
    CommandButton1.Enabled = True
        Else
    CommandButton1.Enabled = False
End If
End Sub

 

[chuckles1066]

By the way, post #3 is my code, not an attempt at a solution!

(Apologies for the new post, couldn't see how to edit a post!)