Discussion :

[MolikDLuffy]

Bonjour,

J'a créé un formulaire comportant plusieurs champs dont les principaux sont :
- num_cli
- num_compte
- lib_gpe_pl

J'ai donc inséré 3 listes déroulantes en fonction des champs principaux nommés :
-FiltreNumCli
-FiltreNumCompte
-FiltreLibPL

Comme vous pouvez le voir ci-dessous, j'aimerais que la liste du formulaire change en fonction des différents filtres.



Actuellement pour chaque Filtre, j'ai intégré un code :

Code :

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

1
2
3
Private Sub FiltreNumCli_AfterUpdate()
Forms!A_TEST_F.RecordSource = "select * from A_TEST where num_cli = " & FiltreNumCli.Value
End Sub

Code :

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

1
2
3
Private Sub FiltreNumCompte_AfterUpdate()
Forms!A_TEST_F.RecordSource = "select * from A_TEST where num_compte = " & FiltreNumCompte.Value
End Sub

Code :

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

1
2
3
4
 'je ne sais pas pourquoi, le code ne marche pas
Private Sub FiltreLibPL_AfterUpdate()
Forms!A_TEST_F.RecordSource = "select * from A_TEST where lib_gpe_pl = " & FiltreLibPL.Value
End Sub

Avec ces codes, un seul filtre marche et j'aimerais que la liste du formulaire soit filtré en fonction de la valeur NumCli, NumCompte et LibPL

Merci pour votre aide et surtout j'espère avoir été clair

[marot_r]

Bonjour.

Il faut combiner tes critères :

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
 
private function CalculerCritere as string
   dim result as string
 
   '=== Filtre sur le numéro de client
   if not isnull(FiltreNumCli.Value)
 
      if result<>"" then
         result=result & " and "
      end if
 
      result="[num_cli]=" & me.FiltreNumCli
 
   end if
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   CalculerCritere=result
end function

Code :

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

1
2
3
4
5
6
7
8
9
10
private sub AppliquerCritere()
   dim critere as string:critere=CalculerCritere()
 
   if critere<>"" then
      Forms!A_TEST_F.RecordSource = "select * from A_TEST where " & critere
    else
      Forms!A_TEST_F.RecordSource = "select * from A_TEST"
  end if
 
end sub

Code :

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

1
2
3
Private Sub FiltreNumCli_AfterUpdate()
    call appliquerCritere
End Sub

Répéter le code ci-dessus pour les autres champs.

A+

[MolikDLuffy]

Bonjour,

Merci pour la réponse. Par contre j'ai dès le début un problème :

J'ai inscris ça :

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
Private Function CalculerCritere() As String
   Dim result As String
 
   '=== Filtre sur le numéro de client
   if not isnull(FiltreNumCli.Value)
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_cli]=" & Me.FiltreNumCli
 
   End If
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   if not isnull(FiltreNumCompte.Value)
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_compte]=" & Me.FiltreNumCompte
 
   End If
 
      if not isnull(FiltreLibPL.Value)
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[lib_gpe_pl]=" & Me.FiltreLibPL
 
   End If
 
   CalculerCritere = result
End Function

Lorsque l'on passe à if not isnull, le texte est en rouge et m'indique "Attendu : Then ou GoTo?

[marot_r]

Désolé j'ai oublié le then à la fin

Code :

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

if not isnull(FiltreNumCli.Value) then

A+

[MolikDLuffy]

Merci encore pour la réponse.

J'ai encore une question.

Le dernier code suivant :

Code :

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

1
2
3
Private Sub FiltreNumCli_AfterUpdate()
    call appliquerCritere
End Sub

Ce code marche bien que pour le filtreNumCli, il faut donc que je mette le meme code pour chaque filtre?

Code :

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

1
2
3
Private Sub FiltreNumCompte_AfterUpdate()
    call appliquerCritere
End Sub

ET

Code :

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

1
2
3
Private Sub FiltreLibPL_AfterUpdate()
    call appliquerCritere
End Sub

???

[MolikDLuffy]

J'ai fait le test mais cela ne marche pas.

Lorsque je filtre sur le numéro client 1020 par exemple, j'ai bien toutes les lignes correspondant à ça. Mais si je veut filtrer sur le client 1020 et le numéro compte 72900099003, rien ne se passe...

Voici le code total :

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
Option Compare Database
 
Private Function CalculerCritere() As String
   Dim result As String
 
   '=== Filtre sur le numéro de client
   If Not IsNull(FiltreNumCli.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_cli]=" & Me.FiltreNumCli
 
   End If
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   If Not IsNull(FiltreNumCompte.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_compte]=" & Me.FiltreNumCompte
 
   End If
 
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[lib_gpe_pl]=" & Me.FiltreLibPL
 
   End If
 
   CalculerCritere = result
End Function
 
Private Sub AppliquerCritere()
   Dim critere As String: critere = CalculerCritere()
 
   If critere <> "" Then
      Forms!A_TEST_F.RecordSource = "select * from A_TEST where " & critere
    Else
      Forms!A_TEST_F.RecordSource = "select * from A_TEST"
  End If
 
End Sub
 
Private Sub FiltreNumCli_AfterUpdate()
    Call AppliquerCritere
End Sub

[MolikDLuffy]

J'ai changé le premier 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
39
Private Function CalculerCritere() As String
   Dim result As String
 
   '=== Filtre sur le numéro de client
   If Not IsNull(FiltreNumCli.Value) Then
 
      If result <> "" Then
         result = "[num_cli]=" & Me.FiltreNumCli
      End If
      Else
      result = "[num_cli]=" & Me.FiltreNumCli
 
   End If
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   If Not IsNull(FiltreNumCompte.Value) Then
 
      If result <> "" Then
         result = result & " and " & "[num_compte]=" & Me.FiltreNumCli
      End If
      Else
      result = "[num_compte]=" & Me.FiltreNumCompte
 
   End If
 
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and " & "[lib_gpe_pl]=" & Me.FiltreLibPL
      End If
 
      result = "[lib_gpe_pl]=" & Me.FiltreLibPL
 
   End If
 
   CalculerCritere = result
End Function

Mais le code suivant ne marche pas lorsque je change le numéro client et le message Erreur de syntaxe (opération absent) dans l'expression "[num_compte]="

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AppliquerCritere()
   Dim critere As String: critere = CalculerCritere()
 
   If critere <> "" Then
      Forms!A_TEST_F.RecordSource = "select * from A_TEST where " & critere
    Else
      Forms!A_TEST_F.RecordSource = "select * from A_TEST"
  End If
 
End Sub

[marot_r]

Bonjour.

C'est ce code là qui est bon :

(J'ai laissé les options de côté.)

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
Private Function CalculerCritere() As String
   Dim result As String
 
   '=== Filtre sur le numéro de client
   If Not IsNull(FiltreNumCli.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_cli]=" & Me.FiltreNumCli
 
   End If
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   If Not IsNull(FiltreNumCompte.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[num_compte]=" & Me.FiltreNumCompte
 
   End If
 
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = "[lib_gpe_pl]=" & Me.FiltreLibPL
 
   End If
 
   CalculerCritere = result
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AppliquerCritere()
   Dim critere As String: critere = CalculerCritere()
 
   If critere <> "" Then
      Forms!A_TEST_F.RecordSource = "select * from A_TEST where " & critere
    Else
      Forms!A_TEST_F.RecordSource = "select * from A_TEST"
  End If
 
End Sub

Code :

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

1
2
3
Private Sub FiltreNumCli_AfterUpdate()
    Call AppliquerCritere
End Sub

Code :

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

1
2
3
Private Sub FiltreNumCompte_AfterUpdate()
    call appliquerCritere
End Sub

Code :

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

1
2
3
Private Sub FiltreLibPL_AfterUpdate()
    call appliquerCritere
End Sub

si tu n'as pas de résultat après

Code :

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

Dim critere As String: critere = CalculerCritere()

ajoute

Code :

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

msgbox Critere

Pour voir si le critère se calcule correctement.

A+

[MolikDLuffy]

Merci encore mais je crois que je m'exprime mal.

Les codes marchent bien mais qu'au niveau individuel et non mixte

Lorsque j'indique le numéro client, le filtre marche :



Mais lorsque je veux faire un deuxième filtre sur le numéro du compte avec le numéro client, le filtre fonctionne que sur le numéro compte et ne garde pas le filtre du numéro client 1 :



Je pense que ça à cause des AfterUpdate de chaque filtre...

Le résultat que je veux est :



Pareil pour le libelé PL

[marot_r]

Bonjour.

Qu'est-ce que critère affiche quand tu définis 2 filtres ?

A+

[marot_r]

J'ai trouvé l'erreur !

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
Private Function CalculerCritere() As String
   Dim result As String
 
   '=== Filtre sur le numéro de client
   If Not IsNull(FiltreNumCli.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = result  & "[num_cli]=" & Me.FiltreNumCli
 
   End If
   '--- Filtre sur le numéro de client
 
   'Répéter pour le code ci-dessus pour les 2 autres champs
 
   If Not IsNull(FiltreNumCompte.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = result  & "[num_compte]=" & Me.FiltreNumCompte
 
   End If
 
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = result  & "[lib_gpe_pl]=" & Me.FiltreLibPL
 
   End If
 
   CalculerCritere = result
End Function

Désolé.

[MolikDLuffy]

On y est presque!!!!

Lorsque je mets le numéro client et le numéro compte, les deux filtres fonctionnent. Par contre lorsque je choisis le libellé compte PL, le code ne fonctionne pas...

Je pense que c'est à cause de :

Code :

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

1
2
3
4
5
6
7
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If
 
      result = result & "[lib_gpe_pl]=" & Me.FiltreLibPL

Le message d'erreur d'exécution 3075 : Erreur de syntaxe (opération absent) dans l'expression <<[num_cli]=1020 and [lib_gpe_pl]=Crédits court terme>>

En sachant que num_cli et num_compte sont en numérique alors que lib_gpe_pl est en texte, en sql les textes doivent être entre ""? C'est peut-être pour ça que ça ne marche pas?

[marot_r]

Oui, pour les textes il faut mettre :

Code :

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

result = result & "[lib_gpe_pl]=""" & Me.FiltreLibPL & """"

A+

[MolikDLuffy]

Super ça marche impec

Merci beaucoup.

Avant de clôturer la discussion, j'aimerais comprendre deux petites choses concernant le code :

1) Pourquoi mettre " and " pour ce filtre alors que cela correspond au dernier filtre? Nous ne sommes pas obligé de garder le "and"?

Code :

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

1
2
3
4
5
      If Not IsNull(FiltreLibPL.Value) Then
 
      If result <> "" Then
         result = result & " and "
      End If

2) A quoi correspond Me dans Me.Filtre....?

[marot_r]

Bonjour.

Le "and" permet de combiner ce filtre avec les autres filtres si ils existent.
Éventuellement on pourrait le supprimer sur le 1er champ mais c'est plus simple d'avoir le même modèle pour tous comme cela on n'a pas à tenir compte de l'ordre dans le code.

Le Me. correspond à l'objet courant (ici le formulaire) et permet deux choses : bénéficier de l'IntelliSense qui te fait la suggestion des noms connus et de signaler (au programmeur) que c'est un champ du formulaire et pas une variable globale. Quand tu le cherches tu sais où le trouver et tu gagnes donc du temps.

A+