Code 39 Barcodes in MS Access generieren

Professionelle Barcode-Lösungen für Windows-Desktop-Drucker.

Code 39 ist eine der weltweit am häufigsten verwendeten Barcode-Symbologien. Die Implementierung ist denkbar einfach: Setzen Sie einfach Sternchen vor und nach Ihre Daten (z. B. *DATEN*) und wenden Sie die Barcodesoft-Schriftart an. Durch die Kombination des Barcodesoft Code 39 Pakets mit Microsoft® Access® können Sie professionelle Barcodes effizient direkt von Ihrem Desktop aus drucken.

1 Barcode-Schriftarten installieren

Kopieren Sie alle TrueType-Schriftarten (*.ttf) aus Ihrem Paketordner in das Verzeichnis C:\Windows\Fonts.

2 DLL-Komponenten registrieren

Öffnen Sie die DOS-Eingabeaufforderung. Wenn Sie Windows Vista, 7, 10 oder 11 verwenden, führen Sie diese bitte als Administrator aus.

CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll

Registrierung fehlgeschlagen? Verwenden Sie das .NET Framework Dienstprogramm: Regtlibv12 _cruflbcs.tlb

3 Access-Sicherheit konfigurieren

Stellen Sie sicher, dass Makros aktiviert sind, damit der Barcode-Generator funktionieren kann:

Access 2000/2003: Extras > Sicherheit > Auf "Alle Makros aktivieren" setzen.
Access 2007+: Klicken Sie auf die Microsoft Office-Schaltfläche > Access-Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen > "Alle Makros aktivieren".

4 VBA-Editor öffnen

Drücken Sie Alt+F11, um den Visual Basic-Editor zu starten.

5 DLL referenzieren

Gehen Sie zu Extras > Verweise. Klicken Sie auf "Durchsuchen" und suchen Sie die cruflbcs.dll (normalerweise im FontUtil-Ordner aus Schritt 2). Aktivieren Sie crUFLBcs 1.0 Type Library und klicken Sie auf OK.

6 Barcode-Modul importieren

Drücken Sie Strg+M und wählen Sie barcodesoft.bas aus Ihrem Installationsordner aus.

Code-Snippet für die Code 39 Generierung:

Public Function Code39(strToEncode As String) As String
    Dim obj As cruflBCS.CLinear
    Set obj = New cruflBCS.CLinear
    Code39 = obj.Code39(strToEncode)
    Set obj = Nothing
End Function

Public Function Code39Check(strToEncode As String) As String
    Dim obj As cruflBCS.CLinear
    Set obj = New cruflBCS.CLinear
    Code39Check = obj.Code39Check(strToEncode)
    Set obj = Nothing
End Function

Public Function USSCode39(strToEncode As String) As String
    Dim obj As cruflBCS.CLinear
    Set obj = New cruflBCS.CLinear
    USSCode39 = obj.USSCode39(strToEncode)
    Set obj = Nothing
End Function

7 Access-Bericht erstellen

Setzen Sie in der Entwurfsansicht des Berichts den Steuerelementinhalt des Feldes auf eines der folgenden Makros:

=code39([TabellenName.FeldName])
=code39Check([TabellenName.FeldName])
=USSCode39([TabellenName.FeldName])

8 Letzter Schritt: Schriftart zuweisen

Rechtsklick auf das Feld > Eigenschaften. Stellen Sie unter der Registerkarte Format den Schriftartnamen auf Code39mHr oder Ihre bevorzugte Barcodesoft-Schriftart ein.