Générer code à barres QRCode dans MS-Access

Générer des qrcode dans base de données MS Access

Avec le logiciel Barcodesoft QRCode, il est simple de générer des qrcode dans la base de données MS Access.

1. Installer la démo qrcode sur votre ordinateur.

2. Faites un clic droit sur l'invite de commande et exécutez l'invite de commande en tant qu'administrateur.
QR code invite commande administrateur

Tapez les commandes suivantes pour enregistrer cruflbcs.dll
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil" regsvr32.exe cruflbcs.dll enregistrer cruflbcs.dll QR code

Pour enregistrer une DLL 64 bits, veuillez saisir les commandes suivantes
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil" %systemroot%\System32\regsvr32.exe cruflbcs_x64.dll

Si vous voyez la fenêtre pop-up suivante, votre inscription a réussi.
register cruflbcs.dll succeeded

3. Démarrer Microsoft® Access®.

Si vous utilisez Excel 2000 ou 2003, cliquez sur le menu ===> Outils ==> Macro ===> Sécurité. Choisissez le niveau de sécurité faible.
QRCode Macro Sécurité

Si vous utilisez Excel 2007/2010/2013/2016/2019, cliquez sur le Microsoft Office bouton.
Office 2010 button Office 2016 button Office 2019 button
cliquez sur Options ==> Centre de gestion de la confidentialité ==> Paramètres macro, choisissez "Activer toutes les macros".

QRCode Access Macro

4. Appuyez sur ALT + F11 pour ouvrir Microsoft® Visual Basic Editor.
QRCode Access VBA

5. Dans l'éditeur Visual Basic, choisissez le menu Outils ===> Références. Il va ouvrir une boîte de dialogue. Cliquez sur le bouton Parcourir et choisissez cruflbcs.dll dans votre dossier 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'.
Cliquez sur crUFLBcs 4.0 comme indiqué ci-dessous. Puis cliquez sur le bouton OK.

QRCode access ajouter référence

6. Appuyez sur Ctrl + M, une boîte de dialogue apparaîtra. Choisissez "barcodesoft.bas" dans le dossier "C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil". Puis cliquez sur "Ouvrir".

Vous pouvez télécharger 'barcodesoft.bas' à partir de QRCode.

QRCode import vba

Vous pouvez copier un extrait de code ci-dessous:

Public Function qrcode(strToEncode As String) As String
Dim obj As cruflBCS.CQRCode
Set obj = New cruflBCS.CQRCode
qrcode = obj.EncodeCR(strToEncode, 0, 0, 0)
Set obj = Nothing
End Function

7. Fermez Visual Basic et revenez à votre base de données Access. Créez une zone de texte. Tapez la macro suivante dans contrôle source:
=qrcode([data.code])

'Data' est le nom de la table. 'Code' est le nom du champ.

QRCode access macro

8. Cliquez avec le bouton droit sur la zone de texte. Choisissez Propriétés dans le menu contextuel. Appliquez l'une des polices "qrcode", telles que BcsQRCode.

police QRCode access

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.