Discussion :

[beegees]

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

[pc75]

Bonjour,

Tu as la propriété ListCount :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
For i = 0 to Liste.ListCount  - 1
.....

[littledoudou]

bonjour

ceci devrait répondre à ton besoin

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
'#déclarations
Dim lngCount As Long
Dim blnItemExists As Boolean
 
'-->partie en remplacemment de ta ligne "Liste.AddItem rsTable(2)"
 
'#scruter la liste existante pour déterminer si l'élément existe ou non
blnItemExists = False
For lngCount = 0 To Liste.ListCount - 1
    If Liste.List(lngCount) = rsTable(2) Then
        blnItemExists = True
        Exit For
    End If
Next lngCount
'#si l'élément n'a pas été trouvé...
If blnItemExists = False Then
    Liste.AddItem rsTable(2)
End If

cdlt,

[beegees]

Bonjour,

Un tout grand merci à vous deux.

Mon problème est maintenant grâce à vos réponses.

Encore merci
beegees

[OhMonBato]

Je suis pas spécialiste en database, mais puisque je vois que la liste est remise à 0 dans ta procédure BDRemplirListeDD, y'aurait pas moyen plutôt de chercher les doublons dans ta database avant de remplir la liste ?