Saisie semi-automatique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 408 fois - Téléchargée 39 fois

Contenu du snippet

Ce code permet de proposer à l'utilisateur une saisie semi-automatique, un peu comme la barre d'adresse d'Internet Explorer.
Pour cela,le code va voir dans une base de données les enregistrements commençant par ce qui a été saisie par l'utilisateur et corrige ce qui est affiché au fur et à mesure de la saisie.
testez-le, je pense que ça vous plaiera :-)
On peut modifier le code et utiliser la méthode find pour avoir un code plus propre et plus rapide, je l'ai mis comme ça pour que tout le monde comprenne le principe :-)

Source / Exemple :


'A mettre dans l'événement keyup d'un textbox
(ici lblnomclient)

Dim ctext As String
Dim start As Integer
On Error Resume Next
If KeyCode >= 65 And KeyCode <= 122 Then
    start = LblNomClient.SelStart
    RcClients.MoveFirst
    Do While RcClients.EOF <> True
    If Left((RcClients!nom), start) = LblNomClient.text Then
        LblNomClient.text = RcClients!nom
        LblNomClient.SelStart = start
        LblNomClient.SelLength = Len(LblNomClient.text)
        TxtClient.text = RcClients!codeclient
        Exit Sub
    Else
        RcClients.MoveNext

    End If

    Loop
End If

A voir également

Ajouter un commentaire Commentaires
cyberloux Messages postés 1 Date d'inscription jeudi 11 novembre 2010 Statut Membre Dernière intervention 11 novembre 2010
11 nov. 2010 à 21:26
petite question toute bête: un keyup c'est quoi?

merci et bonne soirée
tritium89 Messages postés 1 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 20 février 2010
12 mai 2009 à 21:02
Bonjour à tous
tout d abord je tien a remercier l'auteur de ce code qui me parait fort utile
probleme je n arrive pas a l'inégrer dans mon code
c est pour cela que je vous demande de me confirmer si j ai bien compris

LblNomClient = nom du textbox
RcClients = nom du recordset ( pourquois n est il pas déclaré?)
nom champ de la table comportant le nom du client
TxtClient = la j avou que je seche ;)
codeclient = nom du champ comportant l id du client

voila ma question est toute simple pouvez vous me confirmer cela
merci de vore reponse

Alexandre
tony0076 Messages postés 2 Date d'inscription lundi 30 janvier 2006 Statut Membre Dernière intervention 30 mai 2006
22 mai 2006 à 10:05
Bonjour je suis debutant en php et j'aimerai bien avoir un exemple avec le code intégré a la textbox car je n'arrive pas a la faire fonctionner.
merci
momo190479 Messages postés 1 Date d'inscription jeudi 18 décembre 2003 Statut Membre Dernière intervention 13 décembre 2005
13 déc. 2005 à 23:51
Eh bien moi je dit chapeau, c simple et super efficace, surtout que j'ai cherché un peu et je n'ai trouvé nulle part la meme fonction ecrite aussi simplement.
Quand au remarques qui ont été faite je les trouve un peu déplacé , en effet il n'existe pas une seule maniére d'ecrire les boucles par exemple , chacun fait comme il le sent aprés tout, du moment que ça fonctionne !
cs_trabice Messages postés 328 Date d'inscription mercredi 26 novembre 2003 Statut Membre Dernière intervention 24 novembre 2005 1
29 sept. 2004 à 11:58
c pas lourd a utiliser??
sinon c pas mal kan meme :-)
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.