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. Copy all true type fonts (*.ttf) under fonts folder to your c:\Windows\Fonts folder.

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 (x86)\Common Files\Barcodesoft\FontUtil
Type in the following DOS command to register crUFLbcs.dll
regsvr32 crUFLbcs.dll


If registration fails, please use the following DOS command to register it.
Regtlibv12 is a utility of Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Start Microsoft® Access® and change security level
If you use Access 2000 or Access 2003, please click menu Tools ==> Security ==> User Level Security Wizard. Set security level to “Enable All Macros”.
If you use Access 2007, please click Microsoft Office Button
Then click “Access Options”, it will popup a dialog. Choose “Trust Center”, click “Trust Center Settings”. Set macro settings to “Enable all macros” as shown below.



4. Press Alt+F11 in Access to open Microsoft® Visual Basic editor.



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 1.0 Type Library as shown below. Then click OK button.




6. From Visual Basic, press Ctrl + M, it will pop up a dialog. Choose barcodesoft.bas under
C:\Program File\CommonFiles\Barcodesoft\Fontutil folder. Then click "Open".




If GS1 Databar functions look different from the codes below,
please copy and paste the following code snippet to replace it in barcodesoft module.

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
=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.
Please replace them with your own Table Name and 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 as font name, such as BcsDatabarM.

Die Schilder von Microsoft und das Office sind Warenzeichen oder eingeschriebene Warenzeichen der Microsoft Firma in den USA und/oder anderen Ländern.