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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !