ListBox help 2

[nat1967]

Hi,

I have two multi select list boxes on my form. I want the user to be able to select one or multiple items in the first listbox and move them to the second listbox.

Accomplished this with:

Dim ctl As Control
Dim varItm As Variant
Dim strVal As String
Set ctl = Me!listSysImpacted
For Each varItm In ctl.ItemsSelected
strVal = strVal & ctl.ItemData(varItm) & "; "
Next

ListSystemImpactedSelected.RowSourceType = "Value List"
ListSystemImpactedSelected.RowSource = strVal

Now, I'm stuck. What if the user wants to deselect an item from the second listbox. How can I remove one or multiple items from the second listbox if the user wants?

TIA

Have A Great Day!!!,

Nathan
Senior Test Lead

 

[BillPower]

Hi Nathan,

If you place the code above in the On Click event of listSysImpacted, when the user selects or de-selects an item, the selection will be reflected in ListSystemImpactedSelected each time.

If I've misinterepted what you're trying to do, please let me know.

Bill

 

[nat1967]

Hi bill,

actually, getting everything over to ListSystemImpacted works. what i need to do is if something is populated in the ListSystemImpacted listbox and the user wants to remove it, the user can by selecting the item and clicking another command button to remove the item from ListSystemimpacted.

any thoughts?

Have A Great Day!!!,

Nathan
Senior Test Lead

 

[BillPower]

Hi Nathan,

I don't think that you understood me. If you add your code to the On Click Event, If the item hasn't already been selected then it will be added to ListSystemImpactedSelected, if it has already been selected, then it will be removed from ListSystemImpactedSelected. Basically, there is no need for a Command Button to Add or Remove Items.

If you go to

http://www.wpower.fsbusiness.co.uk/

you will find nathan1967.zip ready for download demonstrating what I mean.

Bill

 

[nat1967]

You are correct. I didnt understand. I am stuck in "have to have command button" land. LOL....

Bill, thanks so much for helping me get past my mental challenge.

Have a great day!!! and a star too....

Have A Great Day!!!,

Nathan
Senior Test Lead

 

[Rolliee]

Nice Code Bill Power. My hat goes off to you.

rollie@bwsys.net