Discussion :

[bernardh]

Bonjour,
Je patauge un peu en access et j'essaye dans mon formulaire de faire un filtre.
Donc j'ai créé dans mon formulaire une zone avec mes case indépendante et un bouton avec une Procédure événementielle en sur clic.

Pour la plupart des case cela fonctionne mais j'ai un probleme quand je veux faire une recherche d'un mot et pas de tout le contenu d'une case. (recherche partielle).


Mais bon ca bug...
Voici le code que j'ai mis. Pourriez vous m'aider.
Un grand merci d'avance!!!

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
'Filtre sur le mot clé
If Not IsNull(Me.Mot) And Me.Mot <> "" Then
   If f <> "" Then
       f = f & " AND ([INTITULE] LIKE '*" & Me.Mot & "*'"
   Else
       MsgBox ("Choississez un autre mot clé")
       Me.DT = ""
       Me.Ingenieur = ""
       Me.Debut = ""
       Me.QPlan = ""
       Me.Mot = ""
       Me.Type = ""
       Me.Filter = f
       Me.FilterOn = False
   End If
End If

[nico84]

Bonjour,

Pas très logique tout ça... Au minimum il faudrait fermer la parenthèse ouverte !

Voici un exemple de "bloc de filtration" que j'utilise (5 champs texte) :

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 Sub sel_appro_afterupdate():  Call Filtrer: End Sub
Private Sub sel_code_afterupdate():  Call Filtrer: End Sub
Private Sub sel_desi_afterupdate():  Call Filtrer: End Sub
Private Sub sel_norme_afterupdate():  Call Filtrer: End Sub
Private Sub sel_fam_afterupdate():  Call Filtrer: End Sub
 
'procédure appelée par chaque saisie d'une donnée de filtre
Public Sub Filtrer()
If Not Mode_debug Then On Error GoTo err:
Dim f As String
 
100 Me.Refresh
102 f = ""
104 If sel_appro > "" Then f = f & IIf(Len(f) > 0, " and ", "") & "(appro='" & UCase(sel_appro) & "')"
106 If sel_code > "" Then f = f & IIf(Len(f) > 0, " and ", "") & "(code like '*" & UCase(sel_code) & "*')"
108 If sel_desi > "" Then f = f & IIf(Len(f) > 0, " and ", "") & "(designation like '*" & Apo2(UCase(sel_desi)) & "*')"
110 If sel_norme > "" Then f = f & IIf(Len(f) > 0, " and ", "") & "(norme like '*" & Apo2(UCase(sel_norme)) & "*')"
112 If sel_fam > "" Then f = f & IIf(Len(f) > 0, " and ", "") & "(famille='" & Trim(sel_fam) & "')"
114 If Len(f) > 1 Then
116   Me.Filter = "(" & f & ")"
118   Me.FilterOn = True
    Else
120   Me.Filter = ""
122   Me.FilterOn = False
124   Me.Requery
    End If
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans stk0.filtrer : " & err.description)
End Sub
 
Public Sub voir_tout_Click()
100 sel_appro = ""
102 sel_code = ""
104 sel_desi = ""
106 sel_norme = ""
108 sel_fam = ""
110 Me.Refresh
112 Call Filtrer
End Sub

Apo2 est une fonction perso qui double les apostrophes