Almacenar varios valores de un cuadro de lista en access

[Taribo007]

Para que haces esa conversion a string??? prueba esto:

Private Sub Nombres_LostFocus()
Dim item As Variant
Dim strTemp As String

' recorremos la colección ItemsSelected
' y obtenemos todos los elementos seleccionados
strTemp = ""
For Each item In Me.Nombres.ItemsSelected
Debug.Print Me.Nombres.ItemData(item)
strTemp = strTemp & Me.Nombres.ItemData(item) & ","
Debug.Print strTemp
Next
'Debug.Print strTemp
Me.Nombres_marcados = strTemp
End Sub

Un saludo