<\/p>\n
Autor: Klaus Giesen, Wuppertal<\/p>\n
<\/b><\/p>\n
Barcodes oder Strichcodes begegnen uns mit zunehmender Häufigkeit unter anderem auf Warenetiketten, Ausweisen oder auch auf Postpaketen. Diese maschinenlesbare Kennzeichnung ist ideal zur schnellen, sicheren und vor allem automatisierten Datenerfassung. Typische Einsatzbereiche sind beispielsweise die Kasse im Supermarkt, die Warenannahme eines Unternehmens oder ein Lager. Da auf diesen Barcodes oftmals Daten auftauchen, die auch in Access-Datenbanken gespeichert werden, liegen Erstellung und Druck dieser Barcodes direkt aus Access heraus auf der Hand.<\/b><\/p>\n
Barcodes funktionieren folgendermaßen: Durch eine Abfolge von dunklen Linien auf weißem Hintergrund werden Daten kodiert. Die dunklen Linien können mit speziellen Lesegeräten optisch abgetastet und dabei wieder entschlüsselt werden.<\/p>\n
Ihr wesentliches und kennzeichnendes Merkmal ist also, dass es mit ihrer Hilfe leicht möglich ist, gedruckte Informationen maschinell zu lesen.<\/p>\n
Dadurch, dass Barcodes meistens auf Etiketten gedruckt werden, ist eine preiswerte und qualitativ gute Massenherstellung in Druckereien möglich. Aber auch Kleinserien lassen sich mit einem guten Tintenstrahl- oder Laserdrucker leicht herstellen.<\/p>\n
Die Einsatzbereiche von Barcodes reichen weit über die Supermarktkasse hinaus. Sie sind mittlerweile in fast allen Bereichen von Handel, Industrie und Behörden zu finden – mit steigender Tendenz.<\/p>\n
Entwicklung der Barcodes<\/b><\/p>\n
Es liegt auf der Hand, dass der Ursprung der Strichcodes sehr eng mit der Computerentwicklung verbunden ist. Denn diese Kombination stellt die einzig sinnvolle Möglichkeit dar, auf Papier gedruckte Daten maschinell zu lesen.<\/p>\n
Die entscheidenden Merkmale dabei sind Sicherheit, Geschwindigkeit und Wirtschaftlichkeit.<\/p>\n
Die Entwicklung der Opto-Elektronik, die eine schnelle und sichere Decodierung der Barcodeinformationen ermöglicht, förderte die Verbreitung von Barcodes zunächst im Lebensmittelvertrieb.<\/p>\n
Später kamen andere Bereiche des verteilenden Sektors sowie der industriellen Fertigung hinzu. Dort werden Barcodes hauptsächlich im Bereich der Materialsteuerung und -verteilung verwendet.<\/p>\n
Weitere Anwendungsbereiche für Barcodes sind beispielsweise noch alle möglichen Arten von Personen- oder Mitgliedsausweisen.<\/p>\n
Einige Daten zur chronologischen Entwicklung<\/b><\/p>\n
1949 wird in den USA der erste Barcode patentiert. Etwa zur gleichen Zeit entstehen Supermärkte und damit auch die Wartezeiten an den Kassen. <\/p>\n
1955 gibt es erste überlegungen zur Automatisierung von Kassen. Gleichzeitig kommt es zu einer rasanten Entwicklung in den Bereichen Elektronik und Opto-Elektronik.<\/p>\n
1960 beginnt die allgemeine Verbreitung von Computersystemen.<\/p>\n
1970 wird der erste Mikroprozessor entwickelt. Zu diesem Zeitpunkt existieren bereits sehr konkrete Vorstellungen über allgemein gültige und universell einsetzbare Barcodes. <\/p>\n
1974 ist die Geburtsstunde des Code 39.<\/p>\n
1976 wird der Code EAN (European Article Numbering) entwickelt.<\/p>\n
Der Aufbau von Barcodes<\/b><\/p>\n
Allgemein ausgedrückt ist Strich- oder Barcodierung eine aus Binärzeichen bestehende Information, deren Aufbau vorschriftsmäßig festgelegt und die maschinell lesbar ist.<\/p>\n
Der Binärcode selbst besteht aus einem Feld von parallel angeordneten Strichen und Lücken. Die Striche und Lücken sind nach einem bestimmten Bild angeordnet, die einer festgelegten Regel folgen. Dadurch stellen sie eindeutige Elemente von Daten dar, die auf die dazugehörigen Zeichen verweisen.<\/p>\n
Diese Codierung wird durch Aufdruck oder Klebeetiketten auf dem zu identifizierenden Gegenstand aufgebracht und durch ein Lesesystem optisch abgetastet.<\/p>\n
Das Barcodefeld<\/b><\/p>\n
Das Barcodefeld besteht aus der eigentlichen Strichcodierung, die am Anfang und am Ende durch je eine Ruhezone begrenzt ist. Die Ruhezone dient zur Abgrenzung.<\/p>\n
Unterhalb der Strichcodierung befindet sich die Klarschriftzeile, in der die verschlüsselte Information in lesbarer Schrift dargestellt wird (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Strichcodefeld<\/span><\/b><\/p>\n Die Codierung einer Buchstaben- bzw. Ziffernfolge hängt im Wesentlichen von den speziellen Eigenschaften der verwendeten Barcode-Typen ab. Davon sind im Laufe der Jahre eine Vielzahl entwickelt worden.<\/p>\n Grundsätzlich muss zwischen Non-interleaved- und Interleaved-Barcodes unterschieden werden.<\/p>\n Das kennzeichnende Merkmal eines Non-interleaved-Codes ist, dass jedes Zeichen einer Strichfolge eindeutig zugeordnet ist. Das heißt, jedes Zeichen entspricht exakt einer bestimmten Strichfolge und umgekehrt.<\/p>\n Daraus ergibt sich, dass Sie bei einem solchen Code einfach die zu codierende Zeichenfolge eingeben und mit einer passenden TrueType-Schrift formatieren können. Gleich nach dem Ausdruck ist der Barcode auch schon wieder lesbar.<\/p>\n Häufig finden sich vor und hinter der zu codierenden Zeichenfolge noch ein bis zwei zusätzliche Zeichen, die als Prüfziffern dienen.<\/p>\n Bei Interleaved-Codes dagegen ist die Codierung eines Zeichens von vorhergehenden und nachfolgenden Zeichen abhängig.<\/p>\n Bei diesen Codes besteht die Eindeutigkeit nicht in der Zuordnung eines Zeichens, sondern in der Zuordnung eines ganzen Wortes zu einer Strichfolge.<\/p>\n Da dies die Formatierungsmöglichkeiten von TrueType-Schriften übersteigt, ist zum Ausdruck ein Umrechnungsalgorithmus notwendig.<\/p>\n In diesem Beitrag lernen Sie jeweils einen typischen Vertreter dieser beiden Barcode-Typen stellvertretend für andere näher kennen:<\/p>\n Folgerichtig finden Sie auch den Ausdruck dieser beiden Barcode-Typen in der Beispieldatenbank wieder.<\/p>\n Der Code 39<\/b><\/p>\n Der Code 39 (drei aus neun) ist ein universeller Strichcode mit vielen Anwendungen in Industrie, Handel und sonstigen Bereichen (siehe Bild 2).<\/p>\n Er wurde 1974 entwickelt, um eine alphanumerische Erfassung mittels Barcode zu ermöglichen. Damit ist auch schon ein wesentliches Kennzeichen des Code 39 genannt: Der alphanumerische Zeichensatz, der auch die Codierung von Buchstaben, beispielsweise Namen ermöglicht. Somit ist der Code 39 sehr flexibel verwendbar.<\/p>\n <\/b><\/p>\n Bild 2: Der Code 39<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Der Code EAN13<\/span><\/b><\/p>\n Jedes Zeichen ist aus neun Elementen (fünf Striche und vier Lücken) aufgebaut, wobei von diesen neun Elementen drei breit und sechs schmal sind.<\/p>\n Dieser Aspekt ermöglicht die Selbstprüfung des Codes 39. Der Vorteil dieses Codes ist der große Zeichenvorrat. Nachteil ist die geringe Informationsdichte sowie die geringe Toleranz.<\/p>\n Der Zeichensatz umfasst die Ziffern 0-9 und die Großbuchstaben A-Z. Dazu kommen noch die Sonderzeichen Plus (+), Minus (-), Punkt (.), Leerzeichen ( ), Dollarzeichen ($), Schrägstrich (\/) und das Prozentzeichen (%).<\/p>\n Die Anzahl der darstellbaren Zeichen und damit die Breite des Barcodes ist nicht beschränkt.<\/p>\n Beim Code 39 ist die Verwendung einer Prüfziffer wahlfrei. Die Prüfziffer besteht aus einem oder aus mehreren Zeichen zur Fehlerberechnung. Die Prüfzifferberechnung erfolgt beim Code 39 nach Modulo 43.<\/p>\n Der Code EAN<\/b><\/p>\n Der EAN-Code zählt zu der Gruppe der so genannten Handelsstrichcodes, was schon auf seinen hauptsächlichen Verwendungszweck hinweist.<\/p>\n EAN steht für Europäische Artikel Nummerierung. Diese wurde ursprünglich als europaweit eindeutiges System zur Artikelnummerierung entworfen, hat sich aber mittlerweile zum weltweit einheitlichen Standard bei der Artikelnummerierung entwickelt.<\/p>\n Das Konzept des EAN-Systems sieht vor, dass dieselbe Artikelnummer im EAN-Nummerierungssystem weltweit eindeutig nur für ein Produkt eines einzigen Herstellers verwendet wird.<\/p>\n Beim EAN-Code wird zwischen einem dreizehnstelligen (EAN13) und einem achtstelligen Code (EAN8) unterschieden. Die Normalversion ist der dreizehnstellige Code (siehe Bild 3).<\/p>\n Der Code besteht aus jeweils zwei Hälften zu je sechs Zeichen sowie je einem Randzeichen und einer Trennlücke.<\/p>\n Alle EAN-Barcodes umfassen als Zeichensatz nur die Ziffern 0-9, sind also rein numerische Codes. Die Ziffernanzahl ist dabei fest vorgegeben:<\/p>\n Die Verwendung einer Prüfziffer ist für den EAN-Code vorgeschrieben. Sie wird in der Klartextbeschriftung angezeigt.Die Berechnung der Prüfziffer erfolgt beim EAN-Code nach Modulo 10.<\/p>\n Die ersten Ziffern des EAN-Nummernsystems geben ein Präfix an, das in der Regel ein Länder-Präfix ist. So kennzeichnen beispielsweise die Ziffern 400-440 Deutschland und 90-91 österreich.<\/p>\n Spezielle Präfixe erlauben die Verwendung von EAN-Barcodes auch für interne Nummerierungen wie beispielsweise ISBN-Nummern und andere. Dadurch bleibt der Einsatzbereich von EAN-Codes trotz der starken Schematisierung gleichwohl flexibel.<\/p>\n Innerhalb eines Landes vergibt eine landesspezifische Organisation Nummern, die jeweils einen Hersteller kennzeichnen. <\/p>\n <\/b><\/p>\n Bild 4: EAN13-Code ohne Unterlängen<\/span><\/b><\/p>\n In Deutschland ist dies die CCG (Centrale für Coorganisation). Der Hersteller kann dann innerhalb des vorgegebenen Nummernkreises seine eigenen Artikelnummern festsetzen.<\/p>\n Als erste Besonderheit ist bei EAN-Codes der Ausdruck der Klartextbeschriftung vorgeschrieben, die auch die Prüfziffer enthält (siehe Bild 4).<\/p>\n Dazu ist die Verwendung einer OCR-Schriftart erforderlich. Da aber OCR-Schriften nicht zum Lieferumfang von Windows gehören, werden in der Beispieldatenbank die Klartextbeschriftungen mit der Schriftart Courier New in der Schriftgröße 10 Punkt ausgedruckt.<\/p>\n Standardmäßig verfügen die EAN-Codes über so genannte Unterlängen, die die codierte Zeichenfolge in drei Segmente unterteilen (siehe Bild 3).<\/p>\n In der Beispieldatenbank besteht die Möglichkeit, den EAN-Code auch ohne Unterlängen auszudrucken.<\/p>\n Auf diese Einstellmöglichkeit in der Beispieldatenbank wird an der entsprechenden Stelle noch einmal besonders hingewiesen.<\/p>\n Nach diesen – zugegebenermaßen – doch recht theoretischen Hintergründen lernen Sie nun die Beispieldatenbank kennen, die Ihnen den Ausdruck von Barcodes erlaubt.<\/p>\n Sie finden die Datenbanken BarCode2000.mdb (Access 2000) und BarCode97.mdb (Access 97) auf der CD-ROM zu diesem Beitrag. <\/p>\n Diese Datenbanken erlauben Ihnen den Ausdruck der beiden Barcodetypen Code39 und EAN. Als Beispiele dazu dienen eine Personal- und eine Lagerverwaltung.<\/p>\n <\/b><\/p>\n Bild 5: Das Dialogfenster Beziehungen<\/span><\/b><\/p>\n Zum Ausdruck von Barcodes unter Windows ist eine spezielle, frei skalierbare TrueType-Schrift notwendig.<\/p>\n Kennzeichnend für eine Barcodeschrift ist, dass sie – gemäß der binären Vorlage – nur aus den zwei Zeichen Null (0) und Eins (1) besteht.<\/p>\n Damit Sie die Beispiele der Datenbank praktisch nachvollziehen können, ist der CD-ROM zu diesem Beitrag die TrueType-Schrift Barcode Universal beigefügt, die Sie zunächst auf Ihrem PC installieren müssen.<\/p>\n Dieser Font besteht nur aus drei Zeichen: Einer schwarzen Linie, einer etwas längeren schwarzen Linie und einer Lücke. Aus diesen drei Zeichen lassen sich alle gängigen Barcodes generieren.<\/p>\n Die kleine Personalverwaltung soll zum Bedrucken von Firmenausweisen mit Barcodes dienen. Mithilfe dieser Firmenausweise kann die grundsätzlich verschlossene Eingangstür geöffnet werden, indem der Firmenausweis durch ein entsprechendes Lesegerät gezogen wird.<\/p>\n <\/p>\n Denkbar wäre noch die Erweiterung, dass in einem Unternehmen mit hohen Sicherheitsanforderungen auch das Betreten bestimmter Abteilungen auf diese Art und Weise gesteuert wird. Am Prinzip der beschriebenen Vorgehensweise würde sich dadurch nichts ändern.<\/p>\n Im Barcode auf dem Firmenausweis sollen folgende Informationen verschlüsselt werden:<\/p>\n Aus diesen Anforderungen ergibt sich zwangsläufig, dass ein alphanumerischer Barcode gebraucht wird, der Code 39.<\/p>\n Bei diesem Beispiel sind verschiedene Hilfsfelder im Formular der Personalverwaltung zur Verdeutlichung der Funktionalität sichtbar geschaltet, die normalerweise in einer solchen Anwendung nicht unbedingt angezeigt werden müssten. <\/p>\n Das Datenmodell<\/b><\/p>\n Das Datenmodel der Personalverwaltung besteht lediglich aus den beiden Tabellen tblPersonal und tblAbteilung, die 1:n miteinander verknüpft sind (siehe Bild 5). <\/p>\n Das Formular frmPersonal<\/b><\/p>\n Im Formular frmPersonal sind zunächst einmal die notwendigen Felder zum Erfassen von Personaldaten vorhanden.<\/p>\n Daneben sind im Formular frmPersonal verschiedene ungebundene Textfelder vorhanden, die für die Erstellung bzw. Anzeige des Barcodes notwendig sind (siehe Bild 6). Ein Teil der dazu notwendigen Funktionalität befindet sich ebenfalls in diesem Formular. Die Einzelheiten dazu lernen Sie im nächsten Abschnitt dieses Beitrags kennen.<\/p>\n <\/b><\/p>\n Bild 6: Das Formular frmPersonal<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Die beiden Kombinationsfelder Abteilung und Anrede erlauben übrigens das Anlegen neuer Listeneinträge. Dies geschieht jeweils durch eine kleine Ereignisprozedur, die im Bei Nicht in Liste-Ereignis des betreffenden Kombinationsfeldes ausgeführt wird. In Quellcode 1 finden Sie die Prozedur für das Kombinationsfeld Abteilung.<\/p>\n Das Modul Code39<\/b><\/p>\n Im Modul Code39 der Beispieldatenbank sind die Funktionen enthalten, die den gewünschten String in einen Barcode vom Typ Code 39, also in eine Folge von Linien und Lücken umrechnen. Diese kann dann mit dem Barcode-Font ausgegeben werden.<\/p>\n Die gesamte Prozedur der Barcodeerstellung läuft in drei Schritten ab:<\/p>\n Barcode-Text zusammenstellen<\/b><\/p>\n Die Bestandteile des Textes für den Barcode sind aus der Aufgabenstellung vorgegeben: PersonalID, Vor- und Nachname und AbteilungID.<\/p>\n Deshalb bietet es sich an, diese Zusammenstellung aus den Inhalten der betreffenden Felder automatisch zu erzeugen.<\/p>\n Die Zusammenstellung erfolgt in dem ungebundenen Textfeld Eingabe. Dies ist an sich nichts Besonderes und könnte beispielsweise durch Einstellen der Datenherkunft für dieses Feld auf einen einfachen Ausdruck erfolgen:<\/p>\n <\/b><\/p>\n Bild 7: Berechneter Barcode im Formular<\/span><\/b><\/p>\n Da aber das Ausdrucken von Barcodes für Firmenausweise eine relativ einmalige Angelegenheit ist, ist die Lösung hier ein wenig verfeinert worden:<\/p>\n Die Zusammenstellung des Textes erfolgt durch einen Klick auf die Schaltfläche Eingabe Barcode-Text.<\/p>\n Die dabei ausgeführte Ereignisprozedur stellt die Datenherkunft für das Feld Eingabe auf den eben erwähnten Ausdruck ein (s. Abb. 7, Textfeld oben rechts).<\/p>\n Barcode berechnen<\/b><\/p>\n Ein Klick auf die Schaltfläche Barcode berechnen zeigt direkt im Formular das Ergebnis in drei ungebundenen Textfeldern an.<\/p>\n Die recht komplexe Verarbeitung zur Barcodeberechnung innerhalb verschiedener Funktionen kann an dieser Stelle nicht bis ins letzte Detail beschrieben werden. Sie können die genaue Verarbeitung jedoch leicht anhand des in diesem Abschnitt abgedruckten Quellcodes nachvollziehen. <\/p>\n Die Reihenfolge ergibt sich aus der Ereignisprozedur, die beim Klick auf die Schaltfläche Barcode berechnen ausgeführt wird und – von oben nach unten betrachtet – aus den drei nun gefüllten ungebundenen Textfeldern im Formular.<\/p>\n Die Ereignisprozedur, die durch die Schaltfläche ausgelöst wird, ruft zwei verschiedene Funktionen (Barcode_Code39() und BarcodeText_Code39()) aus dem Modul Code39 auf (s. Quellcode 2). <\/p>\n übergeben wird jeweils die zu codierende Zeichenfolge aus dem Feld Eingabe. Die Rückgabewerte der aufgerufenen Funktionen sind anschließend in den betreffenden Feldern zu sehen.<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Das Feld Barcode ist mit der TrueType-Schriftart Barcode Universal formatiert und zeigt deshalb den Rückgabewert der Funktion Barcode_Code39() als Code39-Barcode an (s. Abb. 7, zweites Feld auf der rechten Seite).<\/p>\n Dieser Rückgabewert ergibt sich folgendermaßen: Die Funktion Barcode_Code39() wandelt die Eingabe in einen String um und ruft mit die-sem String als übergabeparameter die Funktion bc_Code39_Berechnen() auf (s. Quellcode 3).<\/p>\n In der Funktion bc_Code39_Berechnen() wird Zeichen für Zeichen an die Funktion bc_Code39_Segement() übergeben (s. Quellcode 4).<\/p>\n Die Funktion bc_Code39_Segment() wandelt dann jedes übergebene Zeichen in den entsprechenden Binärwert um (s. Quellcode 5).<\/p>\n Der Zeichenvorrat bei dieser Umwandlung entspricht natürlich dem Zeichensatz, der dem Code39 definitionsgemäß zugeordnet ist. Alle anderen Zeichen werden wie eine leere Zeichenfolge behandelt.<\/p>\n Das Feld CodeText (s. Abb. 7, drittes Textfeld auf der rechten Seite) zeigt den Rückgabewert der Funktion BarcodeText_Code39() an, der letztlich eine in Großbuchstaben umgewandelte Zeichenfolge des Eingabetextes enthält.<\/p>\n Diese Funktion wird auch noch für den Ausdruck des Barcodes gebraucht.<\/p>\n Dieses Feld zeigt als Rückgabewert der Funktion Barcode_Code39() die binäre Zeichenfolge an (siehe Bild 8). Dafür ist die Formatierung dieses Feldes mit einer ganz „normalen“ Schriftart verantwortlich.<\/p>\n <\/b><\/p>\n Bild 8: Das Feld Code<\/span><\/b><\/p>\n Barcode drucken<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Ausgangspunkt für den Ausdruck des Barcodes ist die Schaltfläche Barcode drucken im Formular frmPersonal.<\/p>\n Außerdem ist zum Ausdruck noch das Formular Drucken_Code39 erforderlich, in dem der auszudruckende String mit der passenden TrueType-Schrift formatiert wird.<\/p>\n Der Ausdruck sollte möglichst auf einem hochauflösenden Laserdrucker mit mindestens 300 dpi – besser 600 dpi – erfolgen. <\/p>\n Die Funktionalität befindet sich in der Ereignisprozedur BtnDrucken_Click(), die in Quellcode 7 hier abgedruckt ist.<\/p>\n Zunächst einmal wird sichergestellt, dass bei einem leeren Eingabefeld der ganze Vorgang abgebrochen wird.<\/p>\n Anschließend werden die Werte aus dem Eingabefeld des Formulars frmPersonal an die entsprechenden Felder im Formular Drucken_Code39 (siehe Bild 9) übergeben.<\/p>\n Das Feld Barcode im Formular Drucken_Code39 ist mit der TrueType-Schriftart Barcode Universal formatiert und dient zum Ausdruck der Strichfolge. Hier kann auch die Größe des ausgedruckten Barcodes mit der Eigenschaft Schriftgrad festgelegt werden.<\/p>\n Das darunter liegende Feld CodeText1 druckt die codierte Zeichenfolge in der Schriftart Courier New 10 Punkt aus. Dabei wird die im letzten Abschnitt beschriebene Funktion BarcodeText_Code39() aufgerufen, die eine in Großbuchstaben umgewandelte Zeichenfolge des Eingabetextes zurückgibt (s. Quellcode 6).<\/p>\n Abschließend werden der Barcode und die codierte Zeichenfolge direkt zum Drucker geschickt und das Formular Drucken_Code39 wird geschlossen.<\/p>\n <\/b><\/p>\n Bild 9: Das Formular Drucken_Code39 in der Entwurfsansicht<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 10: Das Formular frmLager<\/span><\/b><\/p>\n Abschließende Verarbeitung<\/b><\/p>\n Nach dem Ausdruck eines Barcodes sind die Hilfsfelder im Formular frmPersonal weiterhin gefüllt (siehe Bild 10). <\/p>\n Das ist erstens überflüssig, denn schließlich ist der Ausdruck eines Mitarbeiterausweises eine relativ einmalige Angelegenheit. <\/p>\n Quellcode 8<\/b><\/p>\n Zweitens ist dies nicht sonderlich elegant, da vor allem beim Datensatzwechsel ein unschöner Effekt auftritt.<\/p>\n Also erfolgt direkt nach dem Ausdruck der Aufruf einer Ereignisprozedur, die alle Hilfsfelder im Formular mit einer leeren Zeichenfolge belegt (s. Quellcode 8).<\/p>\n Wichtig ist hierbei, dass beim Feld Eingabe ausdrücklich die Eigenschaft ControlSource mit einer leeren Zeichenfolge belegt wird.<\/p>\n Quellcode 9<\/b><\/p>\n Die kleine Lagerverwaltung soll als Beispiel für den Ausdruck der numerischen Barcodes EAN8 oder EAN13 dienen.<\/p>\n Die Eingabe der zu codierenden Zeichen erfolgt bei diesem Beispiel manuell. Weiterhin besteht die Möglichkeit, zwischen dem Ausdruck des Codes EAN8 oder EAN13 zu wählen.<\/p>\n Im Formular frmLager finden Sie alle Hilfsfelder zum Drucken von Barcodes wieder, die Sie bereits vom Formular frmPersonal her kennen.<\/p>\n Der gesamte Vorgang läuft ähnlich wie beim anderen Beispiel im Formular frmPersonal ab. Deswegen finden Sie in diesem Abschnitt auch nur Hinweise auf die wesentlichen Unterschiede.<\/p>\n Geben Sie in das Feld Barcode die gewünschten Zeichen ein. Beachten Sie dabei, nur Zahlenwerte und genau die erforderliche Anzahl von Zeichen zu verwenden:<\/p>\n Wählen Sie anschließend in der Optionsgruppe Typ den gewünschten Barcode-Typ aus.<\/p>\n Barcode berechnen<\/b><\/p>\n Ausgangspunkt für die Berechnung ist auch im Formular frmLager wieder ein Mausklick auf die Schaltfläche Barcode berechnen, der die Ereignisprozedur BtnBerechnen_Click aufruft.<\/p>\n Bei den Vorgaben für EAN-Codes (feste Anzahl numerischer Stellen) ist eine Eingabeüberprüfung geradezu zwingend notwendig. Dies leistet die Ereignisprozedur aus Quellcode 9.<\/p>\n Falls die Anzahl der Ziffern geringer als vorgeschrieben ist, bricht die Ereignisprozedur den Vorgang mit einer entsprechenden Fehlermeldung ab. Anderenfalls geht es mit der Prozedur bc_Berechnung weiter (s. Quellcode 10).<\/p>\n Wichtig ist in dieser Prozedur auch die Verwendung der Nz-Funktion. Dies gewährleistet nämlich in jedem Fall – auch bei einem Nullwert im Ausdruck – die Rückgabe einer leeren Zeichenfolge.<\/p>\n Quellcode 10<\/b><\/p>\n <\/b><\/p>\n Bild 11: Barcode im Formular<\/span><\/b><\/p>\n Die Prozedur bc_Berechnung ist im Prinzip ein Verteiler, der in Abhängigkeit vom ausgewählten Barcode-Typ die entsprechenden Funktionen aus dem Modul EAN aufruft.<\/p>\n Dabei erfolgt wieder die übergabe der Zeichenfolge aus dem Feld Eingabe und die Rückgabe der umgerechneten Codes an die Felder Code und CodeText im Formular frmLager.<\/p>\n Der Algorithmus zur Berechnung von EAN-Codes ist noch erheblich komplexer als der zur Berechnung des Code39. <\/p>\n Das hängt unter anderem auch mit der Unterteilung in Segmente und der Verwendung unterschiedlicher Zeichensätze beim EAN-Code zusammen. Auf eine Beschreibung wird daher an dieser Stelle verzichtet.<\/p>\n Den vollständigen Quellcode des Moduls EAN finden Sie in der Beispieldatenbank auf der Heft-CD. <\/p>\n Das Ergebnis der erfolgreichen Barcodeberechnung mit allen Komponenten ist in den entsprechenden Formularfeldern zu sehen (siehe Bild 11).<\/p>\n Quellcode 11<\/b><\/p>\n EAN-Codes drucken<\/b><\/p>\n Der Barcode-Ausdruck erfordert auch hier wieder für jeden Barcode-Typ ein Hilfsformular: Die Formulare Drucken_EAN13 und Drucken_EAN8 aus der Beispieldatenbank.<\/p>\n Ein Klick auf die Schaltfläche Barcode drucken ruft die Funktion bc_Drucken auf, die zunächst den Barcode-Typ übergibt (s. Quellcode 11).<\/p>\n Die Erzeugung der Strichfolge erfolgt genau wie beim Ausdruck des Code39.<\/p>\n Für den Ausdruck der codierten Zeichenfolge sind zwei (Code EAN8) bzw. drei (Code EAN13) weitere Textfelder erforderlich, die unter dem Barcodefeld angeordnet sind (siehe Bild 12).<\/p>\n Die Werte für diese Felder errechnen die beiden Textfunktionen BarcodeText_EAN8 bzw. BarcodeText_EAN13.<\/p>\n <\/b><\/p>\n Bild 12: Das Formular Drucken_EAN13 in der Entwurfsansicht<\/span><\/b><\/p>\n Textfunktionen bei EAN-Codes<\/b><\/p>\n Wie schon erwähnt, ist es bei EAN-Codes üblich, neben dem Barcode zusätzlich auch die codierte Zeichenfolge inklusive Prüfziffer als Text auszudrucken.<\/p>\n Diesem Zweck dienen die folgenden beiden Funktionen:<\/p>\n Beide Funktionen besitzen die Parameter lnp und Teil:<\/p>\n <\/b><\/p>\n Bild 13: Einstellung der Konstante Unterlängen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 14: Funktionsaufruf im Direktbereich<\/span><\/b><\/p>\n Dazu zunächst ein Beispiel für den EAN13-Code: Die Zeichenfolge 123456789012 wird als EAN13 codiert, die berechnete Prüfziffer ist 5. Der Funktionsaufruf <\/p>\n ermittelt den ersten Teil des Textes, also die 1.<\/p>\n Der Aufruf<\/p>\n ermittelt den zweiten Teil des Textes, also 234567.<\/p>\n Der letzte Aufruf <\/p>\n ermittelt den dritten Teil des Textes, also 890125.<\/p>\n Der dritte Teil enthält demnach die Prüfziffer 5.<\/p>\n Zum Ausdruck dieser drei Zeichenketten dienen dann die Felder CodeText1, CodeText2 und CodeText3 des Formulars Drucken_EAN13 (siehe Bild 15).<\/p>\n Wenn Sie für den Parameter Teil den Wert 0 einsetzen, gibt die Funktion den vollständigen Text inklusive der Prüfziffer zurück.<\/p>\n Der Aufruf<\/p>\n ermittelt demnach die folgende Zeichenkette: <\/p>\n Eine solche Zeichenkette ist übrigens im Feld CodeText des Formulars frmLager zu sehen (siehe Bild 11).<\/p>\n Beim EAN8-Code werden nur zwei Zeichenkettenteile unterschieden: die ersten vier und die letzten vier Ziffern (inklusive der Prüfziffer).<\/p>\n Bei der Funktion BarcodeText_EAN8() kann man daher für den Parameter Teil nur die Werte 0, 1 und 2 einsetzen.<\/p>\n Unterlängen – Ja oder Nein<\/b><\/p>\n Diese Einstellung nehmen Sie im Deklarationsbereich des Moduls EAN vor. Die Standardeinstellung der Konstanten Unterlängen ist True, d. h., die Unterlängen werden gedruckt.<\/p>\n Wenn Sie den Ausdruck von Unterlängen nicht wünschen, ändern Sie die Einstellung der Konstanten einfach in False.<\/p>\n Sie können die hier vorgestellten Funktionen zur Barcodeberechnung nicht nur aus Formularen heraus, sondern auch in beliebigen Ausdrücken verwenden.<\/p>\n Das folgende Beispiel zeigt den Aufruf der Funktion Barcode_Code39() aus einer VBA-Prozedur heraus:<\/p>\n Bild 14 zeigt das Ergebnis dieses Aufrufs im Direktbereich des Modulfensters an.<\/p>\n Im vorliegenden Beitrag haben Sie zwei Beispiele für wichtige Barcode-Arten kennen gelernt: den Code 39 als Beispiel für Non-interleaved-Barcodes und den EAN-Code als Beispiel für Interleaved-Barcodes.<\/p>\n Dazu finden Sie auf der Heft-CD direkt einsatzbereite Anwendungsbeispiele, die Sie sofort in bestehende Anwendungen integrieren können.<\/p>\n Eine interessante Erweiterung wäre der Einsatz einer Schnittstelle zwischen einer Datenbank und einem Barcode-Lesegerät zum Einlesen bereits gedruckter Barcodes.<\/p>\n Sie könnten so beispielsweise leicht die Kundennummer eines Kunden in Barcode-Form auf einer Rechnung unterbringen.<\/p>\n Falls Sie später Informationen zu dieser Rechnung benötigen, können Sie ohne Probleme den Barcode mit dem Lesegerät lesen und in der Datenbank direkt den gewünschten Kundendatensatz zu der Rechnung anzeigen.<\/p>\n Der umgekehrte Weg zu den im Beitrag beschriebenen – also vom gedruckten Barcode in die Datenbank – ist allerdings eher weniger ein Datenbankproblem. Hier benötigen Sie einfach nur ein entsprechendes Lesegerät.<\/p>\n Dabei gibt es hauptsächlich zwei Varianten: erstens solche Geräte, die Sie zwischen PC und Tastatur stecken, und zweitens solche, die an den seriellen Port gesteckt werden.<\/p>\n Die Geräte lesen den Barcode ein (zumeist auf Knopfdruck) und senden den entsprechenden Zahlenwert an den PC. Prinzipiell fungieren sie also genauso als Eingabegerät, wie die Tastatur <\/p>\n In den meisten Fällen müssen Sie lediglich darauf achten, dass sich die Eingabemarke an der richtigen Position im Formular befindet, und abschließend die Eingabe bestätigen. Es gibt allerdings auch Geräte, die dem Anwender auch diese Aufgaben abnehmen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n BarCodes97.mdb<\/p>\n BarCodes2000.mdb<\/p>\n BARCODE.TTF<\/p>\nNon-interleaved-Codes<\/h3>\n
Interleaved-Codes<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic003.png\")
<\/p>\nMerkmale<\/h3>\n
Zeichensatz<\/h3>\n
Prüfziffer bzw. -zeichen<\/h3>\n
Merkmale und Zeichensatz<\/h3>\n
Prüfziffer<\/h3>\n
Das EAN-Nummernsystem<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic004.png\")
<\/p>\nBesonderheit 1: Ausdruck derKlartextbeschriftung<\/h3>\n
Besonderheit 2: Unterlängen<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic005.png\")
<\/p>\nBarcodeschrift<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic006.png\")
<\/p>\nPrivate Sub CboAbteilungID_NotInList(NewData As _ String, Response As Integer)\r\n On Error GoTo Err_CboAbteilung_NotInList\r\n Response = acDataErrAdded\r\n Dim db As DAO.Database\r\n Dim rs As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rs = db.OpenRecordset(\"tblAbteilung\", _ DB_OPEN_DYNASET)\r\n rs.AddNew\r\n rs!txtAbteilung = NewData\r\n rs.Update\r\n rs.Close\r\n Set rs = Nothing\r\n Set db = Nothing\r\nExit_CboAbteilung_NotInList:\r\n Exit Sub\r\nErr_CboAbteilung_NotInList:\r\n MsgBox Error$\r\n Resume Exit_CboAbteilung_NotInList\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic007.png\")
<\/p>\n=[PersonalID] & \" \" & [txtVorname] _ & \" \" & [txtNachname] & \" \" & _ [AbteilungID]<\/pre>\n
Hinweis<\/h3>\n
Die Ereignisprozedur<\/h3>\n
Private Sub BtnBerechnen_Click()\r\n Dim f As Form\r\n Set f = Me\r\n If IsNull(f![Eingabe]) Then Exit Sub\r\n f![Barcode] = Barcode_Code39(f![Eingabe])\r\n f![Code] = Barcode_Code39(f![Eingabe])\r\n f![CodeText] = BarcodeText_Code39(f![Eingabe])\r\nEnd Sub<\/pre>\n
Function Barcode_Code39(Inp As Variant) As String\r\n On Error GoTo Barcode_Code39_Err\r\n If IsNull(Inp) Or Len(Inp) = 0 Then Exit Function\r\n Dim Text As String\r\n Text = Trim$(Inp)\r\n Barcode_Code39 = bc_Code39_Berechnen(Text)\r\n Exit Function\r\nBarcode_Code39_Err:\r\n MsgBox (\"Barcode-Berechnungsfehler!\")\r\n Exit Function\r\nEnd Function<\/pre>\n
Function bc_Code39_Berechnen(Text As String) As String\r\n On Error Resume Next\r\n Dim Code As String\r\n Dim i As Integer\r\n Dim Segment As String\r\n Code = bc_Code39_Segment(\"Rand\")\r\n For i = 1 To Len(Text)\r\n Segment = bc_Code39_Segment(Mid$(Text, i, 1))\r\n If Segment <> \"\" Then \r\n Code = Code & \"0\" & Segment\r\n End If\r\n Next i\r\n Code = Code & \"0\" & bc_Code39_Segment(\"Rand\")\r\n bc_Code39_Berechnen = Code\r\nEnd Function<\/pre>\n
Das Feld Barcode<\/h3>\n
Das Feld CodeText<\/h3>\n
Das Feld Code<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic008.png\")
<\/p>\nFunction bc_Code39_Segment(Z As String) As String\r\n On Error Resume Next\r\n Z = UCase$(Z)\r\n Select Case Z\r\n Case \"0\": bc_Code39_Segment = \"101001101101\"\r\n Case \"1\": bc_Code39_Segment = \"110100101011\"\r\n ...\r\n Case \"Rand\": bc_Code39_Segment = \"100101101101\"\r\n Case Else: bc_Code39_Segment = \"\"\r\n End Select\r\nEnd Function<\/pre>\n
Function BarcodeText_Code39(Text As Variant) As String\r\n On Error Resume Next\r\n If IsNull(Text) Or Len(Text) = 0 Then Exit Function\r\n BarcodeText_Code39 = UCase(Text)\r\nEnd Function<\/pre>\n
Private Sub BtnDrucken_Click()\r\n Dim Eingabe As Variant\r\n Eingabe = Me![Eingabe]\r\n If IsNull(Eingabe) Then Exit Sub\r\n DoCmd.OpenForm \"Drucken_Code39\"\r\n Forms![Drucken_Code39]![Barcode] = _ Forms![frmPersonal]![Barcode]\r\n Forms![Drucken_Code39]![CodeText1] = _ BarcodeText_Code39(Eingabe)\r\n DoCmd.PrintOut\r\n DoCmd.Close A_FORM, \"Drucken_Code39\"\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic010.png\")
<\/p>\nPrivate Sub FelderLeeren()\r\nOn Error GoTo Err_FelderLeeren\r\n Me!Eingabe.ControlSource = \"\"\r\n Me!Barcode = \"\"\r\n Me!CodeText = \"\"\r\n Me!Code = \"\"\r\nExit_FelderLeeren:\r\n Exit Sub\r\nErr_FelderLeeren:\r\n MsgBox Error$\r\n Resume Exit_FelderLeeren\r\nEnd Sub<\/pre>\n
Private Sub BtnBerechnen_Click()\r\n If Me!Typ = 1 Then\r\n If Nz(Me!Eingabe) <> \"000000000000\" And _ Len(CStr(Val(Nz(Me!Eingabe)))) <> 12 Then\r\n MsgBox \"Der EAN-13-Code muss aus 12 \" _ & \"Ziffern bestehen!\"\r\n Exit Sub\r\n End If\r\n End If\r\n If Me!Typ = 2 Then\r\n If Nz(Me!Eingabe) <> \"0000000\" And _ Len(CStr(Val(Nz(Me!Eingabe)))) <> 7 Then\r\n MsgBox \"Der EAN-8-Code muss aus 7 \" _ & \" Ziffern bestehen!\"\r\n Exit Sub\r\n End If\r\n End If\r\n bc_Berechnung\r\nEnd Sub<\/pre>\n
Das Formular frmLager<\/h3>\n
Eingabeüberprüfung<\/h3>\n
Sub bc_Berechnung()\r\n Dim f As Form\r\n Set f = Me\r\n Select Case f![Typ]\r\n Case 1\r\n f![Barcode] = Barcode_EAN13(f![Eingabe])\r\n f![Code] = Barcode_EAN13(f![Eingabe])\r\n f![CodeText] = BarcodeText_EAN13(f![Eingabe], 0)\r\n Case 2\r\n f![Barcode] = Barcode_EAN8(f![Eingabe])\r\n f![Code] = Barcode_EAN8(f![Eingabe])\r\n f![CodeText] = BarcodeText_EAN8(f![Eingabe], 0)\r\n End Select\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic011.png\")
<\/p>\nBerechnung<\/h3>\n
Hinweis<\/h3>\n
Das Ergebnis<\/h3>\n
Function bc_Drucken(CodeTyp As Integer)\r\n Dim Eingabe As Variant\r\n Eingabe = Me![Eingabe]\r\n If IsNull(Eingabe) Then Exit Function\r\n Select Case CodeTyp\r\n Case 1: ''EAN13\r\n DoCmd.OpenForm \"Drucken_EAN13\"\r\n Forms![Drucken_EAN13]![Barcode] = Forms![frmLager]![Barcode]\r\n Forms![Drucken_EAN13]![CodeText1] = BarcodeText_EAN13(Eingabe, 1)\r\n Forms![Drucken_EAN13]![CodeText2] = BarcodeText_EAN13(Eingabe, 2)\r\n Forms![Drucken_EAN13]![CodeText3] = BarcodeText_EAN13(Eingabe, 3)\r\n DoCmd.PrintOut\r\n DoCmd.Close A_FORM, \"Drucken_EAN13\"\r\n Case 2: ''EAN8\r\n DoCmd.OpenForm \"Drucken_EAN8\"\r\n Forms![Drucken_EAN8]![Barcode] = Forms![frmLager]![Barcode]\r\n Forms![Drucken_EAN8]![CodeText1] = BarcodeText_EAN8(Eingabe, 1)\r\n Forms![Drucken_EAN8]![CodeText2] = BarcodeText_EAN8(Eingabe, 2)\r\n DoCmd.PrintOut\r\n DoCmd.Close A_FORM, \"Drucken_EAN8\"\r\n End Select\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic012.png\")
<\/p>\nBarcodeText_EAN13(Inp As Variant, _ Teil As Integer)\r\nBarcodeText_EAN8(Inp As Variant, _ Teil As Integer)<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic013.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C07429CE-A4B6-4C1E-BD40-D7D268E3BEFF}\/pic014.png\")
<\/p>\nBarcodeText_EAN13(\"123456789012\", 1)<\/pre>\n
BarcodeText_EAN13(\"123456789012\", 2)<\/pre>\n
BarcodeText_EAN13(\"123456789012\", 3)<\/pre>\n
BarcodeText_EAN13(\"123456789012\", 0)<\/pre>\n
1234567890125<\/pre>\n
Function Berechnung()\r\n Berechnung = _ Barcode_Code39 _ (\"24 Maria Marconi 11\")\r\nEnd Function<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n