Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 408 fois - Téléchargée 39 fois
'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
11 nov. 2010 à 21:26
merci et bonne soirée
12 mai 2009 à 21:02
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
22 mai 2006 à 10:05
merci
13 déc. 2005 à 23:51
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 !
29 sept. 2004 à 11:58
sinon c pas mal kan meme :-)
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.