Almacenar varios valores de un cuadro de lista en access

[Taribo007]

Si quieres, para facilotar el encontrar el posible error, pon msgbox, algo asi:

For Each item In Me.Lista.ItemsSelected
msgbox Me.Lista.ItemData(item)
strTemp = strTemp & Me.Lista.ItemData(item) & ","
msgbox strTemp
Next
me.NombreControl= strTemp

Un saludo