combobox épurationRésolu

Question

Bonjour à tous, 

j'ais un petit problème j'utilise addnew pour ajouter des valeur dans mon combo mais je ne veut pas qu'il y ai deux fois la même valeur comment je peut faire svp ? 

Merci.

PCPT · Accepted Answer

salut, oui c'est possible mais je ne vois pas pourquoi on peut saisir dans le combo, ni pourquoi ta base peut contenir des doublons... bref : ' en supposant BFT!NBF de type String Dim sTempVal As String Dim i As Integer Dim bDoublon As Boolean While Not BFT.EOF sTempVal = BFT!NBF bDoublon = False Combo2.AddItem sTempVal For i = 0 To Combo3.ListCount - 1 If Combo3.List(i) = sTempVal Then bDoublon = True Exit For End If Next i If Not bDoublon Then Combo3.AddItem sTempVal BFT.MoveNext Wend Coloration syntaxique automatique [AFCK] pas testé mais çà devrait être bon... ++ PCPT [AFCK]

Prenez un instant pour répondre à ce sondage svp

thkiller · Answer

je vous met un bout de mon code qui fonctionne uniquement pour si la valeur est "1"

 While Not BFT.EOF = True
   Combo2.AddItem BFT!NBF
   Combo3.AddItem BFT!NBT
    If Combo3.List(nb_BT) = BFT!NBT Then
      Combo3.RemoveItem (nb_BT)
      nb_BT = nb_BT + 1
    End If
    BFT.MoveNext
 Wend

thkiller · Answer

Pour ceux qui n'aurais pas comprit ce que je veux faire, je réexplique :

donc je remplit mon combox3 et je veut dasn le même temps effectuer une vérification sur les valeur déjà saisie !!

Es possible ?

Merci !!

thkiller · Answer

MERCI, 


MERCI, 


MERCI, 


MERCI, 


MERCI, 


MERCI, 


MERCI, ca marche supper ton truck juste un ptit modif et impécable trop fort thx man.

PCPT · Answer

alors n'oublie pas de cliquer sur "Réponse acceptée !" 

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Combobox épuration

5 réponses

Votre réponse

Discussions similaires