Es ist eine clevere und einfache Lösung, die Barcodesoft MaxiCode-DLL und TrueType-Schriftart zu verwenden, um MaxiCode-Barcodes in Microsoft® Access® zu generieren.

1. Kopieren Sie alle TrueType-Schriftarten (*.ttf) aus dem Fonts-Ordner in Ihren Ordner c:\Windows\Fonts.


2. Öffnen Sie die DOS-Eingabeaufforderung. Wenn Sie Windows verwenden, öffnen Sie die DOS-Eingabeaufforderung bitte als Administrator.
Wechseln Sie in den folgenden Ordner:
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Geben Sie den folgenden DOS-Befehl ein, um crUFLbcs.dll zu registrieren:
regsvr32 crUFLbcs.dll


Falls die Registrierung fehlschlägt, verwenden Sie bitte den folgenden DOS-Befehl zur Registrierung.
Regtlibv12 ist ein Dienstprogramm des Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Starten Sie Microsoft® Access® und ändern Sie die Sicherheitsstufe.
Wenn Sie Access 2010 oder höher verwenden, klicken Sie bitte auf die Microsoft Office-Schaltfläche
Klicken Sie dann auf „Access-Optionen“, woraufhin sich ein Dialogfeld öffnet. Wählen Sie „Trust Center“, klicken Sie auf „Einstellungen für das Trust Center“. Stellen Sie die Makroeinstellungen auf „Alle Makros aktivieren“, wie unten gezeigt.


4. Drücken Sie in Access Alt+F11, um den Microsoft® Visual Basic-Editor zu öffnen.


5. Wählen Sie im Visual Basic-Editor das Menü Extras ===> Verweise. Es öffnet sich ein Dialogfeld. Klicken Sie auf die Schaltfläche Durchsuchen und wählen Sie crUFLbcs.dll aus Ihrem Arbeitsverzeichnis.
Normalerweise befindet sie sich im Ordner C:\Programme\Gemeinsame Dateien\Barcodesoft\Fontutil.
Aktivieren Sie das Kontrollkästchen neben crUFLBcs 1.0 Type Library, wie unten gezeigt. Klicken Sie dann auf die Schaltfläche OK.




6. Drücken Sie in Visual Basic Strg + M, woraufhin sich ein Dialogfeld öffnet. Wählen Sie barcodesoft.bas unter
C:\Programme\Gemeinsame Dateien\Barcodesoft\Fontutil Ordner. Klicken Sie dann auf „Öffnen“.
Bitte beachten Sie, dass die Datei barcodesoft.bas nur ein einziges Mal geladen werden darf!
Wenn Sie sie mehrfach laden, kommt es zu Konflikten bei den Funktionsnamen.



Falls die MaxiCode-Funktion von den unten stehenden Codes abweicht,
kopieren Sie bitte den folgenden Code-Schnipsel, um ihn im Barcodesoft-Modul zu ersetzen.
Möglicherweise möchten Sie auch den Kodierungsmodus wie unten beschrieben ändern. Der Moduswert ist zwischen 2 und 6 gültig.

Public Function MaxiCode(strToEncode As String) As String
Dim obj As cruflBCS.CMaxiCode
Set obj = New cruflBCS.CMaxiCode
MaxiCode = obj.EncodeCR(strToEncode, 0, 4) ;//Der 3. Parameter ist der Modus (2-6)
Set obj = Nothing
End Function



7. Schließen Sie Visual Basic und kehren Sie zu Ihrer Access-Datenbank zurück. Erstellen Sie nun einen Bericht in der Entwurfsansicht und geben Sie das folgende Makro in das Feld ein, in dem Sie den MaxiCode-Barcode anzeigen möchten:
=maxicode([data.code])
Bitte beachten Sie, dass 'data' der Tabellenname und 'code' der Feldname ist. Bitte ersetzen Sie diese durch Ihren eigenen Tabellennamen und Feldnamen.


8. Klicken Sie mit der rechten Maustaste auf das Feld, in dem Sie den MaxiCode-Barcode anzeigen möchten. Wählen Sie Eigenschaften aus dem Kontextmenü. Weisen Sie dem Feld die Schriftart „BcsMaxicode“ als Schriftartnamen zu.

Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den Vereinigten Staaten und/oder anderen Ländern.