Avoir des check box pour les parametres d'une requete

**smalldragoon** · 13/10/2014, 03h05

Bonjour,
Je suis nouveau sur Access ... je suis sous business object et je pense que ce n'est qu'un manque de connaissance pour resoudre mon probleme :
J'ai 2 tables : equipement et categorie.
Je souhaites afficher uniquement certains equipments en fonction de leur categorie.
Je voudrai pouvoir avoir en parametre des checkboxs ( issus de ma table categorie ) a selectionner .
J ai ma requete faites en "manuel" ( j ai fait des tests en SQL direct ), mais impossible de trouver comment le faire via les parametres en dynamique( je n arrive qu a avoir un champs ou je dois taper a la main ...)
Merci d avance !
NB: j ai cherche avec parametre dans le forum et a priori rien , donc je pense que la feinte est autre part avec un autre mot clef ?...

**madefemere** · 13/10/2014, 11h49

Bonjour,

Est-ce que tu veux obligatoirement un checkbox? Parce qu'avec une liste déroulante, tu as un TUTO ICI.
Après, pour présenter des résultats ou travailler avec l'utilisateur final, on préfère souvent les formulaires. Tu as ICI les différents modèles et propositions pour créer des formulaires de recherches.

Cordialement,

**smalldragoon** · 13/10/2014, 14h26

Envoyé par madefemere

Bonjour,

Est-ce que tu veux obligatoirement un checkbox? Parce qu'avec une liste déroulante, tu as un TUTO ICI.
Après, pour présenter des résultats ou travailler avec l'utilisateur final, on préfère souvent les formulaires. Tu as ICI les différents modèles et propositions pour créer des formulaires de recherches.

Cordialement,

Bonjour, non pas forcement de check box.
Ce Tuto je l avais trouve mais il ne prends pas en compte mon choix de la listbox, je m explique :
Avec le REplace en VB, il ne "reconnais pas " cboPays ( avec Nz(cboPays) dans l exemple ). Chez moi, la listbox s apelle donc categorie mais il remplace juste par du vide ( donc 2 "" )... J'en ai deduit qu il ne savais pas recuperer les selections ... d ou mon idee de checkbox plutot ...
J ai verifie mon code en lui demandant de remplacer le parametre [XX] par "toto" par exemple, et ca passe nickel ... si tu vois pourquoi, je suis ouvert a la listbox, l idee etait que cela ne devait pas me prendre longtemps en faire ...

**madefemere** · 13/10/2014, 21h17

Est-ce que la petite base en pièce jointe te parle ?

**smalldragoon** · 14/10/2014, 14h43

Envoyé par madefemere

Est-ce que la petite base en pièce jointe te parle ?

Alors oui, il y a l event apres la mise a jour , je crois que je comprends a peu pres... Mais du coup, qd je passe la combo en listbox, ca ne marche plus.
J'avais lu un tuto et dans la meme idee du lien que tu m as donne avant, avec un bouton OK a clicquer pour la mise a jour
Je joint ma base... ce que je ne comprends pas c est pourquoi il ne recupere pas la valeur de ma combo... apres pleins de tests, ca sonne comme du code VB mal utilise ( je vois un me.filter dans ton code ...?? )

**madefemere** · 14/10/2014, 16h16

Bon, effectivement, récupérer les éléments sélectionnés dans une liste Box n'est pas des plus trivial.
Ci-joint ta base rectifiée. J'ai aussi enlever le paramètre Context... dans la requête.

**smalldragoon** · 14/10/2014, 18h40

Merci beaucoup, en fait c etait bien du VB ..complique ..

...
Par contre pour contexte, il me le faudrai qd meme ... est ce que c est un mot reservé ? si j apelle ca categorie ?
L'idee ...
J ai ma liste d equipement
MOn user selectionne son activité, et il a une liste d equipement, classe par categorie qui s affiche...
Pcq la tu as changer le remplacement dans la requete du bouton O, mais quoi d autre ? je ne vois pas d autre modifs si ? que je comprene ;-)

**smalldragoon** · 14/10/2014, 20h10

Envoyé par smalldragoon

Merci beaucoup, en fait c etait bien du VB ..complique ..

...
Par contre pour contexte, il me le faudrai qd meme ... est ce que c est un mot reservé ? si j apelle ca categorie ?
L'idee ...
J ai ma liste d equipement
MOn user selectionne son activité, et il a une liste d equipement, classe par categorie qui s affiche...
Pcq la tu as changer le remplacement dans la requete du bouton O, mais quoi d autre ? je ne vois pas d autre modifs si ? que je comprene ;-)

Apres tests entre temps, il ne tiens pas compte de "multi selection" ... il ne remplace que le dernier cliqué en fait ...
Je viens de verifier en regardant la requete SQL :
SELECT Categorie.nom, Equipement.Nom
FROM (Equipement INNER JOIN Categorie ON Equipement.[Categorie] = Categorie.[nom]) INNER JOIN Contexte ON Equipement.Contexte.Value = Contexte.Nom
WHERE (((Contexte.Nom)="Eau Chaude"));
OR il devrait mettre (Contexte.Nom)="Eau Chaude") or (Contexte.Nom)="Eau Froide") ... je suppose que le Nz(Me.CONTEXT_VALID.ItemData(varItm)) ne gere pas cette syntaxe ?

J'ai nettoyé la base de tous mes tests et insere des records poru que ce soit plus comprehensible ..

**madefemere** · 14/10/2014, 20h59

Bonsoir,

Oui, c'est du VBA combiné avec du SQL.
Commençons par le début et simple :
1- J'ai supprimé un paramètre "Choose_Context" qui se trouvait dans la requête "Liste_Equipement_Modele" qui était inutile.
Pièce jointe 158753 Donc t'inquiètes pas là-dessus.
2- Le résultat de ta requête va être affiché dans "Liste_Equipement", mais on utilise la requête paramétrée "Liste_Equipement_Modele" qui a comme code SQL :

Code :

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

1
2
SELECT Categorie.nom, Equipement.Nom, Contexte.Nom
FROM (Equipement INNER JOIN Categorie ON Equipement.[Categorie] = Categorie.[nom]) INNER JOIN Contexte ON Equipement.Contexte.Value = Contexte.Nom WHERE (((Contexte.Nom)=[Choose_context]));

où donc le =Choose_context est un paramètre qui devra être changé par les données à partir de ton formulaire (c'est le bon paramètre qu'on va utiliser).
3- L'essentiel du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'Récupérer les valeurs sélectionnées dans une liste box
strCriteria = Chr(34) 'commencer le critère par un "
For Each varItm In Me.CONTEXT_VALID.ItemsSelected
    'Effectue le remplacement du critere par la valeur
    'Uniquement pour une sélection unique
    'strSQLModele = Replace(strSQLModele, "[Choose_context]", Chr(34) & Nz(Me.CONTEXT_VALID.ItemData(varItm)) & Chr(34))
    'Ajouter la valeur sélectionnée et ""
    strCriteria = strCriteria & Me.CONTEXT_VALID.ItemData(varItm) & Chr(34) & "," & Chr(34)
Next varItm
strCriteria = Left(strCriteria, Len(strCriteria) - 2) ' enlever la dernière virgule rajoutée
strSQLModele = Replace(strSQLModele, "=[Choose_context]", " IN(" & strCriteria & ")")

consiste à récupérer les valeurs à partir des contrôles du formulaire et les organiser pour les intégrer dans le modèle de requête. Et c'est cette expression SQL qui va être utilisée pour définir le code de la requête résultat.

Comme je disais, la récupération des valeurs d'une liste box est particulière parce qu'il faut utiliser la syntaxe

Code :

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

1
2
3
For .... ...ItemsSelected
....ItemData()
Next ...

a- La ligne que j'ai mise en commentaire est utilisable quand tu fais une sélection unique parce qu'il suffisait de changer Choose_context par la valeur sélectionnée dans ta zone de liste.

Code :

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

 strSQLModele = Replace(strSQLModele, "[Choose_context]", Chr(34) & Nz(Me.CONTEXT_VALID.ItemData(varItm)) & Chr(34))

b- Dans le cas de sélection multiple, il est difficile de constituer un critère

Code :

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

WHERE (((Contexte.Nom)="Loisir" AND (Contexte.Nom)="Eau froide"))

Heureusement, qu'on peut utiliser

Code :

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

WHERE (((Contexte.Nom) IN ("Loisir","Eau froide"))

Donc le dernier code remplace le "=Choose_Context" par IN ("Loisir","Eau froide") selon les choix dans la zone de liste.

Pour le terme "Choose_context", tu peux changer. Aucun problème.

La base permettant les multi-sélection est jointe.

Cordialement,

**smalldragoon** · 14/10/2014, 21h17

Super ! J'ai compris pour le parametre, effectivement cela ne sert a rien ...
J etais en train d essayer de faire de la concatenation de chaine etc... mais avec ta solution avec le "IN" est bien plus simple et propre !
Un grand merci ! tout est bon ! y a plus qu a remplir pour chacun les equipements et leur activites !
Un grand merci pour ton support et ton aide !

Je me lance sur la partie rapport mais ca, je devrai m en sortir !!!