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 |
Partager