Almacenar varios valores de un cuadro de lista en access

[jchuk]

Ahí va

Código:

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
        strTemp = strTemp & Str(Me.Nombres.ItemData(item)) & ","
        Debug.Print strTemp
    Next
        'Debug.Print strTemp
    Me.Nombres_marcados = strTemp
End Sub

Aunque va el nombre de procedimiento de evento, no es relevante.

Gracias otra vez