problème avec Me.Filter

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

Code:

---

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

---

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

Quelqu'un pourrait-il m'aider

:salut:

As-tu vérifié le contenu de f lors de l'arrêt de la procédure ?

soit tu survoles la variable f avec la souris
soit :
- Tu ajoutes l'instruction :

Code:

---

1 2 3

Debug.Print f Me.Filter = f

---

- tu ouvres la fenetre d'exécution du code ;
- tu places un point d'arrêt devant l'instruction :

Code:

---

Me.Filter = f

---

- tu exécutes le code

Tu verras alors ce qui cloche dans le contenu de ta variable

Je te conseille également la lecture du tuto : Filtrer par sélection dans un formulaire

Merci Jeannot45,
Malheureusement je suis débutant, et je glane par ci par là des lignes que je recopie. Donc en fait je n'ai pas compris :
"tu survoles la variable f avec la souris"
et puis.... tout le reste !!!


Désolé !!!

:salut:

Désolé,

Le survol avec la souris de la variable f est un moyen de voir ce qu'elle contient. Lorsque la procédure s'arrête, un ligne jaune affiche l'instruction qui pose problème. Tu amènes alors ta souris sur la variable f (comme si tu voulais la sélectionner) sans cliquer.Une info-bulle affiche alors la valeur de la variable.

Bonne continuation

la valeur "au survol" ci-joint

C'est illisible.

Debugguez avec debug.print ;)

Voir ce tutoriel : http://cafeine.developpez.com/access...el/debugprint/

;)