QR コード (QR Code)

MS Access での QR コード生成

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)\CommonFiles\Barcodesoft\Fontutil フォルダにあります。下図のように「crUFLBcs 4.0 Type Library」のチェックボックスにチェックを入れます。その後、「OK」ボタンをクリックします。

QRCode add reference

5. Ctrl + M を押すとダイアログボックスが開きます。C:\Program Files (x86)\CommonFiles\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