Dostęp do VBA: Znajdź pozycję w polu kombi opartym na niezaznaczonej kolumnie

Question

Mam dwukolumnowe pole kombi na formularzu Dostęp reprezentującym mapowanie z kluczem do kodu. Pierwsza kolumna pola kombi jest "kolumną wiązaną" (tj. Kolumną używaną przy wywołaniu MyComboBox.Value).

Muszę dynamicznie ustawić Value mojego pola kombi na podstawie wartości znalezionej w drugiej kolumnie. Np, jeśli źródłem jest pole kombi:

mogę ustawić wartość pola kombi prosto z ComboBox.Value = "A2", ale jak to zrobić to samo przy użyciu drugą kolumnę? ComboBox.Value = "EFGH" oczywiście nie jest prawidłowy. Zasadniczo szukam logiki wzdłuż linii ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 1

i zakładając, że nie jest oparta na stole/zapytania:

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

Zakładając, że combo oparty jest na stole, można DLookup wartości w tabeli:

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

Answer 3

Jeśli źródłem jest wybrana wartość w combobox, a celem jest niezwiązana ComboBox ustawienia właściwości .BoundColumn combobox docelowej odpowiedniej kolumnie, a następnie po prostu powiązanie wartości COMBOBOX normalnie jak w Cbox = cboY. Nawet jeśli docelowy combobox jest powiązany, możesz dynamicznie zmieniać zależną kolumnę w razie potrzeby.