Unselect item in multiselect list box 1

[skyline666]

Hi,

I have two list boxes, one a single select and one a multi select. I have a button which unselects the item in the single select list box, but it wont work for the multi select list box. Here is the code I have for the button:

Private Sub cmbUnselect_Click()

    Me.lstGrouping.value = 0
    Me.lstRisks.value = 0

End Sub

lstGrouping is the single select, and lstRisks is the multi select.

When I click the button, and there are items selected in the list boxes, then the highlighted item disappears in the single list box, but the item(s) in the multi select list box stay highlighted. How do I get the item(s) to be unselected in the multi select list box?

Many thanks in advance,

Andrew

 

[KenReay]

Private Sub YourCommandButtonName_Click()

Dim varItm As Variant

With YourListBoxName

For Each varItm In .ItemsSelected
.Selected(varItm) = False
Next varItm

End With
End Sub

see

http://www.databasedev.co.uk/clear_listbox.html

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[skyline666]

Awesome, thanks Ken.