se positionner dans une liste suivant saisie [Sources]

[jiala]

[FORMULAIRE] Le but est de se positionner dans une liste au fur et à mesure de la saisie dans une zone de texte. Exemple je tape A la liste trie tous les noms qui commencent par A, je tape ensuite R, elle trie tous les noms commençant par AR etc..
Sur un formulaire on place une zone de texte (texte0 ici) et une zone de liste (ChoixUsager) bêtement renseigné avec l'assistant (quelle table ou requete, quels champs...)
Le code est à placer sur l'événement sur changement de la zone texte0. Il permet de reconstruire après chaque entrée le SQL pour la zone de liste et positionne le curseur à la fin dans texte0.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Texte0_Change() 'a positionner donc sur l'événement "sur changement" de la zone de texte
Dim SQl As String
 
    Me.Requery
    Me.ChoixUsager.RowSource = SQl
 
    If IsNull(Len(Texte0)) Then 'Contruction du SQL pour la liste
        SQl = "select TblPassants.NumUsager, TblPassants.NomUsager, TblPassants.PrenomUsager, TblPassants.CodeRegime, TblPassants.Classe FROM TblPassants ORDER BY TblPassants.NomUsager"
    Else
        Me.Requery
        'Le sql construit par les lettre entrées
        SQl = "select TblPassants.NumUsager, TblPassants.NomUsager, TblPassants.PrenomUsager, TblPassants.CodeRegime, TblPassants.Classe FROM TblPassants"
        SQl = SQl & " where tblpassants.NomUsager Like '" & Me.Texte0 & "*' "
        SQL= SQl & "ORDER BY TblPassants.NomUsager ;"
        Me.ChoixUsager.RowSource = SQl
        Me.ChoixUsager.Requery
        Texte0.SelStart = Len(Texte0) 'positionne le curseur à la suite de la dernière lettre entrée. La fonction Len renvoie le nb de caractère
    End If
 
End Sub

Il y manque une petite gestion d'erreur, mais (c'est pas bien je sais) j'en fait rarement.
Voilà, si ça peut servir.

[cafeine]

Hello,

bon code merci : )

Mais sinon pourquoi tu mets 2 fois Me.Requery et cette ligne et début de procédure ?

Code :

Me.ChoixUsager.RowSource = SQl

?

[jiala]

Le premier Me.requery, sans ça ne marche pas (réponse on ne peut plus explicite). La deuxième ligne, effectivement ne sert à rien.
Par contre petit soucis, sur les mots avec un espace, il est supprimé dès qu'on actualise.
Je cherche...