二维码 (QR Code)

在 MS Access 中生成二维码

本流程介绍如何在 MS Access 数据库报表中生成二维码。它指导开发人员调整 Access 信任中心安全设置,通过 ALT + F11 启动 VBA 编辑器,添加 cruflbcs.dll 类型库引用,并导入 barcodesoft.bas 模块。最后,介绍如何在设计视图中将 =qrcode([TableName].[FieldName]) 表达式应用到报表文本框,并指定专用的 BcsQRCode 条码字体。

步骤 1. 右键点击命令提示符,然后选择“以管理员身份运行”。

QR Code command prompt as administrator
要注册 64 位 DLL,请输入以下命令:
cd "C:\Program Files\Common Files\Barcodesoft\FontUtil"
%systemroot%\System32\regsvr32.exe cruflbcs_x64.dll
请输入以下命令来注册 32 位 DLL cruflbcs.dll:
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil"
regsvr32.exe cruflbcs.dll
register cruflbcs.dll commands for QR code
如果您看到弹出以下窗口,则表示注册成功。
register cruflbcs.dll succeeded

步骤 2. 启动 Microsoft® Access®。
如果您使用的是 Access 2000 或 2003,请点击菜单 ===> 工具 (Tools) ==> 宏 (Macro) ===> 安全性 (Security)。选择低安全性级别。

QRCode Access Macro Security
如果您使用的是 Access 2007 / 2010 / 2013 / 2016 / 2019,请点击 Microsoft Office 按钮。
Office 2010 button Office 2016 button Office 2019 button
然后点击 Access 选项,选择“信任中心 (Trust Center)”。在“宏设置 (Macro Settings)”类别中,在宏设置下选择“启用所有宏 (Enable all macros)”,如下图所示。
QRCode Access Macro Setting

步骤 3. 按 ALT + F11 打开 Microsoft® Visual Basic 编辑器。

QRCode Access VBA

步骤 4. 在 Visual Basic 编辑器中,选择菜单 ===> 工具 (Tools) ===> 引用 (References)。这将打开一个对话框。点击“浏览 (Browse)”按钮,然后从您的工作文件夹中选择 cruflbcs.dll 文件。通常它位于 C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil 文件夹中。勾选 “crUFLBcs 4.0 Type Library” 旁的复选框,如下图所示。然后点击确定按钮。

QRCode add reference

步骤 5. 按 Ctrl+M,此时将打开一个对话框;选择 C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil 文件夹下的 barcodesoft.bas。然后点击“打开 (Open)”。
如果您找不到 barcodesoft.bas,请从这里下载:QR Code

QRCode import vba

步骤 6. 关闭 Visual Basic 并返回到您的 Access 数据库。现在,在“设计视图 (Design view)”中创建一个报告,并在应用字体之前,在您希望显示 QR Code 条形码的字段中输入以下宏之一:

=qrcode([data.code])
请注意,'data' 是表名,'code' 是字段名。
QRCode barcode excel macro

步骤 7. 右键点击您想要显示 QR Code 条形码的字段。从上下文菜单中选择“属性 (Properties)”。对该字段应用 BcsQRCode 字体即可获取二维码。

QRCode import vba