Limit number of checkboxes-Help please

[Tjtrev89]

Hi all

Currently developing a test type document, which incorporates option buttons as well as check boxes.

In one question, I want the user to select 6 answers or checkboxes out of a possible 8. Is there something that I can do to limit the number of checkboxes that they can select? I have previously used vb but have not done so in a while, so I'll provide detail below if this is the route I need to take.

They are named CheckBox 1 to CheckBox 8 respectively
They have groupnames Question 5.1 to 5.8 respectively (ie all different groups)
They are within a worksheet called Module 1

Really appreciate any help!

Thanks

 

[Tjtrev89]

I should now add that I'm now trying this vb code but is not working, says 'Complie Error, Expected End of Statement'.

Can anyone help fix this please? Many Thanks


Private Const MAX_CHECKED_BOX_COUNT As Integer = 6 Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox5.CheckedChanged, CheckBox4.CheckedChanged, CheckBox3.CheckedChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged 'Get all the CheckBoxes. Dim checkBoxes = Controls.OfType(Of CheckBox)().ToArray() 'Get the number of checked CheckBoxes. Dim checkedBoxCount = checkBoxes.Count(Function(cb) cb.Checked) 'Unchecked CheckBoxes should be enabled if and only if the number of checked CheckBoxes is less than the maximum number allowed. Dim enableUncheckedBoxes = checkedBoxCount < MAX_CHECKED_BOX_COUNT 'Get the unchecked CheckBoxes. Dim uncheckedBoxes = checkBoxes.Where(Function(cb) Not cb.Checked) 'Enable or disable the unchecked CheckBoxes as appropriate. For Each uncheckedBox In uncheckedBoxes uncheckedBox.Enabled = enableUncheckedBoxes Next End Sub