How to reset a multi-select listBox via code?

[Alp Bekisoglu]

Hi Experts,

Did a search but couldn't find anything so I'm here once again. I couldn't
figure out how I could reset the selected items from a multi-select (simple)
listBox via a button click.

Any help is much appreciated.

Alp

 

[Allen Browne]

With the function below, you can clear any list box (multiselect or not)
with:
Call ClearList([NameOfYourListBoxHere])

Function ClearList(lst As ListBox)
Dim varItem As Variant

If lst.MultiSelect = 0 Then
lst = Null
Else
For Each varItem In lst.ItemsSelected
lst.Selected(varItem) = False
Next
End If
End Function

 

[Alp Bekisoglu]

Hi Allen,

Thanks a lot! once again. and G'Nite mate. (I hope I got it right)

Alp

With the function below, you can clear any list box (multiselect or not)
with:
Call ClearList([NameOfYourListBoxHere])

Function ClearList(lst As ListBox)
Dim varItem As Variant

If lst.MultiSelect = 0 Then
lst = Null
Else
For Each varItem In lst.ItemsSelected
lst.Selected(varItem) = False
Next
End If
End Function

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Did a search but couldn't find anything so I'm here once again. I
couldn't figure out how I could reset the selected items from a
multi-select (simple) listBox via a button click.

 

[Douglas J. Steele]

One way with MultiSelect = Simple or MultiSelect = Extended is to reset the
row source:

Me.MyListBox.RowSource = Me.MyListBox.RowSource

Another is to loop through all of the selected items, and set them back to
unselected:

Dim varItem As Variant

For Each varIem in Me.MyListBox.ItemsSelected
Me.MyListBox.Selected(varItem) = False
Next varItem

If it's a very large list box, I believe the second approach will be more
efficient.

 

[Alp Bekisoglu]

Thanks Doug, both ways noted.

Alp

One way with MultiSelect = Simple or MultiSelect = Extended is to reset
the row source:

Me.MyListBox.RowSource = Me.MyListBox.RowSource

Another is to loop through all of the selected items, and set them back to
unselected:

Dim varItem As Variant

For Each varIem in Me.MyListBox.ItemsSelected
Me.MyListBox.Selected(varItem) = False
Next varItem

If it's a very large list box, I believe the second approach will be more
efficient.