Accesso VBA: Trova elemento in una casella combinata basata su colonna non vincolata

Question

Ho una casella combinata a due colonne in un modulo di accesso che rappresenta un mapping da codice a codice. La prima colonna della casella combinata è la 'colonna vincolata' (cioè, la colonna utilizzata quando viene chiamato MyComboBox.Value).

Ho bisogno di impostare dinamicamente il Value della mia casella combinata in base a un valore trovato nella seconda colonna. Per esempio, se la mia fonte casella combinata è:

posso impostare il valore della casella combinata in modo semplice con ComboBox.Value = "A2", ma come farei lo stesso con la seconda colonna? ComboBox.Value = "EFGH" ovviamente non è valido. In sostanza alla ricerca di logica lungo le linee di ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 1

e assumendo che non è basato su una tabella/query:

Dim i As Integer 

For i = 0 To ComboBox.ListCount-1 
    If ComboBox.Column(1, i) = "EFGH" Then 
     ComboBox.Value = ComboBox.ItemData(i) 
     Exit For 
    End If 
Next i 

Answer 2

Supponendo che il combo si basa su una tabella, è possibile DLookup il valore in tabella:

ComboBox.Value = Dlookup("Value","Table","Code='" & sCode & "'") 

Answer 3

Se la fonte è il valore selezionato in una casella combinata, e il bersaglio è un combobox non associato impostare la proprietà .BoundColumn del combobox bersaglio alla colonna appropriata e poi semplicemente assegnare i valori ComboBox normalmente, come in CBOX = cboY. Anche se la combobox di destinazione è vincolata, è possibile modificare dinamicamente la colonna associata secondo necessità.