Combobox en messageRésolu

Question

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!

basamir · Accepted Answer

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!

PCPT · Answer

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

bricoyeye · Answer

Salut,
J'avais fait çà, il faut une forme de la taille de ton combo, et à la place de imputbox, tu appelles ta forme.

basamir · Answer

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!

PCPT · Answer

http://www.codyx.org/snippet_supprimer-doublons-combobox_374.aspx

Combobox en message

5 réponses

Votre réponse

Discussions similaires