Créer des codes-barres 128 en VBA

**symbiioz** · 05/06/2013, 09h18

*Bonjour*
Suite à l'article de Domi2 sur les codes-barres 128 VBA : Créer des codes barres 128 en VBA, j'ai voulu l'appliquer (c'est exactement ce que je cherchais) sauf qu'au final tout marche bien sauf .. le code barre ! les traits n'apparaissent pas !! est-ce parce qu'il y a une erreur dans son code ? ou parce que j'ai mis les fonctions dans les modules ? ou serait-ce directement dans access le problème ? j'ai pas trouver mon problème et sur l'article de Domi2 je n'obtient pas de réponses donc si quelqu'un peut m'aider là ca serait super :/

""Elle est composée :

•d'une table ;
•d'un formulaire et de son module (quatre procédures) ;
•d'un état et de son module (deux procédures) ;
•d'un module de code contenant une procédure et deux fonctions nécessaires à l'encodage et au traçage des codes-barres""

Ca parait peut-être bête mais quelles procédures et quelles fonctions correspondent aux modules ?

**symbiioz** · 05/06/2013, 15h44

*Bonjour,*
Bon, du coup j'ai voulu tout reprendre à zéro pour trouver la source des problèmes, et ,avec l'aide de l'un des articles du site, j'ai tout simplement essayé de faire des desssins dans un état.. et bah je pense que le problème vient de là puisque je n'ai réussi a faire aucun dessins (sachant que j'ai essayer plusieur code VBA de l'article).
Donc nouvelle question, pourquoi les dessins n'apparaissent pas ??

**Dolphy35** · 05/06/2013, 20h33

Bonjour,

Pour la première question, le tuto fonctionne très bien chez moi.
Pour la seconde, ds le tuto rien ne figure pour l'utilisation d'un image. Relis bien tout y est indiqué.

@+

**symbiioz** · 06/06/2013, 08h35

Bonjour Dolphy,

Oui, au final je me suis douté que ca venait de moi.
Par contrre, désolé mais j'ai pas compris ta deuxième réponse ?? :-/

Du coup je te la pose différemment, dans ce tuto, tout est bien expliquer pour faire des dessins. Du coup j'ai essayé d'en faire, genre pour le cadre pour la section en tête de page par exemple, en gros je crée mon état et dans son module j'ai juste à mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer)
     Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbBlack, B
End Sub

non ?? parce que si c'est le cas bah j'ai rien qui apparaît

**Dolphy35** · 06/06/2013, 08h38

BONJOUR,

c'est quoi la question un problème de dessin ou l'intégration de CàB dans un état ????

**symbiioz** · 06/06/2013, 08h53

Bonjour,
(Excuse moi, j'avais pas vu tes corrections ^_^ )

Ca serait un problème de dessin vu que, le code étant bon, je suis censé avoir un cadre. est-ce que c'est pas une option à valider dans access ou visual basic ? :/

**symbiioz** · 06/06/2013, 09h47

Bon, avec les exemple avecc report_page() ca marche donc ca c'était un problème venant de moi :p

Du coup, j'ai du mal faire dans mon code 128 mais là, je vois vraiment pas quoi :/
mon formulaire est le même et dans mon état apparait que le libellé (si j'affiche le code il est bien là aussi).
Sinon dans mes modules il y a :

Form_frmCodeBarres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Open(cancel As Integer)
                              -Private Sub cmdTracage_Click()
                              -Function Code128(strChaine)
                              -Private Sub cmdApercuImpression_Click()

Report_rptEtiquettes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Report_Open(cancel As Integer)
Private Sub Detail_Format(cancel As Integer, FormatCount As Integer)
Public Sub TracerMotifCodeBarres128(Ctrl As Control, rpt As Report)

basCodesBarres :
-la déclaration des variables publiques (lngTracageColonne, ...) et des constantes utilisées (couleur des barres, ..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function MotifCodeBarres128(strChaine As String) As String

J'suis vraiment perdu là :/

**symbiioz** · 06/06/2013, 12h02

Ah, et aussi, encore deux autres questions ^^
Le format des colonnes il sert à quoi en faite ? j'ai pas saisie :/ et j'ai pas l'impression que ca change grand chose dans mon formulaire que ca soit vers la droite puis vers le bas ou le contraire ..

Le faite d'être sous access 2007 il y a pas certains "éléments" qui doient être changer dans le VBA voir même sous access ? parce qu'en regardant les images du tutoriel j'ai l'impression que c'est pas le même access

En tout cas , merci d'avance de ta réponse,
Cordialement

**Dolphy35** · 06/06/2013, 18h45

Re,

Désolé mais je perd le fil : c'est quoi la question ?

**symbiioz** · 07/06/2013, 08h39

Bonjour Dolphy,

Oui, excuse moi, je me mélange un peu les pinceaux. En gros mon code 128 ne marche pas ( ca je pense que tu l'avais compris ^^ ), Alors j'aimerais savoir si c'est parce que mes procédures et fonctions ne sont pas dans les bons mudules, ou si le faite d'etre sous access 2007 pose un problème et qu'il y a des modifications a faire ?
Si j'arrive pas à me faire comprendre là bah c'est pas grave je me débrouillerais

Ou sinon si tu veux bien, c'est de pouvoir récupérer ton code 128 si possible, vu qu'il marche ca reglerai mes problèmes

ou alors que je puisse te passer mon fichier access pour que tu puisse voir où est le problème mais comme on a pas trop l'droit de mettre des fichiers joints .. :S

Cordialement.

**symbiioz** · 07/06/2013, 15h17

L'acharnement est vraiment une bonne chose, j'ai trouvé le problème !!!!!

en faite c'est ma procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
    On Error GoTo GestionErreurs
 
    'Appel de la fonction de traçage des codes-barres
    TracerMotifCodeBarres128 Me.txtCodesBarres, Me
 
    'Sortie de la procédure
    Exit Sub
 
GestionErreurs:
 
    'Affichage d'un message
    MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & vbNewLine & _
    "Source : " & Err.Source & vbNewLine & _
    "Erreur no : " & Err.Number & vbNewLine & _
    "Description : " & Err.Description, vbCritical, "Erreur !"
 
    'Envoi de la touche Esc pour forcer la fermeture de l'état
    SendKeys "{ESC}"
 
End Sub

qui ne s'activait pas !!!
En même temps pas étonnant, il manquait l'accent sur le "e" de Detail". Bref problème résolu

Cordialement,
Un heureux débutant d'access.

**youfany** · 03/01/2018, 20h11

Bonjour à tous
j'ai intégré le code de Domi2 dans une appli Access et sur un état j'édite des codes-barres associés à des élèves. Mon problème est que en essayant de lire les codes-barres ainsi édités à l'aide d'une douchette "Barcode Scanner" de model: "TT-BS014" que j'ai acquise sur Amazone, j'obtiens des réponses du type "ééé" ou "&a!(:::" au lieu de simples numéros que j'ai attribués aux élèves.
Est ce le lecteur qui pose le problème?
Qui peut me dire quel lecteur marche-t-il avec ces codes-barres.
Merci à tous.