Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 09/10/2011, 12h14   #1
Membre confirmé
 
Avatar de Oliv'83
 
Homme Mon prénom cherche, c'est pas très dur...
Directeur commercial
Inscription : mars 2008
Messages : 356
Détails du profil
Informations personnelles :
Nom : Homme Mon prénom cherche, c'est pas très dur...
Âge : 42
Localisation : France

Informations professionnelles :
Activité : Directeur commercial
Secteur : Tourisme - Loisirs

Informations forums :
Inscription : mars 2008
Messages : 356
Points : 216
Points : 216
Par défaut Filtrer une Liste de choix en fonction d'un champ contenu dans le formulaire

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 :
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'
Oliv'83 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 10/10/2011, 15h46   #2
Membre Expert
 
Homme Jacques Petiot
Indépendant développeur et formateur
Inscription : octobre 2007
Messages : 891
Détails du profil
Informations personnelles :
Nom : Homme Jacques Petiot
Âge : 51
Localisation : France

Informations professionnelles :
Activité : Indépendant développeur et formateur
Secteur : Conseil

Informations forums :
Inscription : octobre 2007
Messages : 891
Points : 1 333
Points : 1 333
Hello Oliv'83 comment vas tu?
une petite suggestion:
Code :
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 :
listexxx.controlsource = text_sql
__________________
-------------------Simplifi----------comme si tout était simple--------
Simplifi est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h46.


 
 
 
 
Partenaires

Hébergement Web