QR コード (QR Code)

MS Access での QR コード生成

このワークフローでは、MS Access データベースのレポート内で QR コードを生成する方法を説明します。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」のチェックボックスにチェックを入れます。その後、「OK」ボタンをクリックします。

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コードバーコードを表示したいフィールドに次のいずれかのマクロを入力します:

=qrcode([data.code])
'data' はテーブル名、'code' はフィールド名であることに注意してください。
QRCode barcode excel macro

ステップ 7. QRコードバーコードを表示したいフィールドを右クリックします。コンテキストメニューから「プロパティ(Properties)」を選択します。該当のフィールドに BcsQRCode フォントを適用すると、QRコードが表示されます。

QRCode import vba