[AC-2010] Remplir plusieurs colonnes d'une ComboBox [Résolu]

[Tevsox]

Bonjour,

Ça fait moment que je creuse, mais à force d'avoir la tête dedans, on voit même plus les évidences...

J'ai une requête qui va me chercher un Id et un Nom associé dans un table.
J'aimerai remplir ma ComboBox à partir de ma requête.

Voilà l'exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Form_Open(Cancel As Integer)
    Dim base As DAO.Database
    Dim req As DAO.Recordset
    Dim sql As String

    Set base = CurrentDb()

    sql = "SELECT Id, Nom FROM Plante ORDER BY 2;"
    Set req = base.OpenRecordset(sql)
    With req
        If .RecordCount > 0 Then
            .MoveFirst
            Do Until .EOF
                Me.CmbBox.AddItem !Id, 0
                ??
                .MoveNext
            Loop
        End If
    End With
    
    Set base = Nothing
    Set req = Nothing
End Sub

Ce code me permet de remplir la ComboBox avec les Id, mais je n'arrive pas à insérer les noms correspondant.

En cherchant, j'ai trouvé

Code :

Me.CmbBox.Column(2, 0) = !Nom

mais cette ligne me fait "Erreur d'exécution '424' Objet requis".


J'ai besoin de vos lumières...
Merci d'avance !

[Simplifi]

Hello
j'utilise simplement le "rowsource" par exemple

Code :

    List_Moyens.RowSource = "liste_famille"

pour affecter la requête liste_famille qui est déjà enregistrée
ou bien

Code :

    Colorant.RowSource = "SELECT Couleur, Ref_col, N°colorant FROM Matières INNER JOIN (Colorants INNER JOIN Corespond_mat_col ON Colorants.N°colorant = Corespond_mat_col.N°col) ON Matières.N°matière = Corespond_mat_col.N°mat WHERE N°matière =" & Matière & ";"

pour que le contenu de la combobox dépende d'une textbox, ici Matière
ou bien plus simple, pour remettre à défaut

Code :

Colorant.RowSource = "SELECT Couleur, Ref_col, N°colorant FROM Colorants;"

voir encore

Code :

Colorant.RowSource = Text_Sql

si j'ai préparé un SQL un peu lourd en amont

En espérant avoir aidé

[Tevsox]

Bonjour,

Merci de ta réponse hyper rapide
Effectivement, pourquoi faire simple quand on a décidé de se prendre la tête... !

Je vais essayer la méthode avec rowsource de ce pas !

[Tevsox]

C'est résolu.
Ça valait vraiment pas le cout que je me prenne la tête là-dessus hier !

Merci Simplifi