deselect all selections from a multiselect listbox

[daseffects]

I'm having a hell of a time trying to clear a multiselect listbox of all selections.

Bumped my head against listindex which I'm sure won't work for a multiselect listbox and have been trying to write a loop for selected with no luck.

Any thoughts greatly appreciated.

D

 

[acron]

Have you tried resetting the RowSource ?

A.C

 

[CajunCenturion]

I take it be selecting the selections, that you do not want to clear the listbox, but simply un-selected the currently selected item. If that is correct, then the following loop should work for you.

Dim lCtl_CntrlSource       As Control
Dim lInt_CurrRow           As Integer
   
Set lCtl_CntrlSource = [Forms]![<Form Name>]![<ListBoxName]
For lInt_CurrRow = 0 To lCtl_CntrlSource.ListCount - 1
   lCtl_CntrlSource.Selected(lInt_CurrRow) = False
Next lInt_CurrRow

Changing the False to True will select all of the entries.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein