条件にあったデータの取得　DLookup関数の使い方

Accessでデータ操作を行う際に、ある一覧から条件にあったレコードの値を取得したいということがあります。Excelでは、VLookup関数やHLookup関数として様々なシーンで使用されていると思いますが、Accessではこれらと似た関数として「DLookup関数」が用意されています。

DLookup関数の構文
テストデータについて
DLookup関数からのデータ抽出
条件に変数を適用する方法
まとめ

DLookup関数の構文

DLookup( expr, domain [, criteria] )

DLookup関数の構文には、次の引数があります。

引数	説明
expr	必須項目で、値を返すフィールドを指定する。
domain	必須項目で、レコードセットを識別する。テーブル名やクエリ名を記載する。
criteria	省略可能。ここで指定された条件に基づき、exprの値を返す。省略した場合は、domain内のランダム値を返す。条件に合うデータがない場合はNullを返す。

これだけでは、実際に使う場合のイメージがわきにくいので、次からテストデータを用いてDLookup関数の動きを見てみましょう。

テストデータについて

DLookup関数は、あるフィールドに対して設定した条件に一致するレコードについて、同じく指定したフィールドの値をを出力するため、対象となるテーブルは、マスタテーブルになることが多いです。そこで、次のようなテストデータを作成しました。なお、作成するテーブル名称は「T_品目マスタ」とします。

■作成するサンプルテーブルの構造

フィールド名	データ型
品目ID	オートナンバー型
品名	短いテキスト
型番	短いテキスト
製造元	短いテキスト

サンプルテーブルには、次のデータが含まれているものとします。

■作成するサンプルレコード

品目ID	品名	型番	製造元
1	えんぴつ（HB）	EN-001	四菱
2	消しゴム	KE-001	四菱
3	えんぴつ（B）	EN-002	四菱
4	定規	JY-001	TOMBO
5	ノート	NO-001	コクミ

次からVBAのコーディング説明になります。VBAの使用方法については以下の書籍をご参考にしてください。著者も、これらの書籍を辞書代わりに愛用しています。

できるAccess 2021 Office 2021＆Microsoft 365両対応（できるシリーズ） [ きたみあきこ ]

楽天ブックス

DLookup関数からのデータ抽出

それでは、テストデータからDLookup関数を用いて必要なデータを抽出してみましょう。まずは、「作成」タブの「マクロとコード」欄から「標準モジュール」を選択します。続いて、起動したVBA画面の「挿入」タブで「プロシージャ」を選択し、名前を「Dlookup_Sample」、Subプロシージャ、Publicプロシージャと設定します。詳しくは、以下の記事をご参照ください。

そして次のようにコードを記載してください。

Public Sub Dlookup_Sample()
　　
　　'この1行を追加する。
　　MsgBox Dlookup("品名", "T_品目マスタ", "型番 = 'EN-001'")

End Sub

さて、上で紹介したコード中のDlookup関数では、「T_品目マスタ」テーブルの内、「型番」フィールドの値が「EN-001」のレコードにおける、「品名」フィールドの値を出力するという意味です。したがって、型番が「EN-001」である「えんぴつ（HB）」がメッセージボックスで表示されることになります。

実際にVBA画面上のSub/ユーザーフォームの実行アイコンである、緑三角ボタン「▶」をクリックしてください。すると、画面上に「えんぴつ（HB）」というメッセージボックスが現れたと思います。

なお、抽出条件に文字列を使う場合、シングルクォーテーション「’」で、日付型の場合は「#」で括ります。また、数値型の場合はそのまま記入します。

条件に変数を適用する方法

先に紹介した方法では、criteriaに型番の値を直接入力しましたが、変数にすることで任意の値を出力できるようになります。

例えば、InputBox関数、Nz関数（値がNullであれば、条件に応じた別の値を返す関数）とIf文を組み合わせることで対話型の品名確認ができるようになります。

Public Sub Dlookup_Sample()

　　'型番を格納する変数を宣言
　　Dim param As String

　　'InputBox関数でユーザーに値を入力してもらい、その値をparam変数に格納する。
　　param = InputBox("型番入力")
　　
　　'DLookup関数で品名を呼び出す際に、param変数を抽出条件に用いている。
　　'DLookup関数で対象がない場合にはNullが返されるが、
　　'Nz関数を用いてNullの代わりに「empty」を返すようにしている。
　　MB = Nz(Dlookup("品名", "T_品目マスタ", "型番 = '" & param & "'"), "empty")

　　'If文で空の場合と、品名を返す場合を分岐させる。
　　If MB = "empty" Then
　　　　MsgBox "対象の品はありませんでした。"
　　Else
　　　　MsgBox MB
　　End If
 
End Sub

入力した型番が、「T_品目リスト」にある場合は、対象となる品名が、そうでない場合は、対象がないとのアラートがでるようになったと思います。