Discussion :

[Theo64]

Bonjour,

J'ai réalisé un formulaire avec une zone de texte que l'utilisateur peut remplir afin de rechercher dans la table des informations. Dans l'état actuel il faut rentrer l'intitulé exact de la désignation pour pouvoir afficher les informations. J'aimerai faire en sorte que la requète affiche tout les enregistrements qui contiennent partiellement les informations rentrées par l'utilisateur.

Merci d'avance

[Jean-Philippe André]

salut,

peux-tu nous montrer le code qui est actuellement mis en place dans ton formulaire. On partira de là pour te proposer des adaptations

[Flyoss]

Bonjour,

Il faut utiliser une requête/filtre SQL avec un LIKE

Code SQL :

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

SELECT * FROM Matable WHERE Monchamps like '*machaine*'

Ce qui donnerait dans une implémentation VBA quelque chose dans ce gout la

Code :

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

1
2
dim RsSql as string
RsSql = "SELECT * FROM Matable WHERE Monchamps like '*" & MonChampsTexte.value & "*'"

Apres cela ne marche pas pour plusieurs mots, auquel cas tu pourrais te diriger vers la fonction split et appliquer la recherche sur chaque mot avec des AND ou des OR

[Theo64]

Merci beaucoup pour vos réponse très rapides ! Ca marche parfaitement

A bientôt

[Jean-Philippe André]

salut,

je me permets de compléter la solution apportée par Flyoss, pour parer à certains cas de figure, celui des apostrophes dans la zone de recherche (par exemple O'Hara pour un nom de famille).

on double les apostrophes pour qu'ils soient bien pris en compte dans la recherche

Code :

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

1
2
 dim RsSql as string
RsSql = "SELECT * FROM Matable WHERE Monchamps like '*" & Replace(MonChampsTexte.value,"'","''") & "*'"