Combo box

zecups Messages postés 45 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 14 février 2007 - 11 déc. 2003 à 18:35
Shivan0910 Messages postés 149 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 24 novembre 2010 - 11 déc. 2003 à 22:05
salut je voudrais savoir si y a possibilite d'effacer les doublons d'un combo box.

ma liste est incremente par ma base de donnees donc il se peut qu'il y ai des doublons.

comment les enlever?

merci

2 réponses

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
11 déc. 2003 à 19:37
Voila une petite fonction vite fais qui te permet de supprimer les doublons dans un combo box

Public Function SupprDoublon(Ctrl As ComboBox)
For i = 0 To Ctrl.ListCount - 1
For a = i + 1 To Ctrl.ListCount - 1
If Ctrl.List(i) = Ctrl.List(a) Then
Ctrl.RemoveItem (i)
a = a - 1
End If
Next a
Next i
End Function

++
0
Shivan0910 Messages postés 149 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 24 novembre 2010 3
11 déc. 2003 à 22:05
pkoi tu ne remplis pas ton combobox avec un requete comprenant un DISTINCT ou un GROUPBY ?

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"
0
Rejoignez-nous