Créer des codes-barres 128 en VBA

*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 ? :mouarf:

*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 ??:aie:

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é.

@+

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:

---

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

BONJOUR,

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

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 ? :/

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:

---

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:

---

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:

---

Public Function MotifCodeBarres128(strChaine As String) As String

---

J'suis vraiment perdu là :/

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

Re,

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

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 :P 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.

L'acharnement est vraiment une bonne chose, j'ai trouvé le problème !!!!! :D
en faite c'est ma procédure

Code:

---

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.

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.

Bonsoir,

Peut-être que j'arrive trop tard mai bon!

Tu peux télécharger la police code barre 128 sur internet.

Salut, voir ici

Bonjour

Regardes l'état de la touche majuscule de ton clavier, si tu es en majuscules mets toi en minuscule ou inversement.

Philippe