Salut tout le monde,
J'ajoute un enregistrement dans une liste de cette façon :

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
 Public Sub BDRemplirListeDD(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(0)
 
            Liste.AddItem rsTable(2)
            Liste.ItemData(Liste.NewIndex) = rsTable(1)
 
            rsTable.MoveNext
        Wend
    End If
End Sub
J'aimerais avant cette ligne :

[code ] Liste.AddItem rsTable(2) [/code] vérifier si l'élément ne se trouve

pas déjà dans la liste.

Comment puis-je faire cela svp ?

Je travaille avec une ListBox.

Sql vaut ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql = "SELECT DISTINCT parametre.nom, parametre.id,valeur_parametre.valeur,parametre.type_entrant FROM parametre INNER JOIN valeur_parametre ON parametre.id = valeur_parametre.ref_parametre"
Y-a-t'il une méthode qui permet de parcourir les entrées d'une listbox ?

Dois-je ouvrir un nouveau recordset ?

Merci d'avance pour l'aide.

beegees