ACCESSフォームの最小値を取得したい(再度)

質問

Access2013, Win7
すみません、質問方法を訂正しました。よろしくお願いしたいと思います。

・メインフォーム＝旅行
F_旅行, 旅行ID (数値型)

・その他のフォーム＝確認
F_確認, 旅行ID (数値型)　←　その都度入力して 旅行!旅行ID とリンク
F_確認,確認ID (数値型)
F_確認,内容 (短いテキスト型)
F_確認,確認期限 (日付型)
F_確認,確認日 (日付型)

■このF_旅行に、コントロールを配して、そのコントロールに F_確認のフィールド! [確認日] に記入が無い、[確認期限] の最小値 (日付)を表示させたい(値を取得したい)のですが、このコントロールソースにどのように記述すれば、良いでしょうか？

色々、試してみましたが、どうもうまくいきません。
ぜひ、よろしくお願いいたします。

回答No.2

山田 太郎（@f_a_007） · ベストアンサー

添付図のよーなエラーが発生する原因は２つ。

１、DBLookup()を標準モジュールに追加していない。
２、& [ID] & の[ID]が存在しない。[旅行ID]などと命名している。

対策：

１、イミディエイトウインドウでのテストに成功する。
２、そのテスト結果を受けてフォームに組み込む。

私は、この手順を経た上で回答していますよ。

PS、DBLookup()ではなくてDLookup()、DMin()を利用する。

その場合、実行におよそ３倍の時間がかかります。まあ、1000分の何秒の差ですが・・・。

補足

f_a_007様

ご回答くださり、ありがとうございました。

・ご指摘のように「標準モジュール」が入っていないためでした。
・標準モジュールを追加して
=DBLookup("SELECT Min(確認期限) FROM 確認 WHERE 旅行ID=" & [旅行ID] & " AND LEN(確認日 & """")=0")

のように記述すると、意図した結果を得ることができました。

本当に、ありがとうございました。感謝申し上げます。

回答No.1

山田 太郎（@f_a_007）

質問者は、DBLookup()を利用して一度もSQL文のテストをしていないのかな？仮にアタックしたとすれば、次のような結果を得た筈。

【SQL文１】逆順のトップの値を求める

? DBlookup("SELECT TOP 1 確認期限 FROM F_確認 WHERE F_旅行_ID=1 AND LEN(確認日 & """")=0 ORDER BY 確認日 DESC")
2017/06/01

【SQL文２】該当するレコードでの最小値を求める

? DBlookup("SELECT Min(確認期限) FROM F_確認 WHERE F_旅行_ID=1 AND LEN(確認日 & """")=0")
2017/06/01

　このテストさえ行えば、該当するSQL文は二つあることに気付く。で、添付図のような結果を欲しているのであれば・・・

=DBLookup("SELECT Min(確認期限) FROM F_確認 WHERE F_旅行_ID=" & [ID] & " AND LEN(確認日 & """")=0")

と、そのまんまSQL文を実行するDBLookup()を書くだけですよ。

補足

f_a_007様

度々のご回答、誠にありがとうございます。お教えいただきました通り、自分の Form に当てはめて

=DBLookup("SELECT Min(確認期限) FROM 確認 WHERE 旅行ID=" & [ID] & " AND LEN(確認日 & """")=0")

と、記述いたしましたところ、　#Name? のエラーが出ます。

どうしてでしょう？どこか、名前が違うということらしいのですが、ちょっといじってみましたが解決できません。