Discussion :

[maxime350]

Bonjour,

j'espère que mon titre est assez explicite

je vous expose ma question:
j'ai créé un formulaire de recherche. Dans ce formulaire de recherche j'ai une liste de déroulante qui m'affiche le nom des clients dans la base (en supprimant les doublons). L'utilisateur sélectionne le client et clique sur un bouton rechercher qui affiche toutes les offres correspondantes au client sélectionné. Aucun problème jusque là!

je souhaite avoir une zone de texte dans laquelle les utilisateurs saisissent les 1ères lettres d'un client qu'ils recherchent et qu'une liste de mes clients dans ma base se filtre en fonction des lettres saisies.

Je pense faire ça en vba dans la procédure After_Update mais je ne sais pas du tout comment procéder.

Merci de votre aide.
Maxime

[loufab]

Bonjour,

Il faut recomposer la source de la zone liste.

Donc techniquement il te faut :

Créer une chaine SQL du type :

Code :

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

sql="Select Nom From Client Where Nom Like """ & Me.ZoneTexte & "*""";"

Puis affecter cette nouvelle chaine à la source.

Code :

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

me.zoneliste.rowsource = sql

Pour que cela fonctionne à chaque appuie sur une touche utilise l'événement Sur Touche Enfoncée ou un événement de ce type.

CONSEIL : Sur une petite application avec peu de données c'est sympatique, sur des bases avec de gros volumes ça va sentir la chevrotine (surtout si tu as un utilisateur-chasseur ou un chasseur-utilisateur).

Cordialement,

[maxime350]

Bonjour loufab,

j'essaye d'adapter ton code à mon formulaire.
Malheureusement je n'ai pas réussi à faire fonctionner tout cela.

Code :

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

1
2
3
4
Private Sub resultat_KeyDown(KeyCode As Integer, Shift As Integer)
sql = "SELECT nclient FROM [Modèle V13 Requête] Where nclient Like """ & Me.recherche & "*"";"
Me.resultat.RowSource = sql
End Sub

voila le code qui s'exécute à chaque appuie sur une touche.
Ma zone de liste resultat à pour source la requête sql qui affiche le nom du client (nclient) en fonction de ce qui ai tapé dans la zone de texte recherche.

Je ne comprends pas pourquoi cela ne fonctionne pas.

Merci de ton aide,
Maxime

[Frank]

Bonsoir,

essaies cela :

Code :

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

sql = "SELECT nclient FROM [Modèle V13 Requête] Where nclient Like """ & Me.recherche & "*""";"

[maxime350]

Bonsoir,

essaies cela :

Code :

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

sql = "SELECT nclient FROM [Modèle V13 Requête] Where nclient Like """ & Me.recherche & "*""";"

Bonjour,
merci de ta réponse Frank.

la syntaxe de ton code correspond à cela proposée par loufab.
je ne l'ai pas recopiée car j'ai une erreur:

Erreur de compilation: Attendu: fin d'instruction.

par contre en l'écrivant comme je l'ai mis au dessus aucune erreur.

[loufab]

Normal quand tu as repris le code tu as omis une double-cote avant le ;.

Le nombre de " n'est pas choisi au hasard !

[maxime350]

Bonsoir,

donc logiquement, si je comprends bien, en notant ceci:

Code :

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

sql = "SELECT nclient FROM [Modèle V13 Requête] Where nclient Like """ & Me.recherche & " * """;"

cela devrait fonctionner, j'ai rajouté la double-cote.
pourtant toujours la même erreur de compilation...

je bloque :/, merci de votre aide

[loufab]

La règle est de doubler le caractère pour l'insérer, dans notre cas il s'agit d'une double-cote.

1. On ouvre la chaine par une double-cote : "
2. On place le contenu : Select.... Like
3. On double la double-cote pour l'insérer : ""
4. On ferme la chaine par une double-cote : "
5. On place l'operateur de concaténation : &
6. puis la variable : me.recherche
7. l'opérateur de concaténation : &
8. On réouvre une chaine : "
9. le joker : *
10. On double la double-cote pour l'insérer : ""
11. le caractère de fin de chaine SQL : ;
12. et enfin on ferme cette chaine de caractères : "

Ce qui donne ceci :

Code :

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

sql = "SELECT .... Like "" " & Me.recherche & "*"";"

En exécution on aura cela :

Code :

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

SELECT .... Like "ma variable*";

Je te conseille d'utiliser la fenetre d'exécution pour controler le résultat.
? "SELECT .... Like "" " & Me.recherche & "*"";"

Cordialement,

[maxime350]

Après de nombreuses recherches et lectures sur Internet, notamment ce post sur le forum j'ai enfin trouvé une solution au problème.

Merci loufab de ton explication sur les double-cote, ca m'exclaircie un peu plus.
Merci Frank également de ta réponse.

Le problème venait de l'oubli de .Text sur la variable de recherche.
Une image vaut mieux qu'un long discours:

Code :

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

1
2
3
4
5
Private Sub recherche_Change()
SQL = "Select Nom From Client Where Nom Like """ & Me.recherche.Text & "*"";"
Me.Liste2.RowSource = SQL
Me.Liste2.Requery
End Sub

Cordialement,
Maxime