donner une valeur par défaut à une liste déroulante ne contenant pas cette valeuRésolu

Question

bonjour tout le monde ^^



petit souci sur vba (youpie)



que je vous explque : )



j'ai une liste d&#233;roulante qui me fournit des ages quinqu&#233;nale (0-5-10-......95) via une requ&#234;te

SELECT DISTINCT AGE FROM Sous_table_dc 

que j'ai mise dans les propri&#233;t&#233;s de la liste, propri&#233;t&#233;s ==>contenu 

( voila c tout b&#234;te)



&#231;a marche nikel, hors aie aie aie, j'ai oubli&#233; de mettre que
l'utilisateur au lieux de choisir un age, peut aussi choisir tous les
ages, donc il me faudrait avoir dans ma liste d&#233;roulante ceci (
Tous-0-5-10-....95)



et dans ma requ&#234;tes je n'est pas cette valeur "Tous", est ce que l'on peut faire un truc du genre

SELECT DISTINCT AGE FROM Sous_table_dc & " Tous " (j'ai essayer &#231;a marche pas, juste pour vous montrer)



ou alors faut tout programmer comme &#231;a : ( toutes les d&#233;claration ne
sont pas l&#224;, mais en variables globales, pas de souci de ce c&#244;t&#233;)



Private Sub Modifiable146_Click()



                                               
'  **** AGE ****  '

 'D&#233;claration des variables

Dim s As String



' Instanciation de la connexion

Set cn = New ADODB.Connection



' Ouverture de l'objet

cn.Provider = "SQLOLEDB"

cn.ConnectionString "Data Source SERVEUR2; Initial Catalog = INSERM;"

cn.Open userid:="******", password:="******"



    Modifiable146.Value =
""                     ' rend le champ vide



    ' ferme le recordset s'il est d&#233;j&#224; ouvert

    If req4.State Then

        req4.Close

    End If



    ' affiche les ages 

    req.Open " SELECT DISTINCT AGE FROM Sous_table_dc "



    While Not req.EOF

        s = req.Fields(0)

        MsgBox (s)

        Modifiable146.AddItem (s)

        req.MoveNext

    Wend



'     s = "Tous"

'     MsgBox (s)       

'     Modifiable146.AddItem = s



End Sub



mais la c'est &#233;trange, je ne r&#233;cup&#233;re aucun age, alors que la requ&#234;te
est correct, et j'essaye d'inserer d'autre part , le "Tous",il passe
(msgbox) mais rien n'apparait dans la liste ( origine source = liste
valeur, dans les propri&#233;t&#233;s), et le nom de la liste est bien
Modifiable146.

me suis-je tromp&#233; sur le Private Sub Modifiable146_Click(), 

beforeUpdate ne me retourne aucune valeur aussi



dites moi si vous trouver ma demande ambig&#252;e, et vous remercie d'avance pour ceux qui voudrons ce pencher sur ce probl&#232;me.

PtitGrumo · Accepted Answer

Salut

voici ma solution si tu l'accepte lol
met lui la requ&#232;te suivante

SELECT DISTINCT AGE FROM Sous_table_dc 
UNION SELECT 'Tous' as AGE FROM Sous_table_dc

voila et tu la verra dans ta liste

cs_nanach · Answer

j'ai testé ta requête et elle correspond tout à fait à ma demande
me reste plus qu'a résoudre ce deuxième pb d'incompréhension du pk veut-il pas l'éxécuter dans mon formulaire x_X

En tout cas c'est tout à fait ce que je voulais, je te remercie beaucoup ^^

yep CHEF  : )

cs_nanach · Answer

C'est bon c'est réglé définitivement
j'ai fiat une vue, et je l'est apellé comme contenu
merci bien encore, tu me sauve (y)

PtitGrumo · Answer

De rien a tr&#232;s beintot

++

PtitGrumo

Donner une valeur par défaut à une liste déroulante ne contenant pas cette valeu

4 réponses

Discussions similaires