Accessでクエリで抽出した最新売価を、テキストボックスに代入したい

Question

実現したいこと

マスターテーブルT_注文にある製品Aのレコードの最新売価を、クエリを使って受注日のフィールド「日付」の集計を最大にして、売価のフィールド「金額」をグループ化にして抽出できました。レコードソースをテーブルT_機械設定とするフォームにあるテキストボックスtxb_製品番号に代入されている製品番号の最新売価を、このフォームにあるテキストボックスtxb_金額に代入したいです。マスターテーブルT_注文とテーブルT_機械設定は、共通するフィールド製品番号でリレーションされています。

発生している問題・分からないこと

やり方について教えて頂きたいです。

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

https://teratail.com/questions/317347　を参考に最新売価の抽出は成功しています。

補足

特になし

Comments

[sazi]

> このフォームにあるテキストボックスtxb_金額
txb_金額はT_注文と連結しているのでしょうか？
もしそうであれば、フォームのコントロールソースに集計クエリーを含んでいる場合更新は出来ません。

[doinaka]

txb_金額は非連結となっております。

[sazi]

> txb_金額は非連結となっております。
表示のみという事なら、レコードソースの項目を連結すれば良いと思います。

ですが、T_注文の項目に対してそれを反映したいというなら、レコードソースの集計部分をwhere条件に変更して更新可能とした上で、各項目のコントロールソースを見直す必要があります。
※演算できるものは保持しないという事から推奨はされませんが。

[sazi]

尚、質問文中のリンクはタイトルとurlの指定が正しくなく参照できません。

[sazi]

>マスターテーブルT_注文にある製品Aのレコードの最新売価を、クエリを使って受注日のフィールド「日付」の集計を最大にして、売価のフィールド「金額」をグループ化にして抽出できました

このクエリーを質問に追記して下さい。

多分、txb_金額のコントロールソースに=DlookUP("最新売価",[クエリー])のようになるかと思います。

Answer 1

txb_金額に表示するだけなら、txb_金額のコントロールソースに下記の式を設定すればどうでしょう。

=DLookup("金額","T_注文","製品番号=" & [txb_製品番号] & 
         " AND 日付=#" & DMax("日付","T_注文","製品番号=" & [txb_製品番号]) & "#")

製品番号がテキスト型なら下記の式で。

=DLookup("金額","T_注文","製品番号='" & [txb_製品番号] "'" & 
         " AND 日付=#" & DMax("日付","T_注文","製品番号='" & [txb_製品番号] & "'") & "#")

クエリで、製品番号ごとの最新の金額が取得できているなら、下記の式。

=DLookup("最新金額","クエリ名","製品番号=" & [txb_製品番号] )

Comments

[doinaka]

回答ありがとうございます。

[doinaka]

hatenaさん、ありがとうございました。コメントをくださったsaziさんにも感謝します。ありがとうございました。その後、ご提案して頂いた方法を試してみたところ、いくつものレコードが抽出されてしまい、変だと思い、勤務先の基幹システムのT_注文のフィールド「日付」のデータ型を調べたところ、日付型ではなく「2023/12/31」などのテキスト型であることが判明しました。（私が試作で使用したT_注文はレコード数の少ない過去のデータだったので、抽出できたのだと思います）とはいえ、レコードのIDが存在しているので、注文順に付与されているものであれば、こちらの最大値で抽出できれば解決できそうなので、ご提案して頂いた方法で、改めてチャレンジしてみようかと思います。ありがとうございました！