Multiple Check Boxes

[irresistible007]

I have four checkboxes (check1....check4) captioned Apples, Bananas, Grapes, Oranges... and a Text Box (txt1) a "Submit" button and "reset" button...

What i want is the text box to display the caption of items selected, using vbCrLf as values separator, when the submit button is pressed even if the multiple selection is being made

 

[Damon Ostrander]

Hi irresistible007,

This code ought to do it:

Private Sub SubmitBtn_Click()
   Txt1.Text = IIf(Check1, Check1.Caption & vbCrLf, "") & _
               IIf(Check2, Check2.Caption & vbCrLf, "") & _
               IIf(Check3, Check3.Caption & vbCrLf, "") & _
               IIf(Check4, Check4.Caption, "")
End Sub

This assumes the submit button is named SubmitBtn.

Similiarly for the Reset button:

Private Sub ResetBtn_Click()
   Check1 = False
   Check2 = False
   Check3 = False
   Check4 = False
   Txt1.Text = ""
End Sub

And you will need to set the Txt1's MultiLine property to True.

Keep Excelling.

Damon