Access: casella di riepilogo multiselect e recupero valori con VBA

Question

Buongiorno a tutti

ho il seguente problema: in una maschera, ho una ListBox "multiselect estesa", con "Origine riga"

"SELECT [TB1].[Key], [TB1].[Parola] FROM [TB1] ORDER BY [Parola];", "Colonna associata=1",

"Larghezza colonne=0;2,5".

Nella ListBox, quindi, si vedono le descrizioni. Quando effettuo una o più scelte, dovrei riportare

in una casella di testo ([Parole_scelte]) anche le parole scelte, in modo da controllare visivamente cosa ho selezionato.

Per recuperare i dati selezionati nella ListBox uso il seguente codice VBA:

---

    For i = 0 To imax

        If Lista.Selected(i) Then

            strTesto = Lista.ItemData(i)

            Me.Parole_scelte.Value = Me.Parole_scelte.Value & strTesto & ";"

        End If

    Next

---

Tutto bene, soltanto che in tal modo nella casella [Parole_scelte] vedo i codici numerici (corrispondenti a [Key]) e non le "parole estese".

Verissimo che mi servono i codici ([Key]), ma vero anche che a video vorrei mostrare le descrizioni (cioè le "parole estese").

Come posso risolvere il problema?

Grazie e buona giornata

Ivo

Answer 1

ciao Ivo53,

vedi proprietà column.

se la listbox contiene anche l'intestazione :

dim strItem as string

    For i = 1 To Me.Lista.ListCount

           If Lista.Selected(i) Then

           ' strTesto = Lista.ItemData(i)

strItem = strItem & ";" & Me.Lista.Column(1, i)

           ' Me.Parole_scelte.Value = Me.Parole_scelte.Value & strTesto & ";"

        End If

    Next

me.tuaTextBox=Mid(strItem, 2)

ciao, Sandro.

Answer 2

Grazie, Sandro!

Come mai non ci sono arrivato da solo?

Buona giornata

Ivo