• GS1-Databar barcode excel download
  • GS1-Databar barcode excel order

Generate GS1-Databar Barcode in Microsoft® Access®

It is a smart and simple solution to use Barcodesoft GS1-Databar DLL and true type font to generate GS1 DatabarBarcode in Microsoft® Access®.

1. Install GS1-Databar demo on your computer.

2. Open DOS prompt. If you are using Windows Vista or Windows 7, please Open DOS prompt as administrator.

Please go to the following folder
CD C:\Program Files\Common Files\Barcodesoft\FontUtil
Type in the following DOS command to register crUFLbcs.dll
regsvr32 crUFLbcs.dll

GS1-Databar barcode excel DLL DOS registration

3. Start Microsoft® Access® first.

If you are using Access 2000 or 2003, click menu ===> Tools ==> Macro ===> Security. Choose Low security level.
GS1-Databar Access Macro Security

If you are using Access 2007 / 2010 / 2013 / 2016 / 2019, click the Microsoft Office Button.
Office 2010 button Office 2016 button Office 2019 button
Then click Access Options, choose Trust Center. In the Macro Settings category, under Macro Settings, choose "Enable all macros" as shown below.

GS1-Databar Access Macro Setting

4. Press ALT + F11 to open Microsoft® Visual Basic editor.
GS1-Databar Access VBA

5. From Visual Basic editor, choose menu Tools ===> References. It will popup a dialog. Click Browse button and choose cruflbcs.dll from your working folder.
Usually it's under C:\Program File\CommonFiles\Barcodesoft\Fontutil folder.
Click the checkbox beside crUFLBcs 4.0 Type Library as shown below. Then click OK button.

GS1-Databar add reference

6. Press Ctrl+M, it will popup a dialog, choose barcodesoft.bas under C:\Program File\CommonFiles\Barcodesoft\Fontutil folder. Then click "Open".

If you don't find barcodesoft.bas, please download it from GS1-Databar.
GS1-Databar import vba

Or you can copy and paste from code snippet below

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

Public Function DatabarStk(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarStk = obj.DatabarStack(strToEncode)
Set obj = Nothing
End Function

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

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

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

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

7. Close Visual Basic and go back to your Access database. Now, create a report in Design view and type in one of the following macros in the field where you want to show GS1-Databar barcode before apply font typeface:
=databar14([data.code])
=databarstk([data.code])
=databarstkomni([data.code])
=databarltd([data.code])
=databarexp([data.code])
=databarexpstk([data.code])

Please notice that 'data' is the Table name, 'code' is the Field name.

8. Right click the field you want to display GS1-Databar barcode. Choose Properties from context menu. Apply one of the appropriate font typefaces to the field, such as BcsDatabarM.

gs1 databar access apply font typeface

Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.

  • GS1-Databar barcode download
  • GS1-Databar barcode software order