Opérateur Like et variable

Est-il possible d'inclure une variable dans un Like?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub boutonmaref_Click()   Dim st As String st = Forms!accueil.maref   Forms!accueil.Form!articleListe.Form.Filter = (article.reference Like "*st*") Forms!accueil.Form!articleListe.Form.FilterOn = True   End Sub

---

En ecrivant cela, ça ne fonctionne pas, et tout les exemples que je trouve sur le net de cette fonction sont avec des chaînes du genre < mavar Like "A*" >, et non avec des variables.

Merci d'avance

salut,

essaie

Code:

---

Forms!accueil.Form!articleListe.Form.Filter = (article.reference Like "*" & st & "*")

---

6ril25

Ton idée me parait bonne, et me fait me rendre compte que l'erreur que j'ai ne viens pas de là, ça me met "erreur d'exécution '424' objet requis", peut être que ma variable qui précède est mal référencé...

passe par

Code:

---

MsgBox st

---

avant

Code:

---

Forms!accueil.Form!articleListe.Form.Filter = (article.reference Like "*" & st & "*")

---

J'ai un peu avancé... j'ai plus la même erreur !
J'ai rajouté des guillemets comme ceci :

Code:

---

Forms!accueil.Form!articleListe.Form.Filter = "article.reference Like " * " & st & " * " "

---

Sinon 6ril, j'ai testé de regardé la valeur de "st" avec la msgbox, et il me renvoie bien la bonne valeur.

Ma nouvelle erreur est "Incompatibilité de type" (erreur '13'), bizarre car article.reference est de type texte, et "st" est de type String :?

euh, plutôt:

Code:

---

1 2	Forms!accueil.Form!articleListe.Form.Filter = "article.reference Like '*" & st & "*'"

---

Merci bien 6ril, ça marche !
:king:

fais quand même attention: si st contient un ' y'aura un soucis
tu dois pouvoir remplacer ' par ""
Ce qui donne:

Code:

---

Forms!accueil.Form!articleListe.Form.Filter = "article.reference Like ""*" & st & "*"""

---