Questione : Accedere al codice di Multiselect Listbox

Sto sviluppando una stringa (StrHeading) degli elementi selezionati del listbox all'interno di quanto segue per il ciclo.  Voglio mettere un virgola fra i nomi dell'articolo, ma non all'estremità della stringa. (IE. se le scelte sono rosse, verdi e blu, StrHeading sarà “rosso, verde, blu„.)  Che cosa utilizzo per # degli articoli selezionati nel codice qui sotto?

For ogni varItem in ctl.ItemsSelected
StrHeading = nel
di ctl.ItemData & di StrHeading (varItem) se varItem < # degli articoli selected
StrHeading = StrHeading &„, “estremità If
StrInsert del
=„ .......; “
DoCmd.RunSQL StrInsert
Next varItem class= del

Risposta : Accedere al codice di Multiselect Listbox

Il senso più semplice è di analizzare appena la stringa dopo che la riempite:

Se di destra (StrHeading, 1) = “,„ allora StrHeading = di destra (StrHeading, Len (StrHeading) - 1)