Pb avec combobox, regardez mon code

Signaler
Messages postés
2
Date d'inscription
vendredi 15 mars 2002
Statut
Membre
Dernière intervention
13 juin 2002
-
Messages postés
1
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
18 février 2008
-
Salut à tous
j'aimerai que ma combobox se remplisse par le début, et avant d'ajouter une valeur vérifier qu'elle n'y est pas déjà et la supprimer ...

je me demande pourquoi ce code ne fonctionne pas

    If KeyAscii = vbKeyReturn Then
                      For i 0 To i Combo1.ListCount - 1
            If Combo1.List(i) = Combo1.Text Then
                Combo1.RemoveItem i
            End If
        Next i
                
        Combo1.AddItem Combo1.Text, 0
        Combo1.ListIndex = 0

    End If

2 réponses

Messages postés
8
Date d'inscription
mercredi 30 mai 2001
Statut
Membre
Dernière intervention
6 octobre 2004

c'est t'as boucle qui ne vas pas , il faut remplacer "For i = 0 To i = Combo1.ListCount - 1" par "For i = Combo1.ListCount To 0 Step -1" car quand tu fait "Combo1.RemoveItem i" tu modifie le Combo1.ListCount, et tu décale toutes les lignes de -1, donc je crois que ca viens de ca.

j'espère que ca peut t'aider
Messages postés
1
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
18 février 2008

je veut quand je choisisser une matricule par defaut il affiche le nom et prenon
je me demane pourquoi pas se code ne fonctione pas

If Combo2.Text = "" Then Exit Sub
With DataE.rsemploye


.MoveFirst
For i = 0 To .RecordCount - 1
If .Fields(1) = Combo2.Text Then Exit For
.MoveNext
Next i
Text1 = .Fields(2)