Discussion :

[wulfram]

Bonjour,

Je suis en train de chercher un moyen d'effectuer une recherche avec plusieurs mots.
Bien entendu, si l'utilisateur recherche "gro bisou", il devra trouver "gro bisou" autant que "gros bisous", voir "gros et humides bisous".

Pour cela, j'utilise la fonction InStr afin de localiser les espaces éventuels. J'aimerai ensuite enregistrer les mots isolés dans une variable propre à chacun : "motrecherche1","motrecherche2", ...

Est-il possible decréer, lors de chaque boucle, une variable ayant un nom de type motecherche + i (i étant incrémenté à chaque utilisation)

Faut-il mieux enregistrer les valeurs dans une zone de liste, et les ré-utiliser au fur-à-mesur ? (beaucoup moins pratique, il me semble, si l'autre solution est réalisable)
En vous remerciant d'avance,

[marot_r]

Tu pourrais utiliser un tableau car tu ne peux pas définir de variable à la volée.

La fonction split te permet justement de générer un tableau à partir d'une chaîne de caratères, ce qui me paraît répondre à ton besoin.

Ou utiliser une Colllection.

Enfin tu pourrais utiliser Like en ajoutant une * après chaque mot avec une petite boucle de manipulation de chaîne.

A+

[wulfram]

Tu pourrais utiliser un tableau car tu ne peux pas définir de variable à la volée.

La fonction split te permet justement de générer un tableau à partir d'une chaîne de caratères, ce qui me paraît répondre à ton besoin.

Ou utiliser une Colllection.

Enfin tu pourrais utiliser Like en ajoutant une * après chaque mot avec une petite boucle de manipulation de chaîne.

A+

Hmm, merci pour tes idées. Je crois que la dernière est en fait la plus à même de résoudre simplement mon problème.
Voila donc le code d'un bouton "recherche" simple permettant cela :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub btnrecherche_Click()
Dim Recherche As String
Dim sql As String
Recherche = Me.txtrecherche.Value
Recherche = StrConv(Replace(Recherche, " ", "*"), vbUpperCase)
sql = "SELECT [INDEXS].[Spécialité] FROM [INDEXS] WHERE INDEXS.Spécialité like '*" & Recherche & "*' "
Me.lstresult.RowSource = sql & ";"
Me.lstresult.Requery
End Sub

Bonne journée