multiple list box selection

J

Jimbo

I need to be able to select multiple items in a list box and store them in a
field. Can this be done? Or can I somehow use a list box with multiple
selections for a given record?

Thanks!
 
D

David Cleave

Hi Jimbo

List boxes have a 'Selected' property for each item in the list. You could
loop through all the items in the list box, building up a string containing
the values of all the selected items. This string could then be shoved into
your field.

Hope this helps

David
 
D

David Cleave

Okay. I haven't checked this so if you can't work through the errors give me
a shout.

Let's say your list box is called [List Box], and it has 3 columns in it.
You want to put the value of the third column for all the selected items in
the list box into a string, which I'll call ListString.

Just to complicate things I'll separate all the values with a comma and
space. *

Dim ListString As String
String = ""
Dim SelectedRecord As Variant
For Each SelectedRecord In [List Box].ItemsSelected
String = String + [List Box].Column(2, SelectedRecord) & ", "
Next SelectedRecord

You could then assign the value of ListString to a text box called [Text Box].

[Text Box] = ListString

There are a few properties which make list boxes extremely useful once you
get the hang of them. These are ItemsSelected, Selected, Column and ItemData.
Check 'em out!

Cheers

David

* Removing the final ", " from the end of ListString is a story for another
time. Suffice to say there are two relevant functions, StrLen, which gives
you the number of characters in a string, and Left, which returns the
left-hand part of a string of a specified number of characters in length.
 
T

Troy

I just need to be able to high light the ones in the lstBox, click a button
and have those entered into a text field, perferably in a list fashion. The
table my list is coming from only has one column. Does that make it simplier?

thanks!
 
D

David Cleave

Hi Troy

If the list box has only the one column, you should be able to use

String = String + [List Box].ItemData(SelectedRecord)

instead of

String = String + [List Box].Column(0, SelectedRecord)

The choice is yours really.

If you want the string you've built up to appear in the text box as a 'list'
(I assume you mean with each item on a separate line) you will need to
separate each item with a line break. So use this:

String = String + [List Box].Column(2, SelectedRecord) & chr(13) & chr(10)

Hope this works for you.

Cheers

David

Troy said:
I just need to be able to high light the ones in the lstBox, click a button
and have those entered into a text field, perferably in a list fashion. The
table my list is coming from only has one column. Does that make it simplier?

thanks!

David Cleave said:
Okay. I haven't checked this so if you can't work through the errors give me
a shout.

Let's say your list box is called [List Box], and it has 3 columns in it.
You want to put the value of the third column for all the selected items in
the list box into a string, which I'll call ListString.

Just to complicate things I'll separate all the values with a comma and
space. *

Dim ListString As String
String = ""
Dim SelectedRecord As Variant
For Each SelectedRecord In [List Box].ItemsSelected
String = String + [List Box].Column(2, SelectedRecord) & ", "
Next SelectedRecord

You could then assign the value of ListString to a text box called [Text Box].

[Text Box] = ListString

There are a few properties which make list boxes extremely useful once you
get the hang of them. These are ItemsSelected, Selected, Column and ItemData.
Check 'em out!

Cheers

David

* Removing the final ", " from the end of ListString is a story for another
time. Suffice to say there are two relevant functions, StrLen, which gives
you the number of characters in a string, and Left, which returns the
left-hand part of a string of a specified number of characters in length.
Click to expand...
Click to expand...
 
Top