Office: Access und EAN / UPC / GTIN

Ich habe eine Produktdatenbank mit ca. 1000 eigene Produkten, die alle KEINEN EAN, UPC bzw. GTIN Code aufweisen.
Ich muss diese Produktliste extern in eine Produktliste einspielen, dort wird jedoch eine solche Produktnummer inkl. gültiger Prüfziffer vorausgesetzt.

Ich vermute, für 1000 Produkte solche Codes anzufordern, wäre wohl sehr teuer?

Meine Frage: Kann man solche Nummern mit Prüfbummern selbst erzeugen?
Kann man da einen Nummernkreis wählen, der möglichst nicht verwendet wird?

Wäre um Antwort dankbar!

Mit freundlichen Grüßen

marha

:)

 

Nun Theoretisch kannst du, wenn du dir eine bestimmte Logik bei den Codezahlen überlegst deine Codes selber erzeugen und auch ausdrucken.
Am Sinnvollsten wäre es meiner Meinung nach wenn du deine Produkte kategorisieren würdest und dann untergruppen erstellen würdest, so kannst du ganz einfach eine gewisse nummern Reihenfolge erstellen und hast (fast) beliebigen Zahlenspielraum.

Beispiel:
Computer Zahl 1
->Tastatur 12
->Mäuse 13
->Kabel 14
->USB 141
->PS2 142
usw...

 

Hallo Philip K.,

mir geht es darum, EAN, UPC oder GTIN Code zu erzeugen.

Da muss eine bestimmte Zahlenlänge eingehalten werdne und auch eine Prüfziffer berechnet werden.

Mit freundlichen Grüßen

marha

 

Nimm der größtmöglichen Kompatibilität wegen einen EAN-Code.
Der Nummerkreis, der eine 2 voranstehen hat, ist laut Spezifikation als firmeninterner vorgesehen - solche Nummern wirst du also nie auf Produkten finden. ( Siehe auch z.B. http://www.gs1austria.at/html/2_2_2_2ucc.html )
Erzeugen kannst du sie mit folgendem Code:
Code:

Aufruf für deinen Zweck:
Dim i As Long
For i = 1 To 1000
Debug.Print CreateEAN13 (i)
Next i

Ciao, Sascha

 

Hi Sascha,

danke, das war genau was ich gesucht habe

Mit freundlichen Grüßen

marha

 

hallo,

ist zwar ein etwas älterer Beitrag, aber auch was ich gesucht habe.

Ob mir jemand erklärt wie ich es genau einbinde?

mit Besten Grüßen

Jemito

 

a) Funktionen kopieren in Deine Formularklasse oder in ein Standardmodul
b) aufrufen
Code:

Was hast genau vor?

 

Hallo Ebs17,

ich hab die Funktion kopiert und in VBA als Modul 2 eingebunden. Im Steuerelement des Formulars hab ich = CreateEAN13(134) eingetragen.
Die erstellte Zahl ist aber in jedem Datensatz gleich.

Ich hätte gern für jeden Datensatz eine neue 13 Stellige EAN.

mfg
Jemito

 

Wenn jedes Mal die 134 umgewandelt wird, kein Wunder *wink.gif*

 

hallo,

ich weiß leider nicht was ich in die "()" setzen muss damit die Zahl weiterläuft.
Wäre nett wenn mir jemand da einen Tip gibt.

Jemito

 

Wir wissen auch nicht, woraus sich die 134 oder eine andere Zahl ergeben soll. Da müsstest Du schon eine Vorstellung haben.

 

Hallo Ebs17,

ich möchte einen Barcode 13 stellig (inkl.Prüfziffer) erzeugen, der sich bei jedem neuen Datensatz verändert (einmalig ist).Genau die Funktion wie Sascha sie geschrieben hat.
Nur bekomme ich sie im Formular nicht aufgerufen.

Sascha schrieb:

wie setzte ich das jetzt in mein Formular ein?

 

Hi,

du wirst der Erzeugerfunktion irgendeine Kennziffer übergeben müssen, die sich von Artikel zu Artikel ändert. Z.B die bisherige interne Artikelnummer, eine lfd. Nummer (siehe Donkarl), einen nachträglich eingefügten Autowert o.ä..

 

Danke an alle für die Hilfe, habe es hinbekommen.
(Artikelnummer mit eingebunden)

Jemito