Vraag : De code van Multiselect Listbox van de toegang

Ik ontwikkel een koord (StrHeading) van de geselecteerde listbox punten binnen het volgende voor lijn.  Ik wil een komma tussen de puntnamen, maar niet aan het eind van het koord zetten. (d.w.z. als de keuzen Rood zijn, Groen en Blauw, zal StrHeading „Rood, Groen, Blauw zijn“.)  Wat die gebruik ik voor # van punten in de hieronder code worden geselecteerd?

For Elke varItem in ctl.ItemsSelected
StrHeading = StrHeading & ctl.ItemData (varItem)
als varItem < # van punten selected
StrHeading = StrHeading &“, „
Eind If
StrInsert =“ .......; „
DoCmd.RunSQL StrInsert
Next varItem

Antwoord : De code van Multiselect Listbox van de toegang

De eenvoudigste manier is het koord enkel te ontleden nadat u het vult:

Als Juist (StrHeading, 1) = „,“ toen StrHeading = Juist (StrHeading, Len (StrHeading) - 1)