Scanner code barre

Résolu
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention   -  
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai commencé un petit outil sous VBA pour scanner des codes barres de carte d'accès.
Le lancement de la procédure est faite lorsque 8 caractères ont été détectés dans une textbox (scan max de 8 caractères du badge). Néanmoins, il y a des noms avec moins de caractères. Je recherche une astuce pour lancer la procédure toute seule après le scan.

Une idée par hasard SVP ?



--

1 réponse

NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Je ne connais pas trop ce genre de périphérique, mais de mémoire de ce que j'ai lu, ça simule une touche Entree à la fin du code.
0
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention  
 
ah ? comment être sûr ?
J'ai une action justement sur l'appui de la touche entrée si les 8 caractères ne sont pas atteints ou double clic afin de lancer la procédure. Mais justement rien n'est lancé automatiquement ...
0
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Tu peux essayer de voir avec l'évenement KeyPress ou KeyDown pour voir les valeurs des paramètres.
0
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention  
 
hmmm j'ai testé sans lancer les 8 caractères atteints ... ça lance à chaque lettre ....
Je vais voir pour lancer la recherche avec la méthode find dans une feuille spécifique dès que len > 4 et len = 8 ... j'dois juste m'aider de codes déjà fais ... j'suis pas encore au taquet ... ;)
0
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention  
 
ok j'aurais trouvé une solution mais je bloque .... :
J'ai mon textbox, je dois ajouter ** en valeur et placer le sélecteur entre les deux étoiles ...
Une petite aide svp ?
0
J0K068 Messages postés 32 Date d'inscription   Statut Membre Dernière intervention  
 
OK c'est bon, j'ai trouvé ...
En fait, nos codes barres commencent par une étoile et finisse par une étoile ... mais n'est pas détectée lors du scan.
Néanmoins dans l'extraction elle y est.

Ma recherche avec la valeur complète et juste est forcément détectée à cause des étoiles ...
J'ai donc ajouté une fonction de comparaison sur le nombre de caractères len(maTB) à len(marecherche) ...

Tout fonctionne donc ENFIN ...

Merci, reste à avancer sur le sujet pour trouver dans la même ligne que le code barre trouvé une cellule avec la valeur "Profil actif" ou "Profil inactif".

Merciiii ;)
0