Delete multiple items from listbox

[rrhandle]

I am trying to remove the selected items in a listbox that allows multiple selection. The code below loops the correct number of time (i.e. if I have 4 items selected, it loops 4 times), however, it prints out the first item in the list, not the items that are selected. When I actually try to remove the items, it only removes the first item in the list, not the first selected items.

Going batty over this one. Any help is appreciated.


Private Sub cmdRemove_Click()

Dim frm As Form, ctl As Control
Dim varItm As Variant

Set frm = Me
Set ctl = Me.lstProductsAssigned

For Each varItm In ctl.ItemsSelected
Debug.Print ctl.ItemData(vatItm)
Next varItm

End Sub

The only thing worse than being alone, is wishing you were.

 

[DotNetGnat]

shouldnt that be ctl.ItemsSelected(vatItm)

-DNG

 

[rrhandle]

OK. That does select the right one, but only the one first selected gets removed, and the others are then NOT selected anymore.

The only thing worse than being alone, is wishing you were.

 

[DotNetGnat]

For Each varItm In ctl.ItemsSelected
Debug.Print ctl.ItemsSelected(vatItm)
[red]Next[/red]

-DNG

 

[rrhandle]

Boy! How did I miss that. Anyways, the end result is still the same: only the first selected item is removed.

Code as it stands now:

Private Sub cmdRemove_Click()

Dim frm As Form, ctl As Control
Dim varItm As Variant

Set frm = Me
Set ctl = Me.lstProductsAssigned

For Each varItm In ctl.ItemsSelected
Me.lstProductsAssigned.RemoveItem ctl.ItemsSelected(vatItm)
Next

End Sub

The only thing worse than being alone, is wishing you were.

 

[DotNetGnat]

huh ha...you have varItm in the For loop and you are using vaItm

For Each [red]varItm[/red] In ctl.ItemsSelected
Me.lstProductsAssigned.RemoveItem ctl.ItemsSelected([blue]vatItm[/blue])
Next

-DNG

 

[rrhandle]

Another mistake fixed, but still the same results. I noticed that once the first item is removed, all other selected items are no longer selected. Mmmm.....

The only thing worse than being alone, is wishing you were.