アクセス初心者です。
メイン・サブフォームがあります（メインＩＤでリレーション）。サブフォームにはフィールドがいくつかあります（Ｆ１・Ｆ２・・・）。Ｆ２とＦ４には金額の入力をしてまして各合計金額をサブフォームのフッタに表示させています。最終的に（メインＩＤ毎に）その合計が合致する必要があるために。再更新（Requery）ボタンで確認してます。出来ましたらＦ２、Ｆ４入力後すぐに計算ができたらいいのと、合致していなければフォームを閉じる時やメイン移動時に警告メッセージが出るようにしたいと思い投稿しました。
Microsoft Access 掲示板
サブフォームの値をすぐに計算など
11
コメント
views
4
フォロー
通報 ...
「その合計が合致する必要がある」とは、具体的に何と何が一致する必要があるのでしょうか。
サブフォームのフッターに表示させているＦ２の集計値とＦ４の集計値でしょうか。
「Ｆ２、Ｆ４入力後すぐに計算」とは、Ｆ２テキストボックスで入力した直後(レコード保存する前)に集計値に反映させたいということでしょうか。
とりあえず「再更新（Requery）ボタン」に設定してあるコードを提示して、こ処理でどの部分をどのように改善したいのかを説明してもらうと回答しやすいです。
すみません説明不足でした。サブは下記のイメージです
Ｆ１ Ｆ２ Ｆ３ Ｆ４
摘要Ａ ￥１００ 摘要Ｂ ￥５０
摘要Ｃ ￥２０ 摘要Ｄ ￥７０
このＦ２とＦ４の各合計値が合致する必要があります（サブフッターには各Ｓｕｍ値をテキストボックス）。金額入力ミスのチェックをしたいのです。
再更新ボタンもサブフッターに配置しており、単純に” Me.Requery” の記述だけです。
改善したいことはサブに金額入力したらすぐにサブフッターのテキストボックスに反映したいのと（再更新ボタン押さなくても）、合計値が合致していない状態でフォームを閉じたりメインに配置してます移動ボタン（新規レコード含む）で移動できない様に入力チェックが出来ないかなと思いまして。
Accessの仕様としては、Ｆ２、Ｆ４に金額を入力しただけではフッターの集計には反映されません。
レコード移動するとか、［Shift］＋［Enter］キーを押す、レコードセレクタをクリック、・・・などなど
のレコード保存アクションを起こすと反映されます。
このレコード保存アクションを起こす前に、テキストボックスで金額を入力した直後に反映させたいなら、下記のリンク先の方法を参考にしてください。
フォームでの集計をレコード保存する前に反映させる - hatena chips
ただ、通常はそこまでしなくてもいいように思います。
サブフォームコントロールのフォーカス喪失時のイベントで合計値をチェックして合致していなかったら、イベントをキャンセルすればいいでしょう。
あとフォームの読み込み解除時でもチェックする必要があります。
サブフォームコントロール名(サブフォームを埋め込んでいるコントロールの名前)を「埋め込み1」、
サブフォームのフッターの集計テキストボックスの名前を SumF2, SumF4 と仮定した場合のサンプルコードです。
メインフォームのモジュールに記述します。
サブフォームコントロール名の確認法は下記を参考に。
サブフォームとサブフォームコントロールの違いとは？ - hatena chips
ありがとうございます。[OldValue]の事は全くしりませんでした。イベント使わずに計算が反映しますので、これは便利です。それと”フォーカス喪失時”と”フォームの読み込み解除時”のイベントの違いを教えて頂けますでしょうか（知識不足でフォームの流れがわかっていないのですみません）。
あと質問と異なるのですが、このフォームでメインにだけ入力してサブにはレコードが１件もない状態を回避したい場合、どうすると効果的でしょうか？（閉じたり、メインレコード移動時にメッセージを出したい）
すみません、合計値が合致していない時は"F2とF4の合計が合っていません！"のメッセージが出て先に進めなくて狙い通りなのですが、合致している（正常の合計値）場合にフォーム閉じると ”メソッドまたはデータ メンバが見つかりません。” のコンパイルエラーとなり Private Sub Form_Unload(Cancel As Integer)のIf Me.埋め込み1（サブフォームコントロール名）の部分が示されます。メイン・サブに未入力で閉じても同じエラーとなります。
この回避はどうするといいでしょうか？
Private Sub Form_Unload(Cancel As Integer)
はメインフォームのモジュールに記述してますか。
サブフォームのモジュールに記述しているのなら、メインフォームの方へ移動させてください。
一般論ではなく前回の回答の”フォーカス喪失時”と”フォームの読み込み解除時”についてということで回答します。
その前にメイン/サブフォーム形式のフォームのフォーカス関係のイベントについて。
まずフォームを開いた直後は、メインフォームのタブオーダーが1番目のコントロールにフォーカスがあります。
メインフォームの入力を終えてサブフォームの入力に移るためにサブフォームのコントロールをクリックしたとします。
フォーカス関係イベントは下記のように発生します。
メインフォーム上のサブフォームコントロールのフォーカス取得時(Enter)イベント
↓
サブフォーム上のコントロールのフォーカス取得時(Enter)イベント
↓
サブフォーム上のコントロールのフォーカス取得後(GotFocus)イベント
サブフォームの入力を終了してメインフォームのコマンドボタンやテキストボックスをクリックしてメインフォームへフォーカスを移動したとき
サブフォーム上のコントロールのフォーカス喪失時(Exit)イベント
↓
サブフォーム上のコントロールのフォーカス喪失後(LostFocus)イベント
↓
メインフォーム上のサブフォームコントロールのフォーカス喪失時(Exit)イベント※
↓
クリックしたメインフォーム上のコントロールのフォーカス取得時(Enter)イベント
前回の回答では上記の※の時に、2つの合計をチェックして不一致の場合は、Cancel = Trueでイベントをキャンセルします。イベントがキャンセルされるとそれ以降のイベントは発生せずフォーカスはサブフォームから移動しません。
フォームの読み込み解除時イベントはフォームの右上のクローズボタンをクリックするなどフォームを閉じようとするアクションを起こすと発生します。サブフォームにフォーカスがある場合は、その前にメインフォームへフォーカスが移動することになります。イベントの発生順は下記のようになります。
サブフォーム上のコントロールのフォーカス喪失時(Exit)イベント
↓
サブフォーム上のコントロールのフォーカス喪失後(LostFocus)イベント
↓
メインフォーム上のサブフォームコントロールのフォーカス喪失時(Exit)イベント※
↓
メインフォームの読み込み解除時(Unload)イベント
この場合も※のところで合計チェックをして不一致ならイベントをキャンセルしますが、読み込み解除時イベントは発生してしまいます。ということは合計が不一致のまま閉じてレコード保存されてしまうことになります。
それを防ぐために、読み込み解除時でも合計をチェックして不一致ならイベントをキャンセル(Cancel = True)してフォーカスをサブフォームへ戻しておきます。これで合計が不一致の場合はフォームを閉じることができなくなります。
ありがとうございます。メインにコード記述したらいけました。落ち着いて考えたら分かることなのに、すみませんでした。
イベントの説明もお手数かけました。フォーム閉じる時はこれでカバーできたのですが、メインに配置してますレコード移動ボタンに対してはどう対処したらいいでしょうか？ 合計が合致してない場合、移動も出来なくなる様にしたいのです。
重ね重ねすみません、記述位置をミスしてました。埋め込み1_Exit***のコードをメインに記述してました。失礼しました。
これで移動も規制できました。
このフォームでメインにだけ入力してサブにはレコードが１件もない状態を回避したい場合、どうすると効果的でしょうか？（閉じたり、メインレコード移動時にメッセージを出したい）
3で提示したコードの条件にレコード件数が0もつけ加えるといいでしょう。
これでサブフォームのレコード件数が0のときはフォームを閉じれなくなります。
ただし、これだけではメインレコード移動は規制できません。
レコード移動時イベントでは、レコード移動した後に発生するしキャンセルできないので。
いろいろ考えてみましたが、難しそうですね。
レコード移動時イベントで、サブのレコード件数が0のメインのレコードがないかチェックして、あればそこにレコード移動するという感じでするとか、ぐらいかな。
ちょっと面倒そうですね。
度々ありがとうございました。イベントの説明も大変参考になりました。個々のレコード移動時イベントにコード記述して対応してみます。お世話になりました。