Discussion :

[morobaboumar]

Bonjour membres du forum,
heureux de vous retrouver !
J'ai deux (2) zones de liste déroulante pour en faire des listes déroulantes filtrées l'une en fonction de l'autre.
La 1ère "Liste2_StatutFacture", et l'autre "ListeOpérateurFournisseurParticulier".

Codes:
Pour la ZLD "Liste2_StatutFacture"

Code :

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

[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture]

et
la ZLD "[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture]"

Code :

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

[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier]

Sql

Code :

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

1
2
3
4
SELECT Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.NUM_AUTO_Det_Fact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Mle_Operat_DetFact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.TravauxMateriaux, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Designation_Cmde, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.PrixUnitaire_Fact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Qte_Cde, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Date_Facturation, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Num_Trav_Mat_Facture, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Fournisseur_OperateurParticulier, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.StatutFacture
FROM Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere
WHERE (((Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.[Fournisseur_OperateurParticulier])=[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier]) AND ((Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.[StatutFacture])=[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture]))
ORDER BY Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.NUM_AUTO_Det_Fact;

Quelle méthode utiliser pour en faire des listes déroulantes filtrées l'une en fonction de l'autre ?

Avec celle ci https://www.developpez.net/forums/d1...es-formulaire/
Cordialement.

[hyperion13]

Salut
Pas sûr de comprendre, mais ...
SQL ComboboxPays

Code :

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

SELECT id_pays, nom_pays FROM tbl_pays

SQL ComboboxVille

Code :

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

SELECT id_ville, nom_ville, id_pays_fk = Forms!NomForm!ComboboxPays

Dans le form

Code :

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

1
2
3
Private Sub ComboboxPays_AfterUpdate()
Me![ComboboxVille].Requery
End Sub

[morobaboumar]

Bonsoir membres du forum,
bonsoir hyperion13,
Très heureux de votre suite qui m'a apporté un grand plus.
Voici ce que j'ai réalisé:

Sql du Formulaire

Code :

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

1
2
3
4
SELECT Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.NUM_AUTO_Det_Fact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Mle_Operat_DetFact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.TravauxMateriaux, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Designation_Cmde, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.PrixUnitaire_Fact, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Qte_Cde, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Date_Facturation, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Num_Trav_Mat_Facture, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Fournisseur_OperateurParticulier, Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.StatutFacture
FROM Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere
WHERE (((Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.Fournisseur_OperateurParticulier) Like "*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier] & "*") AND ((Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.StatutFacture) Like "*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture] & "*"))
ORDER BY Req_TRAVAUX_ET_MATERIAUX_ENGAGESFiltreMultiCcritere.NUM_AUTO_Det_Fact;

Critères:

Code :

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

Comme "*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier] & "*"

Code :

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

Comme "*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture] & "*"

Evénements:

Code :

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

1
2
3
4
5
Private Sub Liste2_StatutFacture_AfterUpdate()
RaffraichirFormTRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu
Me.Requery
Me.StatutFacture.Requery
End Sub

Code :

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

1
2
3
4
5
Private Sub ListeOpérateurFournisseurParticulier_AfterUpdate()
RaffraichirFormTRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu
Me.Requery
Me.Fournisseur_OperateurParticulier.Requery
End Sub

Une procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub RaffraichirFormTRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu()
On Error Resume Next
Me.Requery
If Me.Form.ListCount > 0 Then
        Me.Form.Visible = True
    Else
        Me.Form.Visible = False
    End If
End Sub

Résultat:




Vos remarques et suggestions me sont très précieuses.
Cordialement.

[morobaboumar]

Salut membres du forum,
Concernant les critères de filtre par rapport à une zone de liste déroulante d'un formulaire, la méthode suivante
à l'intérieur d'un formulaire est plus précise et efficace:

Code :

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

Comme VraiFaux([Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier].[ListIndex]=-1;"*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier] & "*";[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![ListeOpérateurFournisseurParticulier])

Code :

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

Comme VraiFaux([Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture].[ListIndex]=-1;"*" & [Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture] & "*";[Formulaires]![TRAVAUX_et_MATERIAUX_Engages_Detail_Facture_Aperçu]![Liste2_StatutFacture])

Je l'ai trouvée ici https://claudeleloup.developpez.com/...-multicritere/

Je vais essayer la méthode d'EricDgn qui se trouve ici https://www.developpez.net/forums/d1...es-formulaire/ dont voici le code:

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

Cordialement.