mots-clés dans formulaire access

Question

Bonjour &#224; tous !

J'ai 2 textbox recherche dans un formulaire ou j'indique 1 mot dans chaque, et un bouton OK pour valider ma recherche.
 Dans ma table j'ai un champ "mot-cl&#233;" o&#249; j'ai indiqu&#233; plusieurs mots cl&#233;s par enregistrement, s&#233;par&#233;s par une virgule.
De quelle fa&#231;on puis-je cr&#233;er cette recherche. 
J'ai bien fait l'&#233;bauche d'un code mais il ne fonctionne qu'une fois puis plus rien :

Private Sub OK_Click()
Me.Form.AllowAdditions = True
Dim result As String
If [recherche] + [recherche2] > 0 Then
result = [recherche] + [recherche2]
DoCmd.Requery
If Len(Me.mots_cl&#233;s) > 0 Then
[recherche] = "R&#233;sultat pour " + result
Me.Form.AllowAdditions = False
Else
[recherche] = "Pas de r&#233;sultats"
Me.Form.AllowAdditions = True
End If
Else
result = "Pas de crit&#232;res entr&#233;s"
[recherche] = result
Me.Form.AllowAdditions = True
End If
End Sub
________________________________________________________
Private Sub Form_Unload(Cancel As Integer)
Me.Form.RecordSource = "requ&#234;te1"
End Sub

Et voici ma requ&#234;te1 :
SELECT Table1.[mots-cl&#233;s], Table1.descriptif, Table1.&#233;chantillon, Table1.rapports, Table1.date
FROM Table1
WHERE (((Table1.[mots-cl&#233;s]) Like ("*"+[forms]![formulaire1]![recherche]+"*"))) OR ((("*" & [forms]![formulaire1]![recherche2] & "*")<>False))
ORDER BY Table1.date;

Bon, je sais ce n'est pas de l'art ;op, quelqu'un peut m'aider?
Merci beaucoup de votre patience.

cs_Jack · Answer

Salut
Je n'ai pas regard&#233; le d&#233;but, juste ta requ&#232;te SQL.
S tu avais lu un peu le forum sur les probl&#232;mes de requ&#232;tes, tu saurais que :
- Si tu n'as qu'une table dans ta requ&#232;te, pas la peine de r&#233;p&#233;ter le Table1. devant chaque champ. Ca marche pas de probl&#232;me mais &#231;a allourdi la syntaxe
- Il vaut mieux &#233;viter les noms de champs rappelant les mots cl&#233;s des langages, comme "date" --> [ ] obligatoires
- Il faut encadrer avec des [ ] les noms de champs qui utilisent des accents ou espace --> &#233;chantillon
- Il faut encadrer les valeurs des champs de type texte avec des ' (et les dates avec des # si besoin)
- Une syntaxe SQL ne comporte pas de terme <> False
- Le terme g&#233;n&#233;rique sous SQL est %, et pas *
- La conacat&#233;nation de chaine, c'est & et pas + (&#231;a marche jusqu'au jour o&#249; &#231;a marchera pas)

SELECT [mots-cl&#233;s], descriptif, [&#233;chantillon], rapports, [date]
FROM Table1
WHERE [mots-cl&#233;s] Like '%" & [forms]![formulaire1]![recherche] & "%'"
   OR [mots-cl&#233;s] Like '%" & [forms]![formulaire1]![recherche2] & "%'"
ORDER BY [date];

Reste un curieux m&#233;lande de " et de ', mais comme tu n'as mis que le contenu de ta requ&#232;te et pas la ligne compl&#232;te, impossible de connaitre le contexte d'utilisation

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

Mots-clés dans formulaire access

1 réponse

Discussions similaires