Combobox ajout de texte dans la liste sans répétition

Question

Bonjour à tous, 

j'essaye d'ajouter des elements dans une combobox avec additem mais sans qu'il y est des répétitions.
j est essayé mais j ai une erreur quelque part parce que une seule partie des elements que j ai ajouté apparait

Dim eq As String
Dim i As Integer
Dim add As Boolean
add = True

If Not Data.Recordset.EOF Then



  Data.Recordset.MoveFirst




      Do While Not (Data.Recordset.EOF)
            
         eq = Data.Recordset("equipe")
         
         
         If Not eq = "" Then
         
For i = 0 To Comboequipe.ListCount
       
          If eq = Comboequipe.List(i) Then
         add = False
         'Comboequipe.AddItem eq
                      
         End If

 Next i
                  If add = True Then
                  Comboequipe.AddItem eq
                  End If

          
         End If

                       
         Data.Recordset.MoveNext
            
        Loop
    
    Data.Recordset.MoveFirst
    
End If
voila . Merci d'avoir lu et si quelqu'un peut m'aider qu'il n'hésite surtout pas.
merci d'avance

fiko81 · Answer

Salut,

Je pense que tu peux utiliser une requette du genre SELECT DISTINCT ... à partir de ta base de données.

 Fiko ;-)

Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance./FONT>

Strick9 · Answer

merci, je vais tenter de chercher sur cette voie sinon quelqu unsaurai s il y a une API pour faire ça?

mortalino · Answer

Salut,

Un p'tit coup de pub : va voir ma source et aide toi de mon code

http://www.vbfrance.com/codes/TRIEUR-DOUBLONS_38162.aspx

ça trie les données access sans ajouter de doublons

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Combobox ajout de texte dans la liste sans répétition

3 réponses

Votre réponse

Discussions similaires