Use a check box to populate a multi value combo box?

[rebeccab]

I have a database that stores information on suppliers. As part of this, I need to collect information relating to the sites that the suppliers will cover - the sites are split into regions.

Currently, I ask users to select each site from a multivalue combo box on a form (which is split by region) however this can take time if the supplier will cover our whole network or whole region. Is there a way of filling in the combo box from a tick box, i.e. "AllCentralSites" checkbox will autofill the "CentralSitesCovered" combo box with all of the sites?



This may seem like a strange request as it duplicates info, however I need to report on the suppliers by site and region split down into site.

Thanks in advance for your help!

[June7]

Would need code that causes each item to be selected.

Bing: vba multi-value field combobox select all

Review http://stackoverflow.com/questions/1...elect-all-none

[rebeccab]

I have now solved this - I used the following code on the AfterUpdate event of the check box to select all/deselect all of the items in the multi-value CBO.

Private Sub chkbox1_AfterUpdate()
If Me.chkbox1= True Then
Dim SelVals(), i
ReDim SelVals(0 To cboMV1.ListCount - 1)
For i = 0 To cboMV1.ListCount - 1
     SelVals(i) = CcboMV1.Column(1, i)
Next i
cboMV1.Value = SelVals
    End If
If Me.chkbox1= False Then
cboMV1.Value = Array()
End If
End Sub