Discussion :

[papoupa31]

Bonjour, j'essaie de réaliser une recherche multicritères sur 6 champs grâce à 6 zones de texte, la visualisation se fait dans un sous formulaire composé de la table en question ou se trouve les 6 champs. Voilà mon code après renseignement des 6 champs ou pas forcément et le déclenchement du filtrage se fait grâce à un bouton:

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
Private Sub buttton_filtre_Click()
Dim strFiltre1 As String
Dim strFiltre2 As String
Dim strFiltre3 As String
Dim strFiltre4 As String
Dim strFiltre5 As String
Dim strFiltre6 As String
On Error Resume Next
strFiltre1 = ""
strFiltre2 = ""
strFiltre3 = ""
strFiltre4 = ""
strFiltre5 = ""
strFiltre6 = ""
'Filtre sur le nom
If Not IsNull(Me.texte_re_actu) Then
    strFiltre1 = "([code_re_actu] like '*" & Me.texte_re_actu & "*')"
End If
If Not IsNull(Me.texte_re_actu) Then
    strFiltre2 = "([code_srp_actu] like '*" & Me.texte_srp_actu & "*')"
End If
If Not IsNull(Me.texte_re_cible) Then
    strFiltre3 = "([code_re_cible] like '*" & Me.texte_re_cible & "*')"
    End If
If Not IsNull(Me.texte_srp_cible) Then
    strFiltre4 = "([code_srp_cible] like '*" & Me.texte_srp_cible & "*')"
End If
If Not IsNull(Me.texte_num_dt) Then
    strFiltre5 = "([num_dt] like '*" & Me.texte_num_dt & "*')"
End If
If Not IsNull(Me.texte_dem_ui) Then
    strFiltre6 = "([demande_ui] like '*" & Me.texte_dem_ui & "*')"
End If
 
 
'Filtrer le sous-formulaire
With Me.Fille158.Form
    .Filter = strFiltre1 Or strFiltre2 Or strFiltre3 Or strFiltre4 Or strFiltre5 Or strFiltre6
    .FilterOn = True
End With
End Sub

Le résultat ne donne rien, j'ai pourtant essayé le filtrage sur un seul champs et une zone de texte et ça fonctionne, avez vous une idée de mon erreur? Merci d'avance.

[accessisgood]

Bonjour,

essaye

Code :

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

.Filter = strFiltre1 and strFiltre2 and strFiltre3 and strFiltre4 and strFiltre5 and strFiltre6

[papoupa31]

Merci pour ta réponse mais sans réussite pour le coup... Je vais continuer à travailler dessus, peut être trouver une autre solution pour l'enchainement des IF, il me renvoie pas d'erreur lors du clic sur le bouton.
Si je trouve je poserais la solution içi.

[tee_grandbois]

bonjour,
et comme cela ?

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 buttton_filtre_Click()
Dim strFiltre As String
 
' On Error Resume Next <===== à éviter tant que le code n'est pas testé et fonctionne correctement car cela masque toutes les erreurs 
strFiltre = ""
 
'Filtre sur le nom
If Not IsNull(Me.texte_re_actu) Then
    strFiltre = "([code_re_actu] like '*" & Me.texte_re_actu & "*')"
End If
If Not IsNull(Me.texte_re_actu) Then
    strFiltre = iif(strFiltre<>""," And ","") & "([code_srp_actu] like '*" & Me.texte_srp_actu & "*')"
End If
If Not IsNull(Me.texte_re_cible) Then
    strFiltre = iif(strFiltre<>""," And ","") & "([code_re_cible] like '*" & Me.texte_re_cible & "*')"
End If
If Not IsNull(Me.texte_srp_cible) Then
    strFiltre = iif(strFiltre<>""," And ","") & "([code_srp_cible] like '*" & Me.texte_srp_cible & "*')"
End If
If Not IsNull(Me.texte_num_dt) Then
    strFiltre = iif(strFiltre<>""," And ","") & "([num_dt] like '*" & Me.texte_num_dt & "*')"
End If
If Not IsNull(Me.texte_dem_ui) Then
    strFiltre = iif(strFiltre<>""," And ","") & "([demande_ui] like '*" & Me.texte_dem_ui & "*')"
End If
 
 
'Filtrer le sous-formulaire
With Me.Fille158.Form
    .Filter = strFiltre
    .FilterOn = True
End With
End Sub