[AC-97] Recherche en direct automatiquement

[Dewey12]

Bonjour à tous,

J'ai besoin de votre aide pour créer un formulaire qui permettra de rechercher dans une bdd en direct.
Je m'explique : J'ai une base de donnée PRODUIT avec comme champ : reference, designation, adresse.

Je veux donc créer un formulaire avec une première zone de saisie (Texte2) qui servira à l'utilisateur à saisir la désignation de l'objet rechercher.

En dessous une grande zone d'affichage (Liste0) qui servira, en temps réel, lettre après lettre taper par l'utilisateur, à afficher les résultat contenant les lettres taper dans la zone recherche (Texte2).

Un exemple

La personne commence et tape : "j"
La zone d'affiche affichera : joint de cuivre
joint de fer
jupe
banjo
..... etc


La personne affine ça recherche : "jo"
La zone d'affiche affichera : joint de cuivre
joint de fer
banjo
..... etc

Tout ceci sans appuyé sur aucun bouton, tout est dynamique !


Voila ce que je suis arrivé a faire mais l'utilisateur doit taper sur la touche "ENTREE" pour valider la recherche...

Code :

1
2
3
4
5
6
7
8
 
Private Sub Liste0_Enter()
 
Liste0.RowSource = "SELECT DISTINCTROW PRODUIT.reference,        PRODUIT.description, PRODUIT.adresse FROM PRODUIT WHERE (((PRODUIT.description) Like '*" & Texte2.Value & "*'));"
 
Liste0.Requery
 
End Sub

Comment faire pour que la recherche soit automatique, sans appuyé sur la touche entrée
Merci d'avance

Ps : j'ai oublié de dire je suis sous Access 97

[marot_r]

Tu peux utiliser l'événement OnChange (sur changement) de ta zone de saisie pour déclencher la mise à jour de tes données chaque fois que l'utilisateur fait une modif.

Note que si tu as beaucoup de données tu auras peut-être un problème de performance car Like est un oppérateur "lent".

A+

[Dewey12]

Merci pour ta réponse tout d'abord !

Je sais pas si tu l'a remarqué mais ma requete je la fais sur ma zone d'affichage !

Si je positionne celle-ci sur changement de ma zone de saisie rien ne se passe...
C'est bizare

[marot_r]

Non je n'avais pas réalisé.

Essaye ceci :

Code :

1
2
3
4
5
6
7
8
private sub MAJListe0()
  me.Liste0.RowSource = "SELECT DISTINCTROW PRODUIT.reference,        PRODUIT.description, PRODUIT.adresse FROM PRODUIT WHERE (((PRODUIT.description) Like '*" & Texte2.Value & "*'));"
  me.Liste0.Requery
end sub
 
Private Sub Liste0_OnChange()
   call MAJListe0()
end sub

Essaye aussi en désactivant la propriété AutoComplete de la liste déroulante et si cela ne marche pas il faudra sans doute faire un petit sous-formulaire qui présentera le resultat de la requète de sélection sous forme 'Feuille de données'.

A+