Es una solución inteligente y sencilla utilizar la DLL de GS1-Databar de Barcodesoft y una fuente TrueType para generar un código de barras GS1 Databar en Microsoft® Access®.

1. Copie todas las fuentes TrueType (*.ttf) de la carpeta fonts a su carpeta c:\Windows\Fonts.

2. Abra el símbolo del sistema de DOS. Si utiliza Windows, abra el símbolo del sistema de DOS como administrador.
Vaya a la siguiente carpeta
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Escriba el siguiente comando de DOS para registrar crUFLbcs.dll
regsvr32 crUFLbcs.dll


Si el registro falla, utilice el siguiente comando de DOS para registrarlo.
Regtlibv12 es una utilidad de Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Inicie Microsoft® Access® y cambie el nivel de seguridad
Si usa Access 2010 o posterior, haga clic en el botón de Microsoft Office
Luego haga clic en “Opciones de Access”, aparecerá un cuadro de diálogo. Elija “Centro de confianza”, haga clic en “Configuración del Centro de confianza”. Establezca la configuración de macros en “Habilitar todas las macros” como se muestra a continuación.



4. Presione Alt+F11 en Access para abrir el editor de Microsoft® Visual Basic.



5. Desde el editor de Visual Basic, elija el menú Herramientas ===> Referencias. Aparecerá un cuadro de diálogo. Haga clic en el botón Examinar y elija cruflbcs.dll de su carpeta de trabajo.
Normalmente está debajo de la carpeta C:\Program Files\CommonFiles\Barcodesoft\Fontutil.
Haga clic en la casilla de verificación junto a crUFLBcs 1.0 Type Library como se muestra a continuación. Luego haga clic en el botón OK.




6. Desde Visual Basic, presione Ctrl + M, aparecerá un cuadro de diálogo. Elija barcodesoft.bas bajo
la carpeta C:\Program Files\CommonFiles\Barcodesoft\Fontutil. Luego haga clic en "Abrir".




Si las funciones de GS1 Databar se ven diferentes de los códigos a continuación,
copie y pegue el siguiente fragmento de código para reemplazarlo en el módulo de barcodesoft.

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. Cierre Visual Basic y regrese a su base de datos de Access. Ahora, cree un informe en Vista Diseño y escriba una de las siguientes macros en el campo donde desea mostrar el código de barras GS1 databar
=databar14([data.code])
=databarstk([data.code])
=databarstkomni([data.code])
=databarltd([data.code])
=databarexp([data.code])
=databarexpstk([data.code])
Tenga en cuenta que 'data' es el Nombre de la Tabla, 'code' es el Nombre del Campo.
Reemplácelos con su propio Nombre de Tabla y Nombre de Campo.


8. Haga clic derecho en el campo donde desea mostrar el código de barras GS1 Databar. Elija Propiedades en el menú contextual. Aplique uno de los tipos de letra adecuados al campo como nombre de fuente, como BcsDatabarM.

Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y/u otros países.