Discussion :

[Oliv'83]

Bonjour à tous,

J'ai une zone de liste déroulante dans un formulaire continu contenu dans un onglet.

Je voudrais que cette liste soit filtrée en fonction d'un champ contenu dans le même formulaire.

Voici le code que j'ai mis dans la partie Contenu de l'onglet Données des Propriétés de ma liste

Code :

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

1
2
3
4
SELECT tbl_Caravane.Code_Caravane, tbl_Caravane_Reglement.Date_de_réglement
FROM tbl_Caravane_Reglement INNER JOIN tbl_Caravane ON tbl_Caravane_Reglement.Code_Caravane = tbl_Caravane.Code_Caravane
WHERE (((tbl_Caravane.Code_Caravane)= Forms![frm_2_Consultation_Client_Onglets_2009]![sfrm_Parking_Caravane_2009].Form![Code_Caravane]))
ORDER BY tbl_Caravane_Reglement.Date_de_réglement DESC;

Et cela ne fonctionne pas... Il faut que je renseigne manuellement Forms![frm_2_Consultation_Client_Onglets_2009]![sfrm_Parking_Caravane_2009].Form![Code_Caravane] pour obtenir le bon résultat.

J'en déduis que je dois faire au moins une erreur de syntaxe mais je n'arrive pas à trouver laquelle.

Merci de votre aide

Oliv'

[Simplifi]

Hello Oliv'83 comment vas tu?
une petite suggestion:

Code :

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

1
2
3
4
text_sql = "SELECT tbl_Caravane.Code_Caravane, tbl_Caravane_Reglement.Date_de_réglement"
text_sql = text_sql  & "FROM tbl_Caravane_Reglement INNER JOIN tbl_Caravane ON tbl_Caravane_Reglement.Code_Caravane = tbl_Caravane.Code_Caravane"
text_sql = text_sql  & "WHERE tbl_Caravane.Code_Caravane)= " & code_Caravane
text_sql = text_sql  & "ORDER BY tbl_Caravane_Reglement.Date_de_réglement DESC;"

ensuite, après changement de la valeur de Code_Caravane le petit VB

Code :

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

listexxx.controlsource = text_sql