Combobox en message [Résolu]

Signaler
Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008
-
Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008
-
Bonsoir,

je voulais savoir SVP comment avoir un truc équivalent à inputbox mais avec une combobox où nous avons tous les enregistrements d'un champ d'une table access afin de permettre aux utilisateurs de choisir uniquement entre ce qui est existant.

amicalement,

Le savoir est la lumière de nous tous, partageons le!

5 réponses

Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008

Voici la solution d'après le lien PCPT et Merci au passage.
Private Sub 
NoDupesInCombo(ByRef cbo As ComboBox)
    Dim i As Long, j As Long
   
    For i = 0 To cbo.ListCount - 1
        For j = cbo.ListCount - 1 To i + 1 Step -1
            If cbo.List(i) = cbo.List(j) Then cbo.RemoveItem (j)
        Next j
    Next i
End Sub

Private Sub 
CommandButton1_Click()
    Call NoDupesInCombo(Me.ComboBox1)
End Sub

Cordialement,

Le savoir est la lumière de nous tous, partageons le!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
salut,

il n'y a rien "par défaut", il faut construire ta forme avec les infos dont tu as besoin.

bonne soirée

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
326
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
29 avril 2008

Salut,
J'avais fait çà, il faut une forme de la taille de ton combo, et à la place de imputbox, tu appelles ta forme.
Messages postés
335
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
8 mars 2008

Ok c'est ce que j'ai fait enfin de compte, je voulais savoir comment éliminer les doublons de ma combobox qui reçoit tous les enregistrements de mon champ.

rs.movefirst
while rs.eof = false
combo1.additem rs.!code
wend
Merci d'avance!

Le savoir est la lumière de nous tous, partageons le!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41