VBAにアクセス：バインドされていない列に基づいてコンボボックス内の項目を検索します。

Question

キーとコードのマッピングを表すAccessフォームに2列のコンボボックスがあります。コンボボックスの最初の列は 'バインド列'（つまり、MyComboBox.Valueが呼び出されたときに使用される列）です。

第2列にある値に基づいて、コンボボックスのValueを動的に設定する必要があります。私のコンボボックスのソースがある場合などについては、：

私は単にComboBox.Value = "A2"でコンボボックスの値を設定することができますが、どのように私は2番目の列を使用して同じことをしますか？ ComboBox.Value = "EFGH"は明らかに無効です。

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

Answer 1

そしてそれは、テーブル/クエリに基づいていないと仮定すると：基本的に、あなたのコンボがテーブルに基づいており、あなたがテーブルに値をのDLookupできると仮定するとComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 2

の線に沿ってロジックを探して：

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 3

源はコンボボックスで選択された値であり、目標は未結合コンボボックスは、適切な列にターゲットコンボボックスの.BoundColumnプロパティを設定した後だけCBOXのように、通常、コンボボックスの値を割り当てる場合= cboY。ターゲットコンボボックスがバインドされている場合でも、必要に応じてバインドされた列を動的に変更できます。