Need Help on - Remove Multiple selected Items from List box

[Korreia]

Hi All,



I've search everywhere for an answer but could not find anything. I have 2 list box. I want to be able to move multiple item from list 1 to list 2 and remove the selected item from list 1 once moved.

This is the code that I have currently. It work for a single item. However, if multiple item are selected, the code will only remove the last selected item and that's it. It seem like the .RemoveItem i triggers some sort of refresh on the list and it loose all selected items. If I comment out the .RemoveItem i, I can successfully add the selected item to list 2 but the items are not removed from list 1 ( of course)

    Dim i As Integer
    Dim strItm
    
    With Me.lstMem
        For i = (.ListCount - 1) To 0 Step -1
            If .Selected(i) Then
                lstMemPresent.AddItem (.Column(0, i))
                .RemoveItem i
            End If
        Next
    End With

Anyone has a clue or idea? I've try to look at some of the list property but to no avail....

Thanks for any input/suggestion

[orange]

see this post
http://www.access-programmers.co.uk/...s+from+listbox

[Korreia]

Great! That solve my issue... Thanks for pointing it out

[orange]

Glad to help. Good luck with your project.