Discussion :

[dav787]

Bonjour,

Encore certainement un problème de syntaxe sur un filtre, mais je ne trouve pas.

Je veux faire apparaitre dans un sous-formulaire les données que j'ai au préalable choisies dans mon formulaire principal.

Si je choisie dans ma liste déroulante, une référence, le code fonctionne impeccablement bien
Si je choisie le mois ou l'année avec mon champ ref null, ça fonctionne.

Dés lors qu'il y a 2 voire 3 conditions, ça ne fonctionne plus.

Petite précision, La base est en cours de création et pour la liste déroulante " mois", cette dernière est issue d'une table fixe que j'ai créée avec tous les mois de l'année dans le but d'avoir déjà les mois tries

Merci pour votre aide

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
Private Sub btnChercherMois_Click()
 Dim strFiltre As String
 
' Filtre sur reference
 
   If Not IsNull(Me.cmbrefMois) Then
    strFiltre = "([Produit]='" & Me.cmbrefMois & "')"
End If
 
 
' filtre sur année
 
If Not IsNull(Me.cmban) Then
   strFiltre = "([Annee]='" & Me.cmban & "')"
 
  End If
 
  'filtre sur mois
 
  If Not IsNull(Me.cmbmois) Then
  strFiltre = "([Mois]='" & Me.cmbmois & "')"
     End If
 ' Appliquer le filtre dans le sous-form.
With Me.sfregroupement_mensuel.Form
   .Filter = strFiltre
   .FilterOn = True
End With
 
 
End Sub

[Jean-Philippe André]

Salut,

vu que tu ecrases continuellement ta variable strFiltre, Access n'applique in fine que le dernier filtre

Il te faut pour cela completer ton strFiltre plutot que de l'ecraser :

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
Private Sub btnChercherMois_Click()
 Dim strFiltre As String
 
' Filtre sur reference
 
   If Not IsNull(Me.cmbrefMois) Then
    strFiltre = "([Produit]='" & Me.cmbrefMois & "')"
End If
 
 
' filtre sur année
 
If Not IsNull(Me.cmban) Then
   if strFiltre ="" Then
       strFiltre = "([Annee]='" & Me.cmban & "')"
  Else
       strFiltre = strFiltre & " AND ([Annee]='" & Me.cmban & "')"
  End If
  End If
 
  'filtre sur mois
 
  If Not IsNull(Me.cmbmois) Then
     If strFiltre = "" Then
        strFiltre = "([Mois]='" & Me.cmbmois & "')"
     Else
        strFiltre = strFiltre & " AND ([Mois]='" & Me.cmbmois & "')"
     End If
     End If
 ' Appliquer le filtre dans le sous-form.
With Me.sfregroupement_mensuel.Form
   .Filter = strFiltre
   .FilterOn = True
End With
 
 
End Sub

[dav787]

Salut,


J'ai trouvé quelques minutes avant de voir ta réponse, la solution.
Bien évidemment, me manquait un bout.


Merci