Discussion :

[krunt]

Bonjour,

j'ai un formulaire de recherche avec 7 listes déroulantes en cascade et un sous formulaire pour les résultats.

pour info: mes 7 listes déroulantes renvoie vers 4 tables différentes (mais je n'en suis pas encore à ce problème là), mes 3 premières listes sont sur la même table.

le problème que je rencontre est que je souhaite que si ma liste déroulante est vide, la recherche me sorte toutes les valeurs, actuellement elle me sort juste les valeurs = Tous.





bonne journée

krunt

[Zekraoui_Jakani]

Si la liste déroulante est vide, il faudra jouer avec la fonction "IIF":

Code :

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

IIF(IsNull(NomDeVotreListeBox);Like "*";(l'autre almternative))

Ce serait probablement plus simple de mettre tous vos critères dans une fonction VBA qui pourrait facilement décortiquer toutes les possibilités et fournir le résultat plus rapidement. Un peu difficile à construire, mais ce serait fait une bonne fois pour toutes.

[krunt]

Merci pour cette réponse,

je vais tester.

en parallèle je regarde comment faire pour le passer en VBA mais je ne maitrise pas vraiment la création de requête en VBA et encore moins la librairie DAO.
j'épluche le tuto de cette librairie, de christophe WARIN, présent sur votre site.
mais je commence à vraiment douté de me capacité a arriver à le faire.

je n'abandonnerai pas ^^

[krunt]

je vais devoir passer par du VBA T_T



la question est : Cela résoudra bien mon problème ?

Merci d'avance.

[Zekraoui_Jakani]

à essayer; vous avez écrit "je n'abandonnerai pas ^^", faut tenir parole

[tee_grandbois]

je vais devoir passer par du VBA T_T



la question est : Cela résoudra bien mon problème ?

Merci d'avance.

plutôt que d'afficher le message d'erreur que personne ne pourra corriger, pourquoi ne pas afficher le SQL de la requête ?

[krunt]

Bonjour tee_grandbois,

Voici la requête :

Code :

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

1
2
3
4
5
SELECT [NGP-Produits].NGP, [NGP-Produits].FAMILLE, [NGP-Produits].GAMME, [NGP-Produits].TYPES_PRODUITS
FROM [NGP-Produits]
WHERE ((([NGP-Produits].FAMILLE)=Formulaires![F_ Recherche]!FAMILLE Or ([NGP-Produits].FAMILLE) Like "Tous") 
And (([NGP-Produits].GAMME)=IIf(IsNull(Formulaires![F_ Recherche]!GAMME),([NGP-Produits].GAMME) Like "*",([NGP-Produits].GAMME)=Formulaires![F_ Recherche]!GAMME Or ([NGP-Produits].GAMME) Like "Tous")) 
And (([NGP-Produits].TYPES_PRODUITS)=IIf(IsNull(Formulaires![F_ Recherche]!Categorie_Prod),([NGP-Produits].TYPES_PRODUITS) Like "*",([NGP-Produits].TYPES_PRODUITS)=Formulaires![F_ Recherche]!Categorie_Prod Or ([NGP-Produits].TYPES_PRODUITS) Like "Tous")));

[tee_grandbois]

bonjour,
si on considère que Like "*" donne le même résultat que Like "Tous", la syntaxe s'en trouve simplifiée:

Code :

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

1
2
3
4
5
SELECT [NGP-Produits].NGP, [NGP-Produits].FAMILLE, [NGP-Produits].GAMME, [NGP-Produits].TYPES_PRODUITS
FROM [NGP-Produits]
WHERE [NGP-Produits].FAMILLE Like Nz(Formulaires![F_ Recherche]!FAMILLE, "*") 
And [NGP-Produits].GAMME Like Nz(Formulaires![F_ Recherche]!GAMME, "*") 
And [NGP-Produits].TYPES_PRODUITS Like NZ(Formulaires![F_ Recherche]!Categorie_Prod,"*")

mais il faut le tester, ne connaissant pas le contenu des listes déroulantes

[krunt]

Merci pour la bonne syntaxe, mais la requête ne renvoie toujours pas les bon résultats.

je vais passer par VBA pour générer les requêtes à la volé.

[tee_grandbois]

Merci pour la bonne syntaxe, mais la requête ne renvoie toujours pas les bon résultats.

on ne peut pas deviner quelles doivent être les bons résultats avec la seule indication donnée:

le problème que je rencontre est que je souhaite que si ma liste déroulante est vide, la recherche me sorte toutes les valeurs, actuellement elle me sort juste les valeurs = Tous.

un exemple concret ne serait pas de trop

[krunt]

en faisant les requêtes en VBA, j'ai réussi à faire ma requête

Merci les tutos du site ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub RefreshProduit()
' definition des variable
Dim SQLProduit As String
Dim SQLWhereProduit As String
' debut de la requete sql, le select et from sont défini. Le where est générique juste pour l'inclure.
SQLProduit = "SELECT DISTINCT [NGP-Produits].[NGP], [NGP-Produits].[FAMILLE], [NGP-Produits].[GAMME], [NGP-Produits].[TYPES_PRODUITS] FROM [NGP-Produits] Where [NGP-Produits].[N°] <> 0 "
' en fonction des conditions on complète la requête sql
' Si la case à coché Famille est coché alors on complète la condition where de la requête
If Me.ChkFamille Then
    SQLProduit = SQLProduit & "And [NGP-Produits].[FAMILLE] like '" & Me.FAMILLE & "' "
End If
' idem pour Gamme mais on rajout que la valeur chercher est la valeur de la liste gamme ou "Tous"
If Me.ChkGamme Then
    SQLProduit = SQLProduit & "And (([NGP-Produits].[GAMME] like '" & Me.GAMME & "') OR ([NGP-Produits].[GAMME] like '" & Me.Tous & "'))"
End If
' idem pour Produit
If Me.ChkProduit Then
    SQLProduit = SQLProduit & "And (([NGP-Produits].[TYPES_PRODUITS] like '" & Me.Categorie_Prod & "') OR ([NGP-Produits].[TYPES_PRODUITS] like '" & Me.Tous & "'))"
End If
' la variable SQLWhere correspond à la condition where de la requête
' ici on isole le where de la requête SQL.
SQLWhereProduit = Trim(Right(SQLProduit, Len(SQLProduit) - InStr(SQLProduit, "Where ") - Len("Where ") + 1))
' on cloture la requête par un ";"
SQLProduit = SQLProduit & ";"
' on utilise les variable SQL et SQLWhere:
' SQLWhere est utilisé pour faire le décompte des résultats de la liste.
Me.LblStats.Caption = DCount("*", "[NGP-Produits]", SQLWhereProduit) & " / " & DCount("*", "[NGP-Produits]")
' SQL deveint la source de la liste de réponce
Me.LstResultats.RowSource = SQLProduit
' on actualise la liste de réponce
Me.LstResultats.Requery
End Sub

Mon inconnue pour le moment est la réalisation en VBA d'une requête UNION pour pouvoir chercher dans les 4 tables.