VBA'ya erişme: Ciltlenmemiş sütuna göre açılan kutuda öğe bul

Question

Anahtar kod eşlemeyi temsil eden bir Access formunda iki sütunlu bir combo kutusu var. Birleşik kutunun ilk sütunu 'ciltli sütun' (yani, MyComboBox.Value çağrıldığında kullanılan sütun) 'dir.

Açılan kutunun Value işlevini ikinci sütunda bulunan bir değere göre dinamik olarak ayarlamalıyım. örneğin, benim açılan kutu kaynağı ise: İkinci kolon kullanılarak

ben sadece ComboBox.Value = "A2" ile açılan kutu değerini ayarlayabilirsiniz, ancak nasıl aynısını yapardınız? ComboBox.Value = "EFGH" açıkçası geçerli değil.

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

Answer 1

Ve bu tablo/sorguya dayalı değil varsayarak: Esasen sizin açılan bir tablo dayanmaktadır varsayarsak ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

Answer 2

çizgisinde mantığı arayan, tabloda değerini DLookUp edebilirsiniz: kaynak bir combobox seçilen bir değerdir, ve hedef Cbox olarak, uygun bir kolona hedef combobox .BoundColumn özelliğini ayarlamak bir ilişkisiz combobox ve daha sonra, sadece normal combobox değerleri atamak ise

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

= cboY. Hedef birleşik giriş kutusu bağlı olsa bile, bağlı sütunu gerektiği gibi dinamik olarak değiştirebilirsiniz.