how to use multiple check box to select items from multiple combobox

[Vaibhav2015]

Hi,
I have created form and I have two combo box(plant & Sales_org) in that form . I want to select all option from two combobox when I select check box.
I create below vba codes but , when I just add one combo box in fields its work but when I add fields from both combo box its not working.
please advice how i can select all fields from both combobox by clicking check box.

Private Sub Check28_Click()

If Me!Check28 = True Then
Me!Plant.Selected(0) = True
Me!Plant.Selected(1) = True
Me!Plant.Selected(2) = True
Me!Plant.Selected(3) = True
Me!Plant.Selected(4) = True
Me!Plant.Selected(5) = True
Me!Plant.Selected(6) = True
Me!Plant.Selected(7) = True
Me!Plant.Selected(8) = True
Me!Plant.Selected(9) = True
Me!Sales_org.Selected(1) = True
Me!Sales_org.Selected(2) = True
Me!Sales_org.Selected(3) = True
Me!Sales_org.Selected(4) = True
Me!Sales_org.Selected(5) = True
Me!Sales_org.Selected(6) = True
Me!Sales_org.Selected(7) = True

Else
Me!Plant.Selected(0) = False
Me!Plant.Selected(1) = False
Me!Plant.Selected(2) = False
Me!Plant.Selected(3) = False
Me!Plant.Selected(4) = False
Me!Plant.Selected(5) = False
Me!Plant.Selected(6) = False
Me!Plant.Selected(7) = False
Me!Plant.Selected(8) = False
Me!Plant.Selected(9) = False
Me!Sales_org.Selected(1) = False
Me!Sales_org.Selected(2) = False
Me!Sales_org.Selected(3) = False
Me!Sales_org.Selected(4) = False


Me!Sales_org.Selected(5) = False
Me!Sales_org.Selected(6) = False
Me!Sales_org.Selected(7) = False

End If


End Sub

[June7]

What do you mean by 'select all fields' - do you mean 'select all records'? What do you mean by 'not working' - error message, wrong results, nothing happens?

What is purpose of these comboboxes - data entry into a multi-value field? I NEVER use multi-value fields.