Вопрос : Достигните Кодего Multiselect Listbox

Я начинаю шнур (StrHeading) выбранных деталей listbox в пределах следующий для петли.  Я хочу положить запятой между именами деталя, но в конце шнура. (ie. если выборы красны, зелены и голубы, то StrHeading будет «красно, зелено, голубо».)  Я использую для # деталей выбранных в Кодем ниже?

For каждое varItem в ctl.ItemsSelected
StrHeading =
StrHeading & ctl.ItemData (varItem) если varItem < # деталей selected
StrHeading = StrHeading &», «конец If
StrInsert
=» .......; «
DoCmd.RunSQL StrInsert
Next varItem class=

Ответ : Достигните Кодего Multiselect Listbox

Просто дорога должна как раз parse шнур после того как вы заполняете его:

Если право, то (StrHeading, 1) = «,» после этого StrHeading = право (StrHeading, Len (StrHeading) - 1)