Discussion :

[polon]

Bonsoir à tous,

Voila je suis devant un pb épineux - et je ne sait pas comment faire - je m'explique :

J'ai une table produits dans ma BD et je voudrais générer automatiquement un NumeroAuto (en plus de ma référence produit qui contiens des caractères- dans un autre champ bien sûr) de 12 chiffres pour pouvoir ensuite créer un code barre du type EAN13

qq'un a t'il une solution - ou une autre idée ?

Merci d'avance

Paul

[Alexandre Sahli]

il te faut utiliser une police d'écriture (true type) pour les codes barres.
J'ai une fois fait l'essais avec du code 39 et çà fonctionnait sans problème.

Je ne connais pas le code EAN13 mais il y a certainement des carractères de départ et de fin de code.
fait une recherche sur le net car il y avait un article qui expliquait la différence entre les différents codes

A+

[Steph9]

il suffit dans ton état d'utiliser un controle de type "*" & tonnumero & "*"

[User]

Salut,

En fait il me semble que le numéro du produit est sur 5 caractères dans le code EAN13,

Tu peux donc générer 1 numéro auto pour chaque produit (ajoute 1 champ numéro auto dans ta table, puis tu crée un champ calculé sur ton formulaire ou dans une requête, à partir d'une fonction du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function NumAuto_To_EAN13(NumAuto As Long) As String
Dim Str1 As String, Str2 As String, Str3 As String
Dim Char As String
 
Str1 = "35" ' numéro du pays par exemple
Str2 = "11111" ' le numéro de l’entreprise (par ex.)
Str3 = Left("00000", 5 - Len(CStr(NumAuto))) & NumAuto ' code du produit sur 5 caractère
Char = "1" ' clé de contrôle du code barre
 
NumAuto_To_EAN13 = Str1 & Str2 & Str3 & Char
 
End Function

et après tu fais:
dans 1 requête:

Code :

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

Code_Barre: NumAuto_To_EAN13([NumAuto])

ou sur 1 form:

Code :

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

Code_Barre.ControlSource=NumAuto_To_EAN13([NumAuto])

@+

[Alexandre Sahli]

j'ai aussi l'impression que tu trouveras ce que tu veux sur le site

http://www.anshare.com/fiche.asp?I=14926

ou dans google tu tapes EAN13 et tu tombes sur un site qui explique le code EAN13
A+

[polon]

merci beaucoup a tous pour votre aide

j'ai trouve finalement c'est que je cherchais - avec votre aide biensur

@+ paul