Discussion :

[cobaye13]

Bonjour,
J'ai un formulaire.
Sur ce formulaire j'ai mis une listbox que j'alimente à partir d'une requête sql toute simple.
Je souhaite sélectionner un item en cliquant dessus dans cette liste ainsi affichée
Ensuite je souhaite récupérer la valeur de l'item sélectionné pour l'introduire dans une clause where d'une autre requête sql dont le but est de remplir les champs du formulaire en question avec les infos issues de la requête en question.
Le tout bien sûr sur le même formulaire

J'ai bien regardé les tutos et autres exemples mais je n'ai rien trouvé/compris de très intéressant. Ca doit bien exister mais je manque de patience.
Merci de votre aide

[marot_r]

Bonjour.

Si ta liste est à sélection unique cela devrait être un trc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql="select [TaSource].* from [TaSource] where [TonChamp]="""" & me.TaListe & """"

A+

[cobaye13]

Bonjour et merci,
Mais je ne comprends pas la réponse.....
Ce que je souhaite
1) c'est à partir de ma listbox/combobox sélectionner un des items de la liste en cliquant dessus.
des choses comme ce qui suit ne marchent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub cbo.Cycle_click()
MsgBox (cboCycle.Value) 
End sub

ne marchent pas.
Pour info dans la sub qui ouvre la form j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim cboCycle As Combobox
Dim cycle As Variant
Set cboCycle = Me.cboCycle
cboCycle_click

j'ai essayé avec .value avec .text mais au mieux je récupère le rang (entre 0 et n) ou le numéro d'ordre (entre 1 et n) de l'élément choisi dans ma liste


2) affecter le texte de cet item (pas son rang dans la liste) à une variable
3) passer cette variable dans une clause where d'une autre requête sql

J'ai aussi un souci avec le type de la variable où récupérer la valeur j'ai mis cycle as Variant mais visiblement quant je fais cycle = cboCycle.Text ça ne marche pas.

Merci pour toute aide

[Philipchek]

Bonjour,

[...]
des choses comme ce qui suit ne marchent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub cbo.Cycle_click()
MsgBox (cboCycle.Value) 
End sub

2) affecter le texte de cet item (pas son rang dans la liste) à une variable
3) passer cette variable dans une clause where d'une autre requête sql

1 - Dans ton code ci-dessus : si ta procédure événementielle s'apelle "Cbo.Cylcle_click()", alors ta liste s'appelle probablement "Cbo.Cycle". En conséquence, il y a une erreur dans le nom de la liste, il faudrait écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox Cbo.Cycle.value

(sans parenthèses). Ca suppose bien sur qu'il n'y a qu'une ligne sélectionnée.

2 - Pour insérer la valeur sélectionnée dans une clause where, tu n'as pas obligatoirement besoin d'une variable
Si ta valeur est numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

marequete="SELECT monchamp FROM matable WHERE champtexte = " & Cbo.Cycle.value

Si ta valeur est du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

marequete="SELECT monchamp FROM matable WHERE champtext = " & "'" &  Cbo.Cycle.value & "'"

Si ta valeur est dans une autre colonne que la colonne liée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

marequete="SELECT monchamp FROM matable WHERE champtext = " & "'" &  Cbo.Cycle.Column(numérodelacolonne) & "'"

Enfin, si tu as vraiment besoin de stocker la valeur dans une variable, et dans l'hypothèse d'une valeur texte dans une autre colonne que la colonne liée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
mavariable = Cbo.Cycle.Column(numérodelacolonne)
marequete="SELECT monchamp FROM matable WHERE champtext = " & "'" & mavariable  & "'"

Voilà, j'espère que ça peut t'aider.