USERFORM when checkbox is ticked then textbox will display

[PLwolves87]

Hi I have some textboxes and checkboxes, basically when i tick the checkbox i want the data to go to a textbox.

here is the code but i get an error please help.


'when ticked the data shall read QUARTER in textbox38, then textbox34 will display the information from combobox4,textbox19,combobox6 & textbox 38 IF NOT TICKED then textbox34 is left blank


Private Sub CheckBox3_Click()
TextBox38.Text = IIf(CheckBox3.Value, "Quarter", "")
TextBox34.value = "ComboBox4 & " " & Textbox19 & " " & ComboBox6 & " " & TextBox38 "
End Sub

 

[Micron]

And the error is?? Try removing the start and end quotes.
TextBox34 = ComboBox4 & " " & Textbox19 & " " & ComboBox6 & " " & TextBox38

No matter if the checkbox is True, your next line will run anyway. I suppose that's not what you want though.

 

[dmt32]

Try this update to your code & see if does what you want

Private Sub CheckBox3_Click()
    With CheckBox3
        TextBox38.Text = IIf(.Value, "Quarter", "")
        TextBox34.Value = IIf(.Value, ComboBox4 & " " & TextBox19 & " " & ComboBox6 & " " & TextBox38, "")
    End With
End Sub

Dave

 

[PLwolves87]

And the error is?? Try removing the start and end quotes.
TextBox34 = ComboBox4 & " " & Textbox19 & " " & ComboBox6 & " " & TextBox38

No matter if the checkbox is True, your next line will run anyway. I suppose that's not what you want though.

No matter if the checkbox is True, your next line will run anyway. I suppose that's not what you want though.

yes thats correct i dont want that to happen.

 

[Micron]

Then more like this, I think:

Private Sub CheckBox3_Click()

If CheckBox3 Then
     Textbox38.Text = "Quarter"
     TextBox34 = ComboBox4 & " " & Textbox19 & " " & ComboBox6 & " " & Textbox38
Else
     Textbox38.Text = ""
End If

End Sub

 

[PLwolves87]

Try this update to your code & see if does what you want

Private Sub CheckBox3_Click()
    With CheckBox3
        TextBox38.Text = IIf(.Value, "Quarter", "")
        TextBox34.Value = IIf(.Value, ComboBox4 & " " & TextBox19 & " " & ComboBox6 & " " & TextBox38, "")
    End With
End Sub

Dave

Hi Dave,

thank you this worked perfectly!!

 

[dmt32]

thank you this worked perfectly!!

most welcome - glad we were able to help & appreciate feedback

Dave