【ACCESS2000】 サブフォーム同士の値のチェックを行いたい。

質問

・メインフォーム
合計チェックボタン
・サブフォーム１
伝票番号,売上金額合計
・サブフォーム２
伝票番号,明細行,売上金額

上記のような構成になっており、合計チェックボタンを
押したときに伝票ごとのサブフォーム１の売上金額合計がサブフォーム２の伝票番号でまとめた売上金額合計より、下回っているものがある場合はエラーメッセージを出したいと思っています。（できればその伝票番号もだしたい。）

どのようにすればよいでしょうか。

回答No.1

NorthMole

どこまでの機能を利用するか、どのようなフォームレイアウトかにも依りますが、
単純に、比較用のクエリーをマクロで走らせるなり、VBAによる比較を行なうなりを、
合計チェックボタンを押したときにおこなったらいかがですか？

もっとも、単純にサブフォーム１とサブフォーム２のレコードソースが別で、一括して比較したいのであれば、これしかないと思いますが。

補足

ご解答ありがとうございます。
クエリ+VBAでうまくいきました。

もし、可能ならば、クエリで表示された伝票番号を
メッセージボックスに表示したいのですが可能でしょうか。

クエリの実行結果
伝票番号　　売上金額　売上金額合計
　１　　　　　1000　　　1200
　３　　　　　5000　　　70000

以上の結果から、
『伝票番号　１,３の売上合計数が売上金額を上回っています。』
というメッセージを出したいのですが。。