Access VBA: Trouver l'élément dans la boîte combo basé sur la non-liés colonne

J'ai deux colonnes zone de liste déroulante dans un formulaire Access représentant un touche-à-code de la cartographie. La première colonne de la zone de liste modifiable est la "colonne liée' (c'est à dire, la colonne utilisée lorsque MyComboBox.Value est appelé).

J'ai besoin de définir dynamiquement la Value de ma zone de liste modifiable basée sur une valeur se trouve dans la deuxième colonne. Par exemple, si mon combo source:

Value | Code
===============
 A1    | ABCD
 A2    | EFGH
 A3    | IJKL

Je peux définir la valeur de la combo simplement avec ComboBox.Value = "A2", mais comment pourrais-je faire la même chose à l'aide de la deuxième colonne? ComboBox.Value = "EFGH" n'est évidemment pas valable. Essentiellement la recherche de la logique, le long de la lignes de ComboBox.Value = ComboBox.ValueWhereSecondColumnEquals("EFGH")

OriginalL'auteur Kai | 2013-03-12

  1. 6

    Et en supposant qu'il n'est pas basé sur une table/requête:

    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
    to ListCount-1 🙂 Je viens d'ajouter ce.
    Bon endroit! Changé 🙂
    Parfois, la meilleure réponse est le plus simple, ne peut pas croire en boucle à travers elle n'a jamais traversé mon esprit!

    OriginalL'auteur RichardC

  2. 3

    En supposant que votre combo est basé sur une table, vous pouvez DLookUp la valeur dans la table:

     ComboBox.Value = Dlookup("Value","Table","Code='" & sCode & "'")
    Cela fonctionne aussi. Elle n'est pas fondée sur une table pour le moment, mais sera probablement à un certain point
    Kai, sauf si vous avez très peu de valeurs, et en très peu de, je veux dire 2 ou 3, elle doit être basée sur une table pour faciliter l'entretien et la création de rapports et de requêtes.
    Je sais - le tout plus tard seront terminées arrière SQL Server, mais pour le moment suis en attente pour une pleine liste de mappage à fournir et je suis tout à concocter une conception de l'INTERFACE utilisateur (avec zéro back-end) pour montrer au client pour les premiers commentaires.

    OriginalL'auteur Fionnuala

  3. 0

    Si la source est la valeur sélectionnée dans une liste déroulante, et la cible est un indépendant définir la zone de liste déroulante .BoundColumn la propriété de la cible zone de liste déroulante de la colonne appropriée et alors seulement affecter la zone de liste déroulante de valeurs normalement, comme dans la cboX=cboY. Même si la zone de liste déroulante est lié, vous pouvez modifier dynamiquement la colonne liée au besoin.

    OriginalL'auteur David Locke