Bonjour tout le monde,
J'ai un problème avec la fonction Me.Filter. J'ai un formulaire ou dans l'en-tête j'ai une zone de recherche multiple. J'ai associé au bouton le code ci-dessous et .... problème
Lorsque j'essai plusieurs entrées sur les 5 champs la fenêtre VBA s'ouvre et la fonction Me.Filter = f passe en jaune
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 Private Sub CmdFiltre_Click() f = "" If Not IsNull(Me.Rpo) And Me.Rpo <> "" Then f = "dt_tp_PO_Notif like ""*" & Me.Rpo & "*""" End If If Not IsNull(Me.Recode) And Me.Recode <> "" Then If f <> "" Then f = f & " AND dt_tp_Ecode = """ & Me.Recode & """" Else f = "dt_tp_Ecode = """ & Me.Recode & """" End If End If If Not IsNull(Me.Rinvoice) And Me.Rinvoice <> "" Then If f <> "" Then f = f & " AND dt_tp_Invoice = """ & Me.Rinvoice & """" Else f = "dt_tp_Invoice = """ & Me.Rinvoice & """" End If End If If Not IsNull(Me.Rpn) And Me.Rpn <> "" Then If f <> "" Then f = f & " AND dt_tp_PN = """ & Me.Rpn & """" Else f = "dt_tp_PN = """ & Me.Rpn & """" End If End If If Not IsNull(Me.Rmfir) And Me.Rmfir <> "" Then If f <> "" Then f = f & " AND dt_tp_MFIR = """ & Me.Rmfir & """" Else f = "dt_tp_MFIR = """ & Me.Rmfir & """" End If End If Me.Filter = f Me.FilterOn = True End Sub
Quelqu'un pourrait-il m'aider
Partager