MS Access で Code 39 バーコードを生成する
Windows デスクトッププリンター向けのプロフェッショナルなバーコードソリューション。
 |
 |
 |
Code 39 は、世界で最も広く使用されているバーコード体系の一つです。実装は非常に簡単です。データの前後をアスタリスクで囲み（例：*DATA*）、Barcodesoft フォントを適用するだけです。Barcodesoft Code 39 パッケージと Microsoft® Access® を組み合わせることで、デスクトップから直接、プロフェッショナルなバーコードを効率的に印刷できます。
1 バーコードフォントのインストール
パッケージフォルダ内のすべての TrueType フォント（*.ttf）を、C:\Windows\Fonts ディレクトリにコピーします。
2 DLL コンポーネントの登録
DOS プロンプト（コマンドプロンプト）を開きます。Windows Vista, 7, 10, 11 をご使用の場合は、必ず 「管理者として実行」 してください。
regsvr32 crUFLbcs.dll
3 Access のセキュリティ設定
バーコード生成機能を動作させるために、マクロが有効になっていることを確認してください：
- Access 2000/2003: [ツール] > [セキュリティ] > [すべてのマクロを有効にする] に設定。
- Access 2007 以降: Microsoft Office ボタン
> [Access のオプション] > [セキュリティ センター] > [セキュリティ センターの設定] > [マクロの設定] > [すべてのマクロを有効にする] を選択します。
4 VBA エディタを開く
Alt+F11 を押して、Visual Basic エディタを起動します。
5 DLL の参照設定
[ツール] > [参照設定] に移動します。[参照] をクリックし、cruflbcs.dll（通常は手順 2 で説明した FontUtil フォルダ内）を選択します。crUFLBcs 1.0 Type Library にチェックを入れて OK をクリックします。
6 バーコードモジュールのインポート
Ctrl+M を押し、インストールフォルダにある barcodesoft.bas を選択します。
Code 39 生成用コードスニペット：
Public Function Code39(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
Code39 = obj.Code39(strToEncode)
Set obj = Nothing
End Function
Public Function Code39Check(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
Code39Check = obj.Code39Check(strToEncode)
Set obj = Nothing
End Function
Public Function USSCode39(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
USSCode39 = obj.USSCode39(strToEncode)
Set obj = Nothing
End Function
7 Access レポートの作成
レポートのデザインビューで、バーコードを表示したいフィールドの コントロールソース を以下のいずれかのマクロに設定します：
- =code39([テーブル名.フィールド名])
- =code39Check([テーブル名.フィールド名])
- =USSCode39([テーブル名.フィールド名])
8 最終ステップ：フォントの適用
フィールドを右クリックし、[プロパティ] を開きます。[書式] タブで、フォント名 を Code39mHr またはお好みの Barcodesoft 書体に変更します。
