ACCESS VBAでDlookupとDminを使用して商品サイズに応じた梱包材を取得する方法は？

質問

• ACCESSで通信販売のための商品管理と発送システムを作り運用しています。今回、商品のサイズをもとに梱包用の段ボールの種類を自動で取得したいと考えています。具体的には、商品の三辺のサイズを入力後に、商品サイズより大きくかつ一番軽い梱包材を取得したいです。
• T商品テーブルには、商品ID、商品名、サイズW、サイズD、サイズHなどのフィールドがあります。T梱包材マスターテーブルには、梱包材ID、梱包材名、内寸1、内寸2、内寸3、内寸三辺合計、梱包材重量などのフィールドがあります。
• DMin関数を使用して、商品のサイズより大きくかつ一番軽い梱包材IDを取得することができます。具体的なVBAコードは、DMin("梱包材ID", "T梱包材マスター", "内寸1 > " & Me.W & " And " & "内寸2 > " & Me.D & " And " & "内寸3 > " & Me.H)です。このコードでは、T梱包材マスターの内寸1、内寸2、内寸3を商品のサイズと比較し、条件に合致する最小の梱包材IDを取得します。

回答No.6

山田 太郎（@f_a_007）

【補足】ドロップボックスでは・・・。

添付図のようにどちらも同じ結果を得ています。

SELECT TOP 2 * FROM 梱包材台帳
　　WHERE (((梱包材台帳.内寸1)>Forms!フォーム1!sizeW) And
　　　　　　　　 ((梱包材台帳.内寸2)>Forms!フォーム1!sizeD) And
　　　　　　　　((梱包材台帳.内寸3)>Forms!フォーム1!sizeH))
　　 ORDER BY 梱包材台帳.重量;

ビルドするとこのような値集合ソースを生成します。ドロップボックスに幾つの列を表示するのかは定かではないので＊を使っていますが、これで目的は達成できるのではないでしょうか？？？？？

補足

何度も何度も詳しい回答ありがとうございます。
値集合ソースのデザインビュー、SQLビューともに自分の環境に置き換えてエラーは出ないのですが、ドロップダウンのリストには何も表示されないという状況です。

値集合ソースのデータシートビューでも梱包材のリストは1件も表示されておらず、（新規）というレコードができているだけという状況です。

ちなみにドロップダウンのコンボボックスはサブフォーム内に配置されており、以下のSQLを記入してみました。

SELECT TOP 2 T梱包材マスター.梱包材ID, T梱包材マスター.梱包材名, T梱包材マスター.梱包材重量, T梱包材マスター.内寸1, T梱包材マスター.内寸2, T梱包材マスター.内寸3
FROM T梱包材マスター
WHERE (((T梱包材マスター.内寸1)>[Forms]![Fアイテム]![Fアイテムリスト]![sizeW]) AND ((T梱包材マスター.内寸2)>[Forms]![Fアイテム]![Fアイテムリスト]![sizeD]) AND ((T梱包材マスター.内寸3)>[Forms]![Fアイテム]![Fアイテムリスト]![sizeH]))
ORDER BY T梱包材マスター.梱包材重量;

Fアイテムというフォームの中に、Fアイテムリスト（帳票フォーム）というサブフォームを配置し、その中にドロップダウン（コンボボックス）があります。