Bonjour tout le monde,

J'ai ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Public Sub RemplirListeIngredients()
    BDRemplirListe "SELECT ingredient.id, ingredient.nom, ingredient.stock FROM ingredient ORDER BY nom DESC", listIngredients
End Sub
Je passe donc une chaine de caractère et un contrôle (liste déroulante)

Mon programme ne va pas plus loin car il plante sur la l'appel de fonction en me laissant ce message d'erreur :

Erreur d'exécution '13' : Type incompatible
Voici le code de la procédure BDRemplirListe :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub BDRemplirListe(ByVal sql As String, ByRef Liste As Control)
    Dim rsTable As Recordset
 
    If (TypeOf Liste Is ListBox) Or (TypeOf Liste Is ComboBox) Then
        Set rsTable = BD.OpenRecordset(sql, dbOpenSnapshot)
        Liste.Clear
        While Not rsTable.EOF
            Liste.AddItem rsTable(1)
            Liste.ItemData(Liste.NewIndex) = rsTable(0)
            rsTable.MoveNext
        Wend
    End If
End Sub
Par rapport à ce que je vous donne, savez-vous me dire quelle est l'erreur ?

Si vous en avez besoin, je peux laisser l'entierté du programme.

Merci d'avance.

beegees