Guide des codes-barres Code 128 et GS1-128 pour Microsoft Access

Enregistrer la DLL d'encodage

Ouvrez l'invite de commandes DOS (Exécuter en tant qu'administrateur sous Windows Vista/7/10/11) et accédez au dossier de l'utilitaire :

Si l'enregistrement échoue, utilisez l'utilitaire .NET Framework : Regtlibv12 _cruflbcs.tlb

Configurer la sécurité des macros dans Access

Assurez-vous que les macros sont activées pour que les fonctions de code-barres puissent s'exécuter. Dans Access 2007+, allez dans les Paramètres du Centre de gestion de la confidentialité et réglez les Paramètres des macros sur "Activer toutes les macros".

Ajouter les références DLL dans VBA

Appuyez sur Alt+F11 pour ouvrir l'éditeur Visual Basic. Allez dans Outils > Références, cliquez sur Parcourir et sélectionnez cruflbcs.dll dans le dossier FontUtil.

Importer le module VBA

Appuyez sur Ctrl+M et importez barcodesoft.bas. Assurez-vous que votre module contient la logique de fonction suivante :

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

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