C'est une solution intelligente et simple d'utiliser la DLL MaxiCode de Barcodesoft et la police True Type pour générer un MaxiCode dans Microsoft® Access®.

1. Copiez toutes les polices True Type (*.ttf) du dossier des polices vers votre dossier c:\Windows\Fonts.


2. Ouvrez l'invite DOS. Si vous utilisez Windows, veuillez ouvrir l'invite DOS en tant qu'administrateur.
Veuillez aller dans le dossier suivant
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Tapez la commande DOS suivante pour enregistrer crUFLbcs.dll
regsvr32 crUFLbcs.dll


Si l'enregistrement échoue, veuillez utiliser la commande DOS suivante pour l'enregistrer.
Regtlibv12 est un utilitaire du framework Windows .NET 2.0.
Regtlibv12 _cruflbcs.tlb

3. Démarrez Microsoft® Access® et modifiez le niveau de sécurité
Si vous utilisez Access 2010 ou une version ultérieure, veuillez cliquer sur le bouton Microsoft Office
Cliquez ensuite sur “Options Access”, une boîte de dialogue s'affichera. Choisissez “Centre de gestion de la confidentialité”, cliquez sur “Paramètres du centre de gestion de la confidentialité”. Réglez les paramètres des macros sur “Activer toutes les macros” comme indiqué ci-dessous.


4. Appuyez sur Alt+F11 dans Access pour ouvrir l'éditeur Microsoft® Visual Basic.


5. Depuis l'éditeur Visual Basic, choisissez le menu Tools ===> References. Une boîte de dialogue s'affichera. Cliquez sur le bouton Browse et choisissez cruflbcs.dll dans votre dossier de travail.
Habituellement, il se trouve sous le dossier C:\Program File\CommonFiles\Barcodesoft\Fontutil.
Cochez la case à côté de crUFLBcs 1.0 Type Library comme indiqué ci-dessous. Cliquez ensuite sur le bouton OK.




6. Depuis Visual Basic, appuyez sur Ctrl + M, une boîte de dialogue s'affichera. Choisissez barcodesoft.bas sous
le dossier C:\Program File\CommonFiles\Barcodesoft\Fontutil. Cliquez ensuite sur "Open".
Veuillez noter que le fichier barcodesoft.bas ne doit être chargé qu'une seule fois !
Si vous le chargez plusieurs fois, les noms des fonctions entreront en conflit.



Si la fonction Maxicode a l'air différente des codes ci-dessous,
veuillez copier et coller l'extrait de code suivant pour le remplacer dans le module barcodesoft.
Vous voudrez peut-être aussi changer le mode d'encodage comme indiqué ci-dessous. La valeur du mode est valide entre 2 et 6.

Public Function MaxiCode(strToEncode As String) As String
Dim obj As cruflBCS.CMaxiCode
Set obj = New cruflBCS.CMaxiCode
MaxiCode = obj.EncodeCR(strToEncode, 0, 4) ;//Le 3e paramètre est le Mode (2-6)
Set obj = Nothing
End Function



7. Fermez Visual Basic et retournez à votre base de données Access. Maintenant, créez un rapport en mode Création et tapez la macro suivante dans le champ où vous souhaitez afficher le code-barres Maxicode
=maxicode([data.code])
Veuillez noter que 'data' est le nom de la table, 'code' est le nom du champ. Veuillez les remplacer par votre propre nom de table et votre nom de champ.


8. Faites un clic droit sur le champ que vous souhaitez afficher en tant que code-barres Maxicode. Choisissez Propriétés dans le menu contextuel. Appliquez la police “BcsMaxicode” au champ comme nom de police.

Microsoft et le logo Office sont des marques de commerce ou des marques déposées de Microsoft Corporation aux États-Unis et/ou dans d'autres pays.