Cuestión : Tener acceso al código de Multiselect Listbox

Estoy desarrollando una secuencia (StrHeading) de los artículos seleccionados del listbox dentro del siguiente para el lazo.  Quiero poner una coma entre los nombres del artículo, pero no en el extremo de la secuencia. (IE. si las opciones son rojas, verdes y azules, StrHeading será “rojo, verde, azul”.)  ¿Qué utilizo para # de los artículos seleccionados en el código abajo?

For cada varItem en ctl.ItemsSelected
StrHeading = el
de StrHeading y de ctl.ItemData (varItem) si varItem < # de los artículos selected
StrHeading = StrHeading y”, “extremo If
StrInsert del
=” .......; “
DoCmd.RunSQL StrInsert
Next varItem class= del

Respuesta : Tener acceso al código de Multiselect Listbox

La manera más simple es apenas analizar la secuencia después de que usted la llene:

Si es derecho (StrHeading, 1) = “,” entonces StrHeading = derecho (StrHeading, Len (StrHeading) - 1)