Generieren Sie UPCA barcode in MS Access-Datenbanks

Generieren Sie UPCA barcode in MS Access-Datenbank

Mit Barcodesoft UPCA barcode-Software können UPCA einfach in Microsoft® Access® gedruckt werden.

1. Installieren Sie UPCA Demo auf Ihrem Computer.

2. Öffnen Sie die DOS-Eingabeaufforderung als Administrator. Geben Sie die folgenden Befehle ein

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

UPCA barcode Access DLL Registrierung

3. Starten Microsoft® Access®.

Wenn Sie Access 2000 oder 2003 verwenden, klicken Sie auf das Menü ===> Tools ==> Macro ===> Security. Wählen Sie die Sicherheitsstufe Niedrig.
UPCA barcode Access Makro Sicherheit

Wenn Sie Access 2007/2010/2013/2016/2019 verwenden, klicken Sie auf die Microsoft Office-Schaltfläche.
Office 2010 button Office 2016 button Office 2019 button
Klicken Sie auf Optionen ==> Vertrauensstellungscenter ==> Makroeinstellungen und wählen Sie "Alle Makros aktivieren".

UPCA barcode Access Macro Rahmen

4. Drücken Sie ALT + F11, um den Microsoft® Visual Basic-Editor zu öffnen.
UPCA barcode Access VBA

5. Wählen Sie im Visual Basic-Editor das Menü Extras ===> Verweise. Es öffnet sich ein Dialog. Klicken Sie auf die Schaltfläche Durchsuchen, und wählen Sie aus dem 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil' -Ordner die Datei cruflbcs.dll aus.
Wählen Sie crUFLBcs 4.0. Klicken Sie dann auf die Schaltfläche OK.

UPCA barcode füge Referenz

6. Drücken Sie Strg + M, um ein Dialogfeld zu öffnen. Wählen Sie barcodesoft.bas im Ordner 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'. Klicken Sie dann auf "Öffnen".

UPCA barcode import vba

Sie können aus dem folgenden Codeausschnitt kopieren.

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

7. Schließen Sie Visual Basic und kehren Sie zu Ihrer Access-Datenbank zurück. Erstellen Sie ein Textfeld in der Entwurfsansicht und geben Sie das folgende Makro in die Steuerelementquelle ein:
=UPCA([data.code])

Beachten Sie, dass 'Daten' der Tabellenname ist, 'Code' der Feldname.

UPCA barcode barcode access macro

8. Klicken Sie mit der rechten Maustaste auf das Textfeld. Wählen Sie Eigenschaften aus dem Kontextmenü. Übernehmen Sie UpcEanM als Schriftart.

UPCA barcode access schriftart typeface

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