Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access
Access Forum d'entraide sur Microsoft Access. Avant de poster -> La F.A.Q Access
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/12/2011, 12h15   #1
Membre habitué
 
Dominique
Inscription : mars 2009
Messages : 282
Détails du profil
Informations personnelles :
Nom : Dominique

Informations forums :
Inscription : mars 2009
Messages : 282
Points : 111
Points : 111
Par défaut textBox+code-barre non visible

Bonjour,
Pouvez vous m'aider, lorsque la douchette passe sur le code-barre, le contenu du code barre s'inscrit dans un textbox.
Malheureusement le code barre n'est pas visisble dans le textbox, il est placé completement a droite. J'ai beau changer l'emplacement (gauche droite ou centre) le contenu reste invisible.
Et si je repasse la douchette, il place le contenu a la suite du deja présent mais je desirerai qu'il remplace le précédent.
Merci pour votre aide
dodo28 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/12/2011, 14h46   #2
Membre habitué
 
Dominique
Inscription : mars 2009
Messages : 282
Détails du profil
Informations personnelles :
Nom : Dominique

Informations forums :
Inscription : mars 2009
Messages : 282
Points : 111
Points : 111
Aprés recherche j'ai trouvé ce code qui empeche la saise de plus de 9 caracteres et le contenu du code barre est visible (pourquoi ? je ne sais pas).

Code :
1
2
3
4
5
6
7
Private Sub Te_CodeBarre_Change()
 
If Len(Te_CodeBarre.Text) > 9 Then
   Te_CodeBarre.Text = Mid$(Te_CodeBarre.Text, 1, 9)
End If
 
End Sub
Maintenant si je repasse un nouveau code barre ca ne marche plus en faite il faudrai qu'il me selectionne le code precedent pour le remplacer. J'ai essayer avec selstar et sellen mais ca ne marche pas marci pour votre aide
dodo28 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/12/2011, 15h03   #3
Membre habitué
 
Dominique
Inscription : mars 2009
Messages : 282
Détails du profil
Informations personnelles :
Nom : Dominique

Informations forums :
Inscription : mars 2009
Messages : 282
Points : 111
Points : 111
Je ne sais pas si j'utilise la bonne methode mais ca à l'air de marcher avec ce code

Code :
1
2
3
4
5
6
7
8
Private Sub Te_CodeBarre_Change()
 
If Len(Te_CodeBarre.Text) > 9 Then
   Te_CodeBarre.Text = Mid$(Te_CodeBarre.Text, 1, 9)
End If
 
Te_CodeBarre.SelLength = Len(Te_CodeBarre)
End Sub
Avec ce code le textbox reste selectionner c'est pas trés esthétique.

En esperant que c'est la bonne methode
N'hesitez pas à me proposer d'autres solutions
Merci pour ceux qui ce sont intérréssés à mon probléme
dodo28 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h09.


 
 
 
 
Partenaires

Hébergement Web