Discussion :

[Chrysostome]

Bonjour, tout est dans la question: Comment actualiser une zone de liste depuis une zone de texte?
Voilà, j'ai 5000 clients, donc le déroulement est fastidieux, j'ai créé une zone de liste:

Code :

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

1
2
 
Me.ListeCl1.RowSource = "SELECT DISTINCTROW T_Clients.NClient, T_Clients.NomCl, T_Clients.PrénomCl FROM T_Clients ORDER BY T_Clients.NomCl, T_Clients.PrénomCl"

Pas de problème, la liste complète s'affiche.

J'ai une zone de texte (TexteCl ) qui me sert à commencer à écrire le nom du client:

Code :

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

1
2
3
4
 
Private Sub TexteCl.change()
Me.ListeCl1.RowSource = "SELECT DISTINCTROW T_Clients.NClient, T_Clients.NomCl, T_Clients.PrénomCl FROM T_Clients WHERE (((T_Clients.NomCl) Like " & "'" & TexteCl & "*'" & " ) AND ((T_Clients.Archivage)=0)) ORDER BY T_Clients.NomCl, T_Clients.PrénomCl"
Me.ListeCl1.Requery

Et là, j'ai un décalage d'une lettre, je m'explique:

Lorsque je tape (pour le client "Développez", par exemple) dans TexteCl la tettre "D", il n'y a rien qui se passe, puis "é", la liste se met à jour avec tous les "D*", etc...

Est-ce que vous avez la solution? Merci de votre aide.

[marot_r]

Bonjour.

Essaye :

"'" & TexteCl.text & "*'" à la place de "'" & TexteCl & "*'"A+

[Chrysostome]

Depuis le temps que je trafiquais pour déboguer ce bout de code. Encore merci. As-tu une explication?

[marot_r]

Oui, par défaut tu récupères la propriété .Value du contrôle qui représente l'état un fois la dernière modification "validée".
La notion de "validation" me reste encore un peu flou.

.Text récupère ce que tu vois présentement à l'écran.

A+

[Chrysostome]

Bravo. Tu es formidable. Encore merci de partager ton savoir, je dormirai un peu moins ignorant ce soir.