GS1-Databar código de barras

Generar gs1-databar código de barras en la base de datos de MS Access

Con el software Barcodesoft gs1-databar código de barras, es fácil generar gs1-databar código de barras en MS Access.

1. Instale la demo de gs1-databar código de barras en su computadora.

2. Abra el indicador de DOS como administrador. Escriba los siguientes comandos:
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll



3. Iniciar Microsoft® Access®.

Si está utilizando Access 2000 o 2003, haga clic en el menú ===> Herramientas ==> Macro ===> Seguridad. Elija bajo nivel de seguridad.


Si está utilizando Access 2007/2010/2013/2016/2019, haga clic en el botón Microsoft Office.

Haga clic en Opciones ==> Centro de confianza ==> Configuración de macros, elija "Habilitar todas las macros" como se muestra a continuación.



4. Presione ALT + F11 para abrir el editor de Microsoft® Visual Basic.


5. Desde el editor de Visual Basic, elija el menú Herramientas ===> Referencias. Se abrirá un diálogo. Haga clic en el botón Examinar y elija cruflbcs.dll en la carpeta C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil folder.
Haga clic en crUFLBcs 4.0. Luego haga clic en el botón Aceptar.



6. Presione Ctrl + M, se abrirá un cuadro de diálogo, elija barcodesoft.bas en la carpeta 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'. Luego haga clic en "Abrir".



También puede copiar desde el fragmento de código a continuación

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 vuelva a su base de datos de Access. Crear un cuadro de texto. Copia la siguiente macro en su fuente de control.:
=Databar([data.code])

Tenga en cuenta que 'datos' es el nombre de la tabla, 'código' es el nombre del campo.



8. Haga clic derecho en el cuadro de texto. Elija Propiedades del menú contextual. Aplicar BcsDatabarM como fuente.



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