Copiare in una casella il valore della seconda colonna di una combobox

Question

Buongiorno,

ho una combobox che nelle proprietà ha 1 colonna associata ma su formato-->numero colonne, ha 2 (entrambe le colonne sono due campi della stessa tabella di origine). Io avevo impostato un codice che dopo selezione del valore della combo (della prima colonna), il relativo valore della seconda colonna veniva copiato in una casella della maschera chiamata "valore". Purtroppo questo codice non funziona ma non so cosa abbia di sbagliato (il codice, che mi avete gentilmente consigliato voi, funzionava quando la combobox era associata a un campo di una tabella che consentiva più valori, ma adesso non ho più alcun campo con questa proprietà).

Di sicuro ho commesso qualche errore... Voi sapete quale?

Grazie mille per la gentilezza.

Private Sub cmb1_AfterUpdate()

Dim ind As Long

valore = 0 

For ind = 0 To Me.cmb1.ItemsSelected.Count - 1 

    Me.valore = Me.valore + Me.cmb1.Column(2, Me.cmb1.ItemsSelected.Item(ind)) 

Next 

End Sub

Answer 1

ciao Alessandro,

la combo con più valori simula una relazione 1-->M che non ha senso o ne ha molto poco visto che con strumenti nativi si può gestire tranquillamente senza ricorrere ad oggetti specifici implementati per sfruttare tali caratteristiche.

Ti consiglierei di dismetterla.

Generalmente la proprietà da sfruttare è la column, vedi qui :

ComboBox.Column property (Access) | Microsoft Docs

ovviamente parliamo di textBox unbound per l'assunzione del valore selezionato dalla combo.

si potrebbe anche pensare ad una soluzione vba free....in ogni caso, effettua qualche test con la proprieta menzionata, non ricordo ora come ora se possa funzionare anche con la caratteristica che citi.

facci sapere.

Ciao, Sandro.

Answer 2

ciao Alessandro,

la combo con più valori simula una relazione 1-->M che non ha senso o ne ha molto poco visto che con strumenti nativi si può gestire tranquillamente senza ricorrere ad oggetti specifici implementati per sfruttare tali caratteristiche.

Ti consiglierei di dismetterla.

Generalmente la proprietà da sfruttare è la column, vedi qui :

ComboBox.Column property (Access) | Microsoft Docs

ovviamente parliamo di textBox unbound per l'assunzione del valore selezionato dalla combo.

si potrebbe anche pensare ad una soluzione vba free....in ogni caso, effettua qualche test con la proprieta menzionata, non ricordo ora come ora se possa funzionare anche con la caratteristica che citi.

facci sapere.

Ciao, Sandro.

grazie mille, funziona perfettamente!!

grazie

Answer 3

Ciao, Alessandro. Grazie per la domanda e per averci contattato. Mi chiamo John e sarei più che felice di aiutarti con la tua domanda.

Ho trovato un articolo che potrebbe risolvere la tua preoccupazione. Credo che sarà più facile per te controllare la tua parte https://support.microsoft.com/en-us/office/add-a-list-box-or-combo-box-to-a-worksheet-in-excel-579e1958-f7f6-41ae-ba0c-c83cc6e40878

Migliori saluti
John

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.