Access VBA: Finden Sie Element in Kombinationsfeld basierend auf nicht gebundene Spalte

Question

Ich habe ein zweispaltiges Kombinationsfeld in einem Access-Formular, das eine Schlüssel-zu-Code-Zuordnung darstellt. Die erste Spalte des Kombinationsfelds ist die 'gebundene Spalte' (dh die Spalte, die verwendet wird, wenn MyComboBox.Value aufgerufen wird).

Ich muss die Value meines Kombinationsfelds basierend auf einem Wert in der zweiten Spalte dynamisch festlegen. wenn meine Kombinationsfeld Quelle für zB:

ich den Wert des Kombinationsfelds festlegen können einfach mit ComboBox.Value = "A2", aber wie würde ich das gleiche tun, die zweite Spalte? ComboBox.Value = "EFGH" ist offensichtlich nicht gültig. Im Wesentlichen für die Logik entlang der Linien von ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 1

Und es ist nicht basierend auf einer Tabelle/Abfrage annehmend:

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

Suche Unter der Annahme, dass Sie Ihre Combo auf einer Tabelle basiert, können Sie den Wert in der Tabelle DLookUp:

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

Answer 3

Wenn die Quelle der Wert in einem Combobox, und das Ziel ist ein ungebundenes Combobox gesetzt .BoundColumn die Eigenschaft des Ziels Combobox zu der entsprechenden Spalte und weist nur die Combobox Werte normalerweise, wie in der C-Box ausgewählt ist = cboY. Auch wenn das Ziel-Kombinationsfeld gebunden ist, können Sie die gebundene Spalte nach Bedarf dynamisch ändern.