effacer valeur (items) d'une liste déroulante

Question

qu'elle belle matin&#233;e que ce matin, ou d&#233;j&#224; un pb subsiste :'(



que je d&#233;nonce ce souci :@



j'ai une liste d&#233;roulante, qui se remplit selon un autre liste d&#233;roulante ex :

dans ma pr&#233;mi&#233;re liste d&#233;roulant j'ai le chois entre : canton, secteur sanitaire, pays, d&#233;partement ect...

si je choisi un type de lieu, tel qu'un d&#233;partement, j'aurais la liste
de d&#233;partement dans ma liste d&#233;roulante du dessous, la c bon

je change je voulais choisir un pays, tjs bon, mais apres je me dit
non,  un canton, et l&#224; en d&#233;but de liste apparait, les deux
derni&#233;res

valeurs de la liste "pays"



meme si je choisit canton, secteur sanitaire ou autre, apr&#233;s avoir
voulu s&#233;lectionner un pays, ces deux valeur apparaisent alors qu'elle
ne doivent pas.



ex : choix 1&#233;re liste : R&#233;gion

       choix 2&#233;me liste : Pays du Centre-Ouest Bretagne;Pays du Tr&#233;gor-Go&#235;lo;Bretagne;Bretagne/dep



c'est deux pays non rien a faire ici

et viennent toujours s'incruster si j'ai le malheur d'avoir s&#233;lectionner pays auparavant.



voici mon prog pour effacer ma liste avant insertion des n-uplets du choix (r&#233;gion, dep...)



Private Sub Modifiable11_BeforeUpdate(Cancel As Integer)

d&#233;claration varaible.....

connection.....

ect...



         ' Supprime les valeurs contenu dans la liste pr&#233;c&#233;dente, les derni&#233;res valeurs du dernier choix

            n = Modifiable26.ListCount      ' compte le nombre d'&#233;l&#233;ment de la liste, correspond a la liste 'Nom' 1&#233;re liste

            MsgBox (n)

        For i = 1 To n

            Modifiable26.RemoveItem (0)     ' efface les &#233;l&#233;ments de la liste

        Next i

        

        n = Modifiable31.ListCount      ' compte le nombre d'&#233;l&#233;ment de la liste, correspond a la liste 'Num&#233;ro' 2&#233;me liste

        For i = 1 To n

            Modifiable31.RemoveItem (0)     ' efface les &#233;l&#233;ments de la liste

        Next i



la suite si &#231;a peut aider



' Boucle des valeurs des liste selon le type de lieu de d&#233;c&#233;s choisit



    If Modifiable140.Value = "Canton"
Then              ' * Si S&#233;lection c'est "Canton" * '

         

    ' ferme les recordset s'ils sont d&#233;j&#224; ouvert

    If req.State Then

        req.Close

    ElseIf req2.State Then

        req2.Close

    End If



    ' S&#233;lectionne les noms de Canton et les code de canton

    req.Open "SELECT DISTINCT Canton from Pays", cn, adOpenStatic, adLockOptimistic, adCmdText ' pour ma 2&#233;me liste

    req2.Open "SELECT DISTINCT CODE_CT from Com_Cant1999
order by CODE_CT   ", cn, adOpenStatic, adLockOptimistic,
adCmdText ' celle l&#224; pas grave



    ' ins&#233;re les valeurs 'Nom' selon le type de lieu du d&#233;c&#233;s

    While Not
req.EOF                  
' Tant que pas fin de valeurs de la requ&#234;te faire ...

        s =
req.Fields(0)               ' s prend la valeur du premier champ, soit Canton, de la premi&#233;re ligne

        Modifiable26.AddItem (s)        ' ajoute s &#224; la liste des valeurs de la ComboList nomm&#233;e Modifiable.26

       
req.MoveNext                   
' pointe vers la prochaine valeur,ligne

    Wend



    While Not
req2.EOF                  ' ins&#233;re les valeurs 'Num&#233;ro' selon le type de lieu du d&#233;c&#233;s

        s1 = req2.Fields(0)

        Modifiable31.AddItem (s1)

        req2.MoveNext

    Wend



Le reste est semblable

je me demande donc pourquoi ces 2 derni&#233;res valeurs de la liste des
pays, ne s'&#233;ffa&#231;ent pas lorsque je choisit un autre type de lieu

est ce dut au (-) ==> Pays du Centre-Ouest ?

parceque les autres fonctionnent bien

comptabilise bien 23 valeur dasn mon msgbox mais a l'air d'en effacer que 21



et j'ai le meme pb dans une autre liste

ou c par rapport a des cause de d&#233;ces, et si l'on choisit tumeurs, on a
la liste des tumeurs possible, et si je veux choisir autre, maladie de
l'appareil circulatoire par ex, les 3 derni&#233;res valeur des tumeurs
dispo aprraissent aussi, mais ce ph&#233;nom&#233; appraait que pour celui l&#224;
aussi, c'est a n'y rien comprendre

 comptabilise bien 17 valeur dasn mon msgbox mais a l'air d'en effacer que 14



il existe bien une m&#233;thode "items.clear" , mais j'ai desesp&#233;rement
essayer de trouver le "outils=>r&#233;f&#233;rence" qu'il faut s&#233;lectionner
mais sans r&#233;sultat.(si se serait si simple que &#231;a)



bon bon, j'ai marqu&#233; bcp de blabla, si vous i arriver jusque l&#224;, je vous f&#233;licit&#233; ^^, mais c'est pour essayer d'&#234;tre clair : )



voila, si vous avez une id&#233;e n'h&#233;sitez pas ^^

cs_nanach · Answer

De plus en faites pour en rajouter une couche

je s&#233;lectionne pays, j'ai ma liste de pays

je s&#233;lectionne canton, j'ai ma liste de canton et ces deux valueurs,
mais je res&#233;lectionne canton, j'ai ma liste de valeurs sans ces deux
derni&#233;res qui m'emb&#233;ttent  ????!!!!!!

c'est &#233;mb&#233;ttant qu'elles aprraissent disparraissent :s

(sous vba, access,projet adp,sqlserveur)

Effacer valeur (items) d'une liste déroulante

1 réponse

Discussions similaires