Feeding a multiple multi-value list boxes to a single summary field

[googalabosh]

I have a form that has more than one multi-value list box. Each list contains 10 values. I want to feed the selected values into one field that shows all selected values from all of the list boxes. How do I do this?

For example:
List Box A
-A1
-A2
-A3
List Box B
-B1
-B2
-B3
List Box C
-C1
-C2
-C3


List Box D
-D1
-D2
-D3

User chooses values A2, B3, and D1. A summary field below the list boxes reads:

Summary: A2; B3; D1

TIA!

[Micron]

see if this will do what you want
http://allenbrowne.com/func-concat.html

[June7]

So each listbox is set for Single select? Just an expression in textbox:

= 
[listboxA] & ";" & 
[listboxB] & ";" & 
[listboxC] & ";" & 
[listboxD]

(The forum made that one line of code into multiple lines, can't seem to correct.)

That does assume a selection will be made in each listbox. Dealing with possibility of no selection gets complicated to prevent extra ;'s - build a VBA custom function.

If listbox is multi-select, loop through each listbox ItemsSelected and concatenate. Looping multi-select listbox items is a common topic http://allenbrowne.com/ser-50.html

Or as suggested by Micron, use Allen Browne's ConcatRelated function to concatenate table data. Record would have to first be committed to table.

[moke123]

Here's 3 listboxes, multi-select

[Micron]

= listboxA] & ";" & listboxB] & ";" & listboxC] & ";" & listboxD]

Accidentally clicked submit instead of preview. Anyway, the cause seems to be the leading [. As soon as I use one, the line wraps, even when not using code tags. Forum shouldn't do that.

=
[listboxA] & ";" &
[listboxB] & ";" &
[listboxC] & ";" &
[listboxD]

[June7]

If you want to loop listbox bound to multi-value field, adjust code to reference column index 1 instead of 0.

strlist = strlist & Me.List0.Column(1, (varSelected)) & ","

[googalabosh]

= listboxA] & ";" & listboxB] & ";" & listboxC] & ";" & listboxD]

Accidentally clicked submit instead of preview. Anyway, the cause seems to be the leading [. As soon as I use one, the line wraps, even when not using code tags. Forum shouldn't do that.

=
[listboxA] & ";" &
[listboxB] & ";" &
[listboxC] & ";" &
[listboxD]

Thank you! Something this simple is exactly what I was looking for!