Saisie semi-automatique

0/5 (16 avis)

Snippet vu 11 906 fois - Téléchargée 36 fois

Commenter

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

Signaler
cyberloux
Messages postés
1
Date d'inscription
jeudi 11 novembre 2010
Statut
Membre
Dernière intervention
11 novembre 2010
 -
petite question toute bête: un keyup c'est quoi?

merci et bonne soirée
Signaler
tritium89
Messages postés
1
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
20 février 2010
 -
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
Signaler
tony0076
Messages postés
2
Date d'inscription
lundi 30 janvier 2006
Statut
Membre
Dernière intervention
30 mai 2006
 -
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
Signaler
momo190479
Messages postés
1
Date d'inscription
jeudi 18 décembre 2003
Statut
Membre
Dernière intervention
13 décembre 2005
 -
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 !
Signaler
cs_trabice
Messages postés
328
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
24 novembre 2005
 -
c pas lourd a utiliser??
sinon c pas mal kan meme :-)
Afficher les 16 commentaires
S'inscrire maintenant

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.

Du même auteur (PatriceVB)