Question : Accéder au code de Multiselect Listbox

Je développe une corde (StrHeading) des articles choisis de listbox dans le suivant pour la boucle.  Je veux mettre une virgule entre les noms d'article, mais pas à l'extrémité de la corde. (IE. si les choix sont rouges, verts et bleus, StrHeading sera « rouge, vert, bleu ».)  Queest-ce que j'emploie pour # des articles choisis dans le code ci-dessous ?

For chaque varItem dans ctl.ItemsSelected
StrHeading =
de StrHeading et de ctl.ItemData (varItem) si varItem < # des articles selected
StrHeading = StrHeading et », « extrémité If
StrInsert du
= » ....... ; « 
DoCmd.RunSQL StrInsert
Next varItem class= de

Réponse : Accéder au code de Multiselect Listbox

La manière la plus simple est d'analyser juste la corde après que vous la remplissiez :

Si droit (StrHeading, 1) = « , » puis StrHeading = droit (StrHeading, Len (StrHeading) - 1)