Discussion :

[toto60530]

Bonjour à tous,

J'ai essayé de créer un fichier access permettant de faire des recherches multicritères en me basant sur l'article de Jean Ballat http://jeannot45.developpez.com/arti...multicriteres/.
Malheureusement je bloque sur la manière de combiner des listes déroulantes avec des zones de saisies de texte.
Il y a aussi un problème au niveau des statistiques de recherche.
Ci-joint le fichier en question.

Merci d'avance pour votre aide.

[EricDgn]

Bonjour,
Le problème vient (entre autres) de ce que les critères de recherche ont été placés dans un sous-formulaire du formulaire principal, alors que dans le tutoriel ces critères sont placés dans le formulaire principal. De ce fait la désignation des champs devient vraiment compliquée (et change suivant que l'on utilise le formulaire en tant que formulaire ou en tant que sous-formulaire).
Est-il vraiment indispensable de faire des listes déroulantes dépendantes l'une de l'autre?
Bonne continuation.

[toto60530]

Bonjour,

Je pense ne pas avoir été assez précis dans la formulation de mon problème.
Voici donc quelques explications:
J'ai créé un formulaire pour effectuer des recherches multicritères.
Le formulaire lance une requête suivant les éléments que j'ai sélectionné dans les combo-box ou saisi dans la zone texte.

Problème, lorsque je clique sur les liste déroulantes pour choisir les éléments qui m'intéresse, j'ai un message me demandant de définir au préalable ces éléments.
Les zones de texte ne marchent pas bien non plus.



J'ai du mal à déterminer ou se trouve exactement le problème, d'autant que je me suis efforcé de coller au mieux avec le tuto de Jean Ballat.

Merci d'avance pour votre aide.

[toto60530]

Bonjour EricDgn,

Désolé, je n'avais pas vu ta réponse avant de poster.
Je vais essayer de tout regrouper en un seul formulaire et je reviens vers toi.

[toto60530]

Bonjour à tous,

J'ai retravaillé le problème et je suis parvenu à un résultat en optant pour une solution plus simple:
-les infos des zones de listes sont issues directement de ma table de données
-l'affichage se fait via une requête basé sur les valeurs définies dans le formulaire.

Il me reste néanmoins un problème qui concerne la zone de saisie de texte:je ne peux rechercher un produit que si je tape le nom en entier.
Je voudrais qu'il suffise que je saisisse uniquement une partie du nom du produit pour que la recherche se fasse.

J'ai essayé de résoudre le problème en passant par du vba.

Code :

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

1
2
3
4
5
Public Sub Txt_produit_acheté_Change()
Dim critère_produit_acheté As String
critère_produit_acheté = "*" & Txt_produit_acheté.Value & "*"
MsgBox (critère_produit_acheté) 'test pour vérifier le fonctionnement
End Sub

Mais ça ne marche pas car quand dans ma requête je remplace :
[Formulaires]![F_gérer_réclamation]![Txt_produit_acheté] par critère_produit_acheté, la requête ne fonctionne pas.
Je pensais que définir le critère_produit_acheté en public sub devrait suffir, mais visiblement non.

En revanche, pour tester, j'ai placé un bouton Commande53 dans le formulaire, et quand je clique dessus, il me renvoie bien critère_produit_acheté.

J'ai aussi essayé d'ajouter directement des * * dans le critère de la requête:
"*" & [Formulaires]![F_gérer_réclamation]![Txt_produit_acheté] & "*"
mais ça ne marche pas non plus.

Si vous avez des idées je suis preneur

Merci d'avance

[EricDgn]

Bonjour,

Je n'ai pas tout regardé, mais je ferais déjà les remarques suivantes.

Dans les tables, il ne faut jamais utiliser comme nom de champ: nom. A un moment ou un autre Access va s'emmêler les pinceaux car il y a une confusion possible entre nom et name (name traduit en français devenant nom). Cela se produit entre autres quand on crée des requêtes avec l'outil de création de requêtes.

Personnellement j'évite d'utiliser des lettres accentuées dans les noms de champs (et de n'importe quel objet en général) car cela peut poser des problèmes lorsque l'on veut convertir les tables dans un autre format que celui d'Access. Pas de première importance, mais c'est une bonne habitude à prendre.

Ce n'est pas parce qu'un champ est masqué qu'il est vide. Ainsi, si Cocher_liste_nom est coché, qu'une valeur est entrée dans liste_nom, et qu'ensuite Cocher_liste_nom est décochée, la valeur entrée dans liste_nom y reste (bien que masquée), sauf instruction forçant de l'enlever.

En mode création de formulaire, il faut marquer les champs liste_nom, liste_ville et txt_produit_acheté comme non visible, et mettre comme valeur par défaut 0 pour les 3 champs Cocher_...

A mon avis, ce n'est pas une bonne idée d'inscrire dans la requête source d'un sous-formulaire des critères de sélection (comme dans la requête R_réclamation). Pour moi, il vaut mieux faire une requête générale (sans critères) et ensuite appliquer des filtres au sous-formulaire (voir dans l'Aide de Access), par exemple de la façon suivante:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Explicit
 
Private Sub Cocher_txt_produit_Click()
   Me.Txt_produit_acheté.Visible = Not Me.Txt_produit_acheté.Visible
   If Me.Txt_produit_acheté.Visible = False Then
      Me.Txt_produit_acheté = ""
   End If
   filtrer
End Sub
 
Private Sub Cocher_liste_nom_Click()
   Me.liste_nom.Visible = Not Me.liste_nom.Visible
   If Me.liste_nom.Visible = False Then
      Me.liste_nom = ""
   End If
   filtrer
End Sub
 
Private Sub Cocher_liste_ville_Click()
   Me.liste_ville.Visible = Not Me.liste_ville.Visible
   If Me.liste_ville.Visible = False Then
      Me.liste_ville = ""
   End If
   filtrer
End Sub
 
Private Sub liste_nom_AfterUpdate()
   filtrer
End Sub
 
Private Sub liste_ville_AfterUpdate()
   filtrer
End Sub
 
Private Sub Txt_produit_acheté_AfterUpdate()
   filtrer
End Sub
 
Private Sub filtrer()
   Dim sFiltre As String
   sFiltre = ""
   If Me.liste_nom <> "" Then
      sFiltre = "[Pnom] = '" & Me.liste_nom & "'"
   End If
   If Me.Txt_produit_acheté <> "" Then
      If sFiltre <> "" Then sFiltre = sFiltre & " AND "
      sFiltre = sFiltre & "[produit_acheté] Like '*" & Me.Txt_produit_acheté & "*'"
   End If
   If Me.liste_ville <> "" Then
      If sFiltre <> "" Then sFiltre = sFiltre & " AND "
      sFiltre = sFiltre & "[ville] = '" & Me.liste_ville & "'"
   End If
   With Me.F_sélection_réclamation.Form
      .Filter = sFiltre
      If sFiltre = "" Then
         .FilterOn = False
      Else
         .FilterOn = True
      End If
      Debug.Print ".FilterOn: "; .FilterOn, .Filter
   End With
End Sub

Bonne continuation.

[toto60530]

Bonjour EricDgn,

Merci beaucoup, ton code marche super bien!

Désolé de t'ennuyer encore, mais penses-tu qu'il soit possible de lier les critères de recherche de manière à ce qu'on ne puisse appliquer un second filtre qu'aux éléments qui correspondent déjà au premier (limiter la possibilité de choix dans les listes déroulantes)?
Est-ce que ça marcherait si on basait le contenu des listes non plus sur la table, mais sur une requête auquelle on appliquerait le filtre que tu as créé?

Autre question, j'ai rajouté un formulaire ou on choisi les données que l'on veut afficher.
Par exemple, je veux afficher uniquement le montant des réclamations, pas les remises et les gains.
A quoi ressemblerait un code qui irait "décocher" l'affichage des colonnes correspondantes dans les requêtes réclamations et négociations?

Merci d'avance.

[EricDgn]

Bonjour,

lier les critères de recherche de manière à ce qu'on ne puisse appliquer un second filtre qu'aux éléments qui correspondent déjà au premier (limiter la possibilité de choix dans les listes déroulantes)

Possible, sauf pour le champTxt_produit_acheté. ... mais reste à faire.

contenu des listes non plus sur la table, mais sur une requête

Table ou requête en RecordSource (Source de données), c'est pareil. Un filtre peut y être appliqué. Si une requête est utilisée comme source de données, il peut y avoir des problèmes pour l'ajout/modification/suppression des données, en général quand elle contient des liaisons entre tables et/ou des champs calculés.

ajouté un formulaire ou on choisi les données que l'on veut afficher

Simple. Plutôt que de fermer le formulaire, c'est plus simple de le masquer, ainsi la valeur choisie reste disponible.
Ensuite on rend les champs et étiquettes visibles ou non soit à l'ouverture du formulaire concerné (ou à l'activation, ou à la réception du focus).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Current()
   Dim v As Boolean
   If Form_F_choix.CadreChoix.Value = 1 Then
      v = False   '--- masqué
   Else
      v = True    '--- visible
   End If
   Me.remise_et.Visible = v
   Me.remise.Visible = v
   Me.gain_de_négociation_et.Visible = v
   Me.gain_de_négociation.Visible = v
End Sub

Plutôt que de mettre l'ouverture de ce formulaire en AutoExec, il est plus indiqué de forcer l'ouverture au démarrage d'Access, cela dans les Options d'Access:

Personnellement, je préfère l'affichage en fenêtres à l'affichage en onglets.

Il est aussi possible de jouer sur les propriétés 'Afficher sélecteur' et 'Boutons de déplacement' des formulaires pour les présenter en fenêtres plus propres.

Le formulaire F_gérer_réclamation est en fait un formulaire "indépendant": n'est pas lié à des données (ni table, ni requête). Ce sont les sous-formulaires qui affichent des données (liées à des tables ou des requêtes).

Une bonne habitude est d'éviter les lettres accentuées dans les noms des champs et autres objets.

Bonne continuation.

[EricDgn]

Pour faire des listes déroulantes filtrées les unes en fonction des autres, un moyen est de faire est le suivant:
- créer une requête simple contenant les champs Nom, Prénom, Ville, Produit, dénommée rNomVilleProduit0
- en faire une semblable mais filtrée, dénommée rNomVilleProduit
- utiliser cette requête rNomVilleProduit comme source pour établir les listes déroulantes (en utilisant le regroupement)
- mettre à jour la requête filtrée rNomVilleProduit à chaque modification d'un champ de filtrage
Ce qui donne pour la routine filtrer:

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
34
35
36
37
38
Private Sub filtrer()
   Dim sFiltre As String, sSQL As String
   sFiltre = ""
   '--- filtre sur base de listes déroulantes
   If Me.liste_nom <> "" Then
      sFiltre = "[Pnom] = '" & Me.liste_nom & "'"
   End If
   If Me.Txt_produit_acheté <> "" Then
      If sFiltre <> "" Then sFiltre = sFiltre & " AND "
      sFiltre = sFiltre & "[produit_acheté] Like '*" & Me.Txt_produit_acheté & "*'"
   End If
   If Me.liste_ville <> "" Then
      If sFiltre <> "" Then sFiltre = sFiltre & " AND "
      sFiltre = sFiltre & "[ville] = '" & Me.liste_ville & "'"
   End If
   If Me.liste_Pprenom <> "" Then
      If sFiltre <> "" Then sFiltre = sFiltre & " AND "
      sFiltre = sFiltre & "[Pprénom] = '" & Me.liste_Pprenom & "'"
   End If
   '--- mise à jour de la requête source des listes déroulantes
   sSQL = CurrentDb.QueryDefs("rNomVilleProduit0").SQL
   If sFiltre <> "" Then
      sSQL = Left(sSQL, Len(sSQL) - 3)
      sSQL = sSQL & " WHERE " & sFiltre
   End If
   CurrentDb.QueryDefs("rNomVilleProduit").SQL = sSQL
   Me.Recalc
   '--- filtrage des données
   With Me.F_sélection_réclamation.Form
      .Filter = sFiltre
      If sFiltre = "" Then
         .FilterOn = False
      Else
         .FilterOn = True
      End If
      Debug.Print ".FilterOn: "; .FilterOn, .Filter
   End With
End Sub

En pratique, je ne suis pas certain que cela vraiment une bonne idée.

Bonne continuation.

P.S. Il faut absolument ajouter un champ indexé dans la table de base.

[toto60530]

Ok, ça marche super bien, merci!