<\/p>\n
Nicht selten fragen Access-Entwickler, wie sie Strichcodes in Berichten abbilden können. Das Internet bietet verschiedene Möglichkeiten von kostenpflichtigen Tools bis hin zu speziellen Schriftarten. Wir wollen am Beispiel von EAN-13 zeigen, wie Sie einen solchen Code mit ein wenig Handarbeit selbst generieren und in einem Bericht anzeigen können.<\/b><\/p>\n
Die European Article Number<\/b><\/p>\n
EAN <\/b>steht für European Article Number<\/b>, die wiederum die Globel Trade Item Number <\/b>(GTIN<\/b>) abgelöst hat. Es gibt zwei Varianten (mit acht und mit 13 Stellen), die von der Organisation Global Standards One <\/b>(GT1<\/b>) vergeben werden.<\/p>\n
In diesem Beitrag konzentrieren wir uns auf die 13-stellige Variante, die als eindeutige Produktkennzeichnung dient – dies gilt ebenfalls für die achtstellige Version, die speziell für Artikel geringeren Ausmaßes und dementsprechend mit weniger Platz zum Platzieren des Codes auskommen müssen.<\/p>\n
Anlass für diesen Beitrag ist übrigens die Veröffentlichung eines Buchs und damit der Wunsch, dieses auch mit einer ISBN und einem entsprechenden Strichcode auszustatten. Die ISBN wiederum ist ein Spezialfall eines EAN-Codes, wobei sich die Unterschiede auf die Notation (bei Büchern mit Bindestrichen, also etwa 978-3-944216-00-3 und beim EAN-Code ohne Bindestriche) und auf die ersten Ziffern beschränken, welche beim EAN-Code für Waren eigentlich als Länderkennzeichen dienen. Bei Waren besteht der EAN-13-Code also aus folgenden Bestandteilen:<\/p>\n
Bei Büchern besteht die ISBN aus diesen Informationen:<\/p>\n
Prüfziffer berechnen<\/b><\/p>\n
Bevor wir uns an die Ausgabe des EAN-13-Codes in einem Access-Bericht begeben, schauen wir uns noch die Berechnung der Prüfziffer an, also der letzten Ziffer des Codes. <\/p>\n
Diese erfolgt nach der Formel aus Bild 1. Das bedeutet, dass Sie zunächst die erste, dritte, fünfte, siebte, neunte und elfte Ziffer addieren. Als Nächstes addieren Sie die zweite, vierte, sechste, achte, zehnte und zwölfte Ziffer und multiplizieren diese Summe mit 3<\/b>. Danach berechnet man den Modulo für die Summe der beiden Zwischenergebnisse und die Zahl 10<\/b>, was bedeutet, dass Sie den Rest der Division ermitteln. Angenommen, wir arbeiten mit der Zahl 978394421600<\/b>, dann erhalten wir als erste Summe 9+8+9+4+1+0 <\/b>gleich 31 <\/b>und als zweite Summe 7+3+4+2+6+0 <\/b>gleich 22<\/b>. Die erste Summe zum Dreifachen der zweiten Summe addiert ergibt 97<\/b>. Der Modulo aus 97 <\/b>und 10 <\/b>ist 7<\/b>. Dieses Ergebnis wird schließlich noch von 10 <\/b>subtrahiert und erneut mit mod 10 <\/b>behandelt – dies sorgt dafür, dass der Wert 10 <\/b>gegebenenfalls zum Ergebnis 0 <\/b>führt und keine zweistellige Prüfziffer herauskommt.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic001.png\")
<\/p>\n
Bild 1: Formel zur Berechnung der Prüfziffer<\/span><\/b><\/p>\n Dies müssen Sie nun nur noch in VBA-Code gießen. Kein Problem – das Ergebnis sieht wie in Listing 1<\/a><\/span> aus. Die Funktion Pruefziffer<\/b> erwartet eine zwölfstellige Zeichenkette, anderenfalls wird sie gleich mit einer entsprechenden Meldung beendet. Die beiden Summen über die Ziffern auf den ungeraden und den geraden Positionen bildet die Funktion in einer Schleife, wobei der Faktor drei bei den Ziffern auf den geraden Positionen gleich mit einfließt. Die letzte Anweisung der Prozedur führt die beiden Modulo-Operationen durch und gibt das Endergebnis als Funktionswert zurück.<\/p>\n Listing 1: Ermitteln der Prüfziffer für einen EAN-Code<\/p>\n Wenn Sie eine solche Funktion erstellen und testen, helfen einige Testaufrufe mit Beispielwerten weiter. Dies kann etwa wie in Listing 2<\/a><\/span> aussehen und liefert eine entsprechende Ausgabe an das Direktfenster.<\/p>\n Listing 2: Testaufrufe der Prüfziffern-Berechnung<\/p>\n Nachdem diese Funktion schon recht einfach zu erstellen war, setzen wir noch eine weitere Funktion oben drauf, mit der Sie einen 13-stelligen EAN-Code auf seine Gültigkeit prüfen können. Diese Funktion heißt EANPruefen<\/b> und sieht wie in Listing 3<\/a><\/span> aus. Die Funktion prüft wiederum die korrekte Länge des zu prüfenden Codes und teilt diesen dann zunächst in den eigentlichen Code (also die ersten zwölf Ziffern) und die Prüfziffer auf. Wenn die an der letzten Stelle des Codes enthaltene Prüfziffer mit der Prüfziffer übereinstimmt, welche die Funktion Pruefziffer <\/b>für die ersten zwölf Stellen ermittelt, dann ist der EAN-Code inklusive Prüfziffer korrekt.<\/p>\n Listing 3: Prüfung kompletter EAN-Codes inklusive Prüfziffer<\/p>\n EAN-Strichcode<\/b><\/p>\n Wenn Sie denken, damit wäre der komplizierteste Teil erledigt, irren Sie. Verglichen mit dem Aufwand, der zum Ausdrucken des Strichcodes für einen EAN-Code nötig ist, war dies ein Kinderspiel. In Bild 2 haben wir einen solchen Strichcode schematisch abgebildet. Der Strichcode unterteilt sich grob in die folgenden Bereiche:<\/p>\n Bild 2: Aufbau des Strichcodes<\/span><\/b><\/p>\n Die erste Ziffer wird nicht als Strichcode abgebildet, sie entscheidet jedoch, wie die ersten sechs Ziffern als Strichcode dargestellt werden. Und das geht so: Sie schauen in die Tabelle aus Bild 3 und suchen die Zeile heraus, die der ersten Ziffer entspricht. Bei Büchern ist das immer die Ziffer 9, also verwenden wir die unterste Zeile.<\/p>\n Bild 3: Festlegung der zu verwendende Spalte für die Strichcodes<\/span><\/b><\/p>\n Damit und mit der Tabelle aus Bild 4 betrachten wir nun die folgenden zwölf Ziffern. Für unser Beispiel 978-3-8273-2950-9 <\/b>(der besseren Übersicht halber als ISBN formatiert) kommt also als Erstes die Ziffer 7 <\/b>an die Reihe. Dies ist die zweite Ziffer, also verwenden wir Spalte A. Spalte A liefert für die Ziffer 7 <\/b>den Wert 0111011<\/b>.<\/p>\n Bild 4: Je nach dem Wert der ersten Ziffer wird die aktuelle Ziffer durch eine dieser Ziffernfolgen ersetzt.<\/span><\/b><\/p>\n Die dritte Ziffer ist die 8<\/b> und soll durch den entsprechenden Wert aus Spalte B ersetzt werden – also 0001001<\/b>. So gehen wir weiter vor und finden für die zweite bis siebte Ziffer diese Werte:<\/p>\n Bei der achten bis dreizehnten Ziffer ist es einfacher, da die entsprechenden Werte alle aus Spalte C der zweiten Tabelle stammen. Für die Ziffern 329509 kommt so der Ausdruck 1000010-1101100-1110100-1001110-1110010-1110100 zusammen (der besseren Übersicht wegen durch Bindestriche getrennt).<\/p>\n Damit hätten wir zwei sehr längliche Ausdrücke, die aus 1 und 0 bestehen. Vor dem ersten Ausdruck (also den 42 Zeichen für die ersten sechs Ziffern) schieben wir nun die Startbegrenzung 101<\/b> ein, zwischen den Ausdrücken für die Ziffern zwei bis sieben und acht bis dreizehn fügen wir als Unterteilung 01010 <\/b>ein und am Ende hängen wir nochmals als Endbegrenzung die Folge 101 <\/b>an.<\/p>\n Dies ergibt 101_0111011_0001001_0100001_0110111_0011011_0111011_01010_1000010_1101100_1110100_1001110_1110010_1110100_101<\/b>, wobei die einzelnen Elemente für die Übersicht durch Unterstriche voneinander getrennt wurden.<\/p>\n Und das ist auch schon die Grundlage für den Strichcode! Sie müssen nun nur noch für jede 1 <\/b>einen Strich markieren und für jede 0 <\/b>einen Leerraum, wobei Striche und Leerräume natürlich die gleiche Breite aufweisen müssen. Die Striche für die Start- und die Endbegrenzungen 101 sowie den Mittelteil 01010 müssen unten länger sein, die Zahlen werden davor beziehungsweise dazwischen platziert.<\/p>\n Nun kommen zwei Aufgaben auf uns zu: Erstens die Erstellung einer Prozedur, die aus den 13 Ziffern eines EAN-Codes den aus 1 und 0 bestehenden und in Form eines Strichcodes anzeigbaren Ausdruck zu ermitteln und – noch interessanter – das Erstellen eines Access-Berichts, der diese Striche auf den Bericht zaubert.<\/p>\n Strichcode aus EAN-Code berechnen<\/b><\/p>\n Die Funktion ConvertEAN <\/b>ermittelt die aus 1 <\/b>und 0 <\/b>bestehende Zeichenfolge, die es ermöglicht, einen EAN-Code als Strichcode anzuzeigen (siehe Bild 5 erfolgt.<\/p>\n Listing 4: Ermitteln der Binärzeichenfolge aus einem EAN-Code<\/p>\n Bild 5: Ermittlung eines Strichcodes im Direktfenster<\/span><\/b><\/p>\n <\/p>\n Die Funktion fasst die Werte der Tabelle mit den drei Spalten A<\/b>, B <\/b>und C <\/b>in drei Konstanten namens cTA<\/b>, cTB <\/b>und cTC <\/b>zusammen, wobei die jeweils zehn Zeichen einfach in der richtigen Reihenfolge aneinandergehängt wurden. Die Variable strResult <\/b>wird nun Stück für Stück mit den benötigten Elementen gefüllt. Den Start macht die Anfangsbegrenzung 101<\/b>.<\/p>\n Anschließend durchläuft die Prozedur eine Schleife über die zweite bis siebte Ziffer des EAN-Codes. In dieser Schleife prüft die Funktion in einer Select Case<\/b>-Bedingung zunächst, von welcher Position des EAN-Codes die aktuelle Ziffer stammt.<\/p>\n Handelt es sich beispielsweise um die zweite Stelle, soll immer der in Spalte A <\/b>der Tabelle abgebildete Strichcode verwendet werden – also für alle Ziffern von 0 <\/b>bis 9<\/b>. Die Mid<\/b>-Funktion ermittelt dann aus den 70 Zeichen der Konstanten cTA <\/b>die sieben Zeichen, die der jeweiligen Ziffer entsprechen. Das sind für die 0 <\/b>die ersten sieben, für die 1 <\/b>die zweiten sieben und so weiter.<\/p>\n Damit dies funktioniert, multipliziert der folgende Ausdruck zunächst die Zahl aus intNumber <\/b>mit 7<\/b>, addiert 1 <\/b>und liest von dieser Position aus sieben Zeichen des Wertes der Konstanten cTA<\/b>:<\/p>\n Hat intNumber <\/b>also etwa den Wert 3<\/b>, liefert dies die Zeichen von der 22. bis zur 28. Stelle.<\/p>\n Bei der zweiten Stelle wird es schon interessanter, denn hier kommen die sieben Ziffern für den Strichcode für die aktuelle Ziffer des EAN-Codes nicht alle aus Spalte A <\/b>der Tabelle, sondern sowohl aus Spalte A <\/b>als auch aus Spalte B<\/b>. Dies deckt der entsprechende Case<\/b>-Zweig wie folgt ab:<\/p>\n In diesem Fall soll für die dritte Stelle des EAN-Codes die Ziffernfolge aus Spalte A <\/b>der zweiten Tabelle verwendet werden, wenn die erste Stelle des EAN-Codes den Wert 0<\/b>, 1<\/b>, 2 <\/b>oder 3 <\/b>enthält und sonst die Ziffernfolge aus Spalte B<\/b>.<\/p>\n Auf diese Weise fertigt die Funktion die zweite bis siebte Stelle des EAN-Codes ab und stellt die entsprechenden Einsen und Nullen zusammen. Dann fügt sie der Variablen strResult <\/b>für den Mittelteil die Ziffernfolge 01010 <\/b>hinzu und widmet sich dann der Umsetzung der Positionen 8 <\/b>bis 13 <\/b>des EAN-Codes.<\/p>\n Das ist wesentlich einfacher, da hier alle Werte aus Spalte C <\/b>der zweiten Tabelle stammen. Die For…Next<\/b>-Schleife braucht daher einige Fallunterscheidungen weniger:<\/p>\n Zu guter Letzt hängt die Funktion noch die abschließende Ziffernfolge 101 <\/b>an den in strResult<\/b> gespeicherten Ausdruck an und gibt diesen als Funktionswert zurück.<\/p>\n Strichcodes in Berichten drucken<\/b><\/p>\n Fehlt noch eine abschließende Aufgabe: das Drucken der Strichcodes für die auf Basis des EAN-13-Codes ermittelte Kombination aus Einsen und Nullen.<\/p>\n Hier gibt es zwei Ansätze. Der erste setzt auf das Linie<\/b>-Steuerelement. Sie könnten eine ausreichende Anzahl davon auf dem Bericht platzieren und die Linie-Steuerelemente dann in der gewünschten Höhe und Breite anzeigen lassen. Außerdem fügen Sie noch drei Textfelder hinzu, welche die Zahl vor dem Strichcode (also die erste Position des EAN-Codes), die Zahlen der zweiten bis siebten Position und die Zahlen der achten bis dreizehnten Position an den entsprechenden Stellen unterbringen.<\/p>\n Diese Variante setzt allerdings auch voraus, dass Sie vorher wissen, wie viele EANs Sie auf dem Bericht unterbringen möchten – dementsprechend viele Linie<\/b>-Steuerelemente müssen Sie bevorraten. <\/p>\n Deshalb wählen wir eine flexiblere Lösung. Diese benötigt gar keine Steuerelemente, sondern zeichnet alle Linien zur Laufzeit mit der Line<\/b>-Methode des Berichts-Objekts. Und sogar die Zahlen unter dem Strichcode werden einfach mit der Print<\/b>-Methode erzeugt. Gut, ganz so leicht ist es dann doch nicht: Immerhin müssen Sie diesen Befehlen als Parameter noch die Koordinaten der Elemente mitgeben, was die Hauptarbeit der folgenden Schritte ist.<\/p>\n Damit Sie schon einmal sehen, worauf wir hinarbeiten – die folgende Prozedur, die durch das Ereignis Bei Seite <\/b>des betroffenen Berichts aufgerufen wird, legt die neun Strichcodes aus Bild 6 im Bericht an:<\/p>\n Bild 7: Die Strichcodes können in beliebiger Höhe ausgegeben werden.<\/span><\/b><\/p>\n Dabei ist jeder Aufruf der Funktion EAN13 <\/b>für einen Strichcode verantwortlich. Die Funktion erwartet einige Parameter, und zwar zunächst einen Verweis auf den Bericht, in dem die Strichcodes anzulegen sind. Als zweiten Parameter übergeben Sie die dreizehnstellige EAN-Nummer.<\/p>\n Der dritte und der vierte Parameter erwarten die Position vom linken und oberen Rand des Berichtsbereichs, in dem die Strichcodes gedruckt werden sollen, in Millimetern.<\/p>\n Hierbei spielt das Ereignis, von dem aus die Funktion aufgerufen wird, eine große Rolle. Wenn Sie wie in diesem Beispiel das Ereignis Bei Seite <\/b>des Berichts verwenden, können Sie die Strichcodes auf der kompletten Seite verteilen (mit Ausnahme der Seitenränder). Verwenden Sie beispielsweise die Beim Drucken<\/b>-Ereignisprozedur eines der Berichtsbereiche, können Sie den Strichcode nur im jeweiligen Bereich unterbringen. Achten Sie dabei darauf, dass der Bereich über eine ausreichende Größe verfügt. Der fünfte Parameter kann mit einem Skalierungsfaktor ausgestattet werden.<\/p>\n Der Wert 1 <\/b>liefert einen Strichcode mit einer Strichbreite von 0,33mm<\/b>. Der sechste Parameter schließlich legt die Höhe des Strichcodes fest, ebenfalls in Millimetern (s. Bild 7). <\/p>\nPublic Function Pruefziffer(strEANOhne) As String\r\n Dim intSummeEinfach As Integer\r\n Dim intSummeDreifach As Integer\r\n Dim i As Integer\r\n If Not Len(strEANOhne) = 12 Then\r\n MsgBox "Die zu prüfende Ziffernfolge muss zwölf Ziffern enthalten."\r\n Exit Function\r\n End If\r\n For i = 1 To 6\r\n intSummeEinfach = intSummeEinfach + Mid(strEANOhne, i * 2 - 1, 1)\r\n intSummeDreifach = intSummeDreifach + 3 * Mid(strEANOhne, i * 2, 1)\r\n Next i\r\n Pruefziffer = (10 - (intSummeEinfach + intSummeDreifach) Mod 10) Mod 10\r\nEnd Function<\/pre>\n
Public Sub Test_Pruefziffer()\r\n Debug.Print "978382732950", Pruefziffer("978382732950") = "9", Pruefziffer("978382732950")\r\n Debug.Print "978394421600", Pruefziffer("978394421600") = "3", Pruefziffer("978394421600")\r\n Debug.Print "978394421601", Pruefziffer("978394421601") = "0", Pruefziffer("978394421601")\r\n ...\r\nEnd Sub<\/pre>\nPublic Function EANPruefen(strEAN) As Boolean\r\n Dim strEANOhne As String\r\n Dim strPruefziffer As String\r\n If Not Len(strEAN) = 13 Then\r\n MsgBox "Die zu prüfende Ziffernfolge muss 13 Ziffern enthalten."\r\n Exit Function\r\n End If\r\n strEANOhne = Left(strEAN, 12)\r\n strPruefziffer = Right(strEAN, 1)\r\n EANPruefen = strPruefziffer = Pruefziffer(strEANOhne)\r\nEnd Function<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic002.png\")
<\/p>\n\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic004.png\")
<\/p>\n\n
Public Function ConvertEAN(strEAN As String) As String\r\n Dim i As Integer\r\n Dim intNumber As Integer\r\n Dim strResult As String\r\n Const cTA As String = "0001101001100100100110111101010001101100010101111011101101101110001011"\r\n Const cTB As String = "0100111011001100110110100001001110101110010000101001000100010010010111"\r\n Const cTC As String = "1110010110011011011001000010101110010011101010000100010010010001110100"\r\n strResult = strResult & "101"\r\n For i = 2 To 7 ''Ziffern 2 bis 13\r\n intNumber = Mid(strEAN, i, 1)\r\n Select Case i\r\n Case 2\r\n Select Case Left(strEAN, 1)\r\n Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n End Select\r\n Case 3\r\n Select Case Left(strEAN, 1)\r\n Case 0, 1, 2, 3\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select\r\n Case 4\r\n Select Case Left(strEAN, 1)\r\n Case 0, 4, 7, 8\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select\r\n Case 5\r\n Select Case Left(strEAN, 1)\r\n Case 0, 1, 4, 5, 9\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select\r\n Case 6\r\n Select Case Left(strEAN, 1)\r\n Case 0, 2, 5, 6, 7\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select\r\n Case 7\r\n Select Case Left(strEAN, 1)\r\n Case 0, 3, 6, 8, 9\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select\r\n End Select\r\n Next i\r\n strResult = strResult & "01010"\r\n For i = 8 To 13\r\n intNumber = Mid(strEAN, i, 1)\r\n strResult = strResult & Mid(cTC, (intNumber) * 7 + 1, 7)\r\n Next i\r\n strResult = strResult & "101"\r\n ConvertEAN = strResult\r\nEnd Function<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic005.png\")
<\/p>\nMid(cTA, (intNumber) * 7 + 1, 7)<\/pre>\n
Case 3\r\n Select Case Left(strEAN, 1)\r\n Case 0, 1, 2, 3\r\n strResult = strResult & Mid(cTA, (intNumber) * 7 + 1, 7)\r\n Case Else\r\n strResult = strResult & Mid(cTB, (intNumber) * 7 + 1, 7)\r\n End Select<\/pre>\n
For i = 8 To 13\r\n intNumber = Mid(strEAN, i, 1)\r\n strResult = strResult & Mid(cTC, (intNumber) * 7 + 1, 7)\r\nNext i<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic007.png\")
<\/p>\nPrivate Sub Report_Page()\r\n EAN13 Me, "9783827329509", 0, 0, 0.8, 20\r\n EAN13 Me, "9783827329509", 0, 25, 0.9, 20\r\n EAN13 Me, "9783827329509", 0, 50, 1, 20\r\n EAN13 Me, "9783827329509", 0, 80, 1.1, 20\r\n EAN13 Me, "9783827329509", 0, 115, 1.2, 20\r\n EAN13 Me, "9783827329509", 60, 0, 1.2, 20\r\n EAN13 Me, "9783827329509", 60, 35, 1.3, 20\r\n EAN13 Me, "9783827329509", 60, 70, 1.4, 20\r\n EAN13 Me, "9783827329509", 60, 110, 1.5, 20\r\nEnd Sub<\/pre>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic006.png\")
<\/p>\n
![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic012.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic008.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic009.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic011.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2012_05\/EAN13-web-images\/pic010.png\")
<\/p>\n