Recherche mots clés point virgule

**8e8eClo** · 23/04/2012, 17h08

Bonjour,

Je me suis inspiré du tuto de Cafeine pour créer mon formulaire de recherche.
J'aimerais améliorer ce dernier.

En effet, je dispose d'un champ "mots clé". Ce champ accueille des mots clés séparés par des point virgule.
En l'état actuel des choses, la recherche ne fonctionne que si je tape un seul mot clé. Si j'en rentre plusieurs (séparés ou non par un point virgule) ça ne fonctionne plus.

Comment intégrer cette possibilité dans le bout de code (ligne 15 - 17) ci-dessous ,

Merci

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT ID_Ressource, Domaine, Entite, Theme, Date_Ressource, Libelle_Ressource FROM Tbl_Ressource WHERE Tbl_Ressource!ID_Ressource <> 0 "
 
 If Not Me.chkDomaine Then
    SQL = SQL & "And Tbl_Ressource!Domaine = '" & Me.CmbDomaine & "' "
 End If
 
 If Not Me.ChkEntite Then
    SQL = SQL & "And Tbl_Ressource!Entite = '" & Me.CmbEntite & "' "
 End If
 
 If Not Me.ChkMotsCle Then
    SQL = SQL & "And Tbl_Ressource!MotsCle_Ressource like '*" & Me.TxtMotsCle & "*'"
 End If
 
If Not Me.ChkTheme Then
    SQL = SQL & "And Tbl_Ressource!Theme = '" & Me.CmbTheme & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 Me.lblStats.Caption = DCount("*", "Tbl_Ressource", SQLWhere) & " / " & DCount("*", "Tbl_Ressource")
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery
 
End Sub

**Jean-Philippe André** · 23/04/2012, 17h22

salut,

en remplaçant le = par un IN()

Code :

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

1
2
3
If Not Me.ChkMotsCle Then
    SQL = SQL & "And Tbl_Ressource!MotsCle_Ressource IN ('*" & Me.TxtMotsCle & "*') "
 End If

à toi par contre de faire la syntaxe avec les "'" entre chaque valeur

**8e8eClo** · 23/04/2012, 17h45

Désolé mais je n'ai pas tous compris

(je débute en SQL)

En fait, les utilisateurs entreront les mots clés qu'ils veulent (aucune liste de mots clés prédéfinis).

Exemple :
Mots clé pour l'enregistrement 15 = chien, chat, rat
Mots clé pour l'enregistrement 24 = chien, rat, chat
Mots clé pour l'enregistrement 78 = rat, chien
Mots clé pour l'enregistrement 03 = chat
Si l'utilisateur entre "chien, rat" les enregistrements 15, 24, 78 s'affichent. Mais pas 03.

Je ne vois pas trop comment l'appliquer à votre solution.

Merci