Discussion :

[Jahprend]

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

Code :

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

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

[6ril25]

salut,

essaie

Code :

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

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

6ril25

[Jahprend]

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é...

[6ril25]

passe par

Code :

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

MsgBox st

avant

Code :

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

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

[Jahprend]

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

Code :

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

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

[6ril25]

euh, plutôt:

Code :

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

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

[Jahprend]

Merci bien 6ril, ça marche !

[6ril25]

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

Code :

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

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