Discussion :

[undebutantsuraccess]

Bonjour,

Besoin : Je cherche à faire une liste déroulante avec une saisie semi-automatique : les choix de liste se mettent à jour en fonction de la saisie de l'utilisateur.
Exemple : Pomme de terre dans une table, l'utilisateur tape "terre" et la liste se réduit à Pomme de terre.

C'est un sujet beaucoup traité surtout sur developpz.net, j'en suis conscient ! Je suis un vrai débutant et cela fait plus d'une semaine que j'essaye des codes trouvés par-ci par là.
Soit je n'arrive pas à adapter la fonction, soit elle me ralentit ma BD ! J'ai essayé sur le Focus, en Après Maj, le textbox avec une liste déroulante qui s'affiche : pas vraiment de succès.

Est-ce que quelqu'un pourrait m'aider ?

Un débutantsuraccess

PS : Fier de mon speudo !

[madefemere]

Bonjour,

Peux-tu poster ce que tu as fait (celui qui ralentit ton application), pour amélioration s'il te plait.

Cordialement.

[marot_r]

Bonjour.

Si tu veux que ta liste se réduise à la frappe il faut utiliser l'événement "sur Change" et faire la recherche sur TonChamp.Text (et pas .Value comme habituellement). .Text contient ce qui est en cours de saisie alors que .Value ne change que quand la saisie est "terminée".

Et c'est sur que d'aller chercher les données à chaque fois prend du temps surtout si tu as beaucoup d'entrée dans ta liste.

A+

[undebutantsuraccess]

Bonjour,

Je n'ai pas gardé mon essais qui faisait ralentir ma BD mais j'ai suivi exactement ce tuto :

J'avais fait une texte box + liste déroulante.

Je suis désolé de vous demander ça mais est-ce que vous pouvez être plus explicite Maro svp ?

Sur la propriété Sur chargement : Vous utilisez quoi comme syntaxe pour comparer votre liste à votre base ?

Code :

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

1
2
3
With Me.RecordsetClone
.FindFirst "MonID"=" & Str(Nz(Me.Maliste,0)"
if .NoMatch = False Then Me.Bookmark  =.Bookmark

C'est un peu la seule façon que je connais...

Est-ce que vous aurez un exemple de code ?

Un débutant sur access

[marot_r]

Bonjour.

Ce que tu as posté n'est pas une liste déroulante, c'est un champ texte avec un sous-formulaire pour afficher le résultat qui en plus ne se réduit pas à une seule valeur.

Si tu veux utiliser ma solution il te faut une liste déroulante (combox) avec une source de données du genre : select [TaTableRef].[id], [TaTableRef].[TonChampTexte] from [TaTableRef] juste pour que ta liste ai quelque chose à présenter si l'utilisateur de ne tape rien.

Dans la procédure événementielle associée à l'événement sur changement (on change) tu mets quelque chose comme :

Code :

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

1
2
3
4
dim sql as string
sql = "select [TaTableRef].[id], [TaTableRef].[TonChampTexte] from [TaTableRef]"
sql = sql & " where [TaTableRef].[TonChampTexte] like ""*" & me.TaComboList.Text & "*""
me.TaComboList.RowSource=sql 'Assigne la liste réduite

Ce code va filtrer la liste pour ne présenter que les éléments qui contiennent le texte tapé.

Ensuite une fois que l'utilisateur a fait son choix pour trouver l'enregistrement qui t'intéresse dans ton formulaire de saisie tu mets dans la procédure événementielle associée à l'événement "après mise à jour" de ta liste un truc du genre

Code :

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

1
2
3
4
 
if not isnull(me.me.TaComboList) then
    me.recordset.findfisrt("[id]=" & me.TaComboList)
end if

Qui va te positionner directement et généralement assez rapidement sur l'enregistrement choisi.

A+

[undebutantsuraccess]

Eureka ! Comment vous faites pour être aussi fort ?
Ça marche vraiment pas mal et ça fait pas ramer.

Le seul défaut est que lorsque l'utilisateur tape dans la listebox, la liste se ferme. C'est un peu dommage, ce serait encore mieux si elle restait ouverte et se mettait à jour petit à petit. On est obligé de recliquer pour l'ouvrir avec la liste actualisée.
Est-ce que vous auriez une solution ?

Je vous en demande beaucoup , Merci infiniment.

un débutant sur access

[marot_r]

Bonjour.

Eureka ! Comment vous faites pour être aussi fort ?

1. Je répond juste aux questions dont j'ai la réponse … donc ça aide :-).
   Tu remarqueras qu'il y a plein de post dans ce forum dont je suis complètement absent.
2. Ça fait maintenant 20 ans que j'utilises Access presque quotidiennement … ça permet d'apprendre quelques trucs de ci de là.

A+

[tee_grandbois]

bonsoir,

Le seul défaut est que lorsque l'utilisateur tape dans la listebox, la liste se ferme.

essaie en ajoutant l'instruction

Code :

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

me.TaComboList.DropDown

à la suite du code sur ton évènement sur changement (On Change) de ta liste déroulante

[undebutantsuraccess]

Merci beaucoup !

Je suis désolé de répondre si tardivement. Je n'ai pas eu de notification par mail d'une réponse.
Tout est fonctionnel ! Je mets en résolue et merci encore !