ＡＣＣＥＳＳでサブフォームの編集中レコードの処理

Question

ＡＣＣＥＳＳ２０００で単票系メインフォームと帳票系サブフォームを連結し、サブフォームに入力した明細（複数レコード）の金額累計（サブフォームフッターの非連結コントロール）をメイン側へ登録する処理を行っています。メイン側（マスターテーブル）への保存は保存用のコマンドボタンで行っています。サブフォーム側で完全に編集完了した場合（カーソルが次レコードの入力ラインにある）は正常に処理されますが、編集途中のレコードの金額は累計されないで保存されてしまいます。また保存コマンドボタンでサブフォームにＲｅｑｕｅｒｙをかけると累計金額がクリアされてしまいます。編集途中（つまり入力後エンタキーを押さないで直接コマンドボタンを押下）でもちゃんと累計されるような方法をご指導ください。よろしくお願いします。

30246kiku · Accepted Answer

＃５です

基本的なデータ構成は＃４でのものに、＃５のサブフォームにボタン「btn01」を追加した状態。
（btn01 名がサブ・メイン両方にありますがご容赦を）

追加で、メインフォームに非連結のテキストボックス txt03 を配置しておきます。


サブフォームへ記述している内容）

Private Sub btn01_Click()
　　Dim sTmp As String

　　If (Me.Dirty = True) Then
'　　　　Me.Parent.Form.txt03 = Me.txt01 ' ★1
　　　　MsgBox "累計 : " & Me.txt01　　　' ★2
　　　　sTmp = Me.BeforeUpdate
　　　　Me.BeforeUpdate = ""
　　　　DoCmd.RunCommand acCmdSaveRecord
　　　　Me.BeforeUpdate = sTmp
　　End If
End Sub

Private Sub Form_AfterUpdate()
　　Me.Recalc
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
　　Cancel = True
End Sub


この状態での動きは、

サブフォーム側で編集状態になると、メイン側ボタンは押せなくなります。
ボタン btn01 （編集の確定）をクリックするまでは、他に制御が移りません。
数量または金額を打ち込んでいる最中、ボタン btn01 をクリックすると、
★2 でのメッセージ表示は最新のものになってますが、メイン側の txt02 は以前のままです。
★1 で、最新のものをメイン側に表示することができます。

ので、
> １．サブフォーム側に展開しているレコードが複数の場合、１レコードづつ確定しなければならない
> ４．ＮｅｗＲｅｃにフォーカスが移動して更新済みの場合でも場合でも更新ボタンを押す必要がある
は、その通りで ＃５でさらっと書きましたが、操作性は悪く？なる　部分となります。
でも、＃５最後に書きましたが、複数レコードのある単票形式のフォームで、マウススクロールを無効にしているかのような処理ができます。


> ２．キャンンセルボタンも操作出来なくなる
は、サブフォーム側にボタン設置できれば以下内容でフォームを閉じることはできます。
（ボタン名を btn02 とした場合：編集中のものは反映されません）

Private Sub btn02_Click()
　　DoCmd.Close acForm, Me.Parent.Name, acSaveNo
End Sub


> ３．更新前処理での入力チェックにおいてエラーの場合でも更新確定されてしまう
は、ちょっと意味がわかりませんでした。

更新前処理は２つあって、入力項目それぞれでのもの、レコードとしてのものがあります。

１）入力項目それぞれでのもの
例えば、金額の入力で 100 単位のチェックを行うものとします。

Private Sub 金額_BeforeUpdate(Cancel As Integer)
　　If ((Me.金額 Mod 100) <> 0) Then
　　　　Cancel = True
　　　　MsgBox "100円単位で入れてください"
　　End If
End Sub

とか、画面デザインでのテキストボックス（金額）のプロパティ
「入力規則」に、　([金額] Mod 100)=0
「エラーメッセージ」に、　100円単位で入れてください

とか。（入力規則は更新前処理の直前で判別されるようです（同じ判別を両方に設定しても意味ありません））

この Cancel = True を返す、入力規則に反する場合は、その項目から他へ制御が移らないので btn01 は押せません。

２）レコードとしてのもの
Form_BeforeUpdate　のことです。
今回、常に Cancel = True を返すようにしたので、従来の処理は★部分に記述します。
チェックをして OK の時に、★以下の４行を実行するようにします。


以下にイベントの発生順が記述されていますので、眺めてみてください。
http://office.microsoft.com/ja-jp/access/HA102389881041.aspx

30246kiku · Answer

まだ閉じられていなかったので、


おまけ）

操作性は悪く?なりますが、編集中にはメインのボタンなど操作できないようにする方法もあります。

サブフォーム側に、更新/登録用のコマンドボタンを新設します。
編集後には、このボタンで確定動作を行います。
（これ以外ではレコードの更新/登録はできません）
（レコードが連結されたフォームであることが前提です）


細工１）サブフォームの更新前処理では必ず Cancel = True を返します

Private Sub Form_BeforeUpdate(Cancel As Integer)
　　Cancel = True
End Sub

従来チェック処理等入れていたら、以下細工２）へ移動します。
（記述する位置は適当に）


細工２）更新/登録用ボタンでの処理（ボタン名：btn01 とした場合）

Private Sub btn01_Click()
　　Dim sTmp As String

　　If (Me.Dirty = True) Then
　　　　sTmp = Me.BeforeUpdate
　　　　Me.BeforeUpdate = ""
　　　　DoCmd.RunCommand acCmdSaveRecord
　　　　Me.BeforeUpdate = sTmp
　　End If
End Sub

内容）編集中なら更新前処理を無効にし、レコードを保存後、更新前処理を有効に戻す。

レコードが編集中であった場合、そのレコード以外へ制御が移るのを抑止します。
（サブフォーム内のボタン等は、操作できるようです）

この方法は、マウスのスクロールでレコードが移動するのを防ぐ時にも使える方法です。
（複数レコードのある単票形式のフォームの時など）

30246kiku · Answer

＃３です

解決した方法は DoEvents を使ってループするものだったでしょうか。



以下、参考程度で）


テーブル名：T1
フィールド名：品名、数量、金額
レコード数：５６７件

サブフォーム名：F_S1
レコードソース：T1
帳票形式
フィールド名とテキストボックス名は同じ

ヘッダー部に累計用テキストボックス「txt01」を配置（書式：通貨）
コントロールソースは以下

=Sum([数量]*[金額])+(Nz([数量])*Nz([金額]))-(Nz([数量].[OldValue])*Nz([金額].[OldValue]))

フォームの更新後処理に Recalc
Private Sub Form_AfterUpdate()
　　Me.Recalc
End Sub


メインフォーム名：F_M1
サブフォームコントロール名：fsub
ソースオブジェクト：F_S1
単票形式
確認用ボタン名：btn01

ボタンのクリック処理は以下
Private Sub btn01_Click()
　　MsgBox "累計 : " & Me.fsub.Form.txt01
End Sub


検証）

サブフォームの編集中等にかかわらず、最終の値がメッセージボックスに表示。



追加１）メインフォームにテキストボックス txt02 （書式：通貨）を配置し、
　コントロールソースを以下

　=[fsub].[Form]![txt01]

この状態で再度検証

編集中（他に移動しない：数量または金額を打ち込んでいる最中）にボタンを押すと
txt02 は、\0 の表示となった状態でメッセージボックスが表示。
メッセージの表示内容は正しい。
メッセージボックスを閉じると、txt02 の表示が更新される。



追加２）メッセージボックス表示で、参照先を以下のように変更
Private Sub btn01_Click()
　　MsgBox "累計 : " & Me.txt02
End Sub

この状態で再度検証

txt02 表示、およびメッセージボックスでの表示は正しい。
（但し、txt02 の表示は若干遅れるがメッセージボックスが表示された時には同じ）



戻り１）最初の状態に戻り、サブフォームの更新後処理 Recalc を無効にしてみる

この状態で再度検証

編集中（他に移動しない：数量または金額を打ち込んでいる最中）にボタンを押すと
編集前の累計が表示される。
メッセージボックスを閉じてから、最終結果が表示される。


以上　メインフォームの構成もわからないのに回答してました。

※　この動きは私の環境だけかもしれませんが
（Access2000+Win2k/Access2007+Vista のどちらも同じでしたけど）

30246kiku · Answer

＃２です。

解決された方法を紹介してもらえませんか。

サブフォーム側に入れた処理と、
特にメイン側-保存ボタンでのサブフォームに対しての処理内容について、
お願いします。

※保存ボタンでのサブフォームへの処理は要らなかったと思いますが

30246kiku · Answer

＃１です

サブフォーム側のフォームの更新後処理で再計算させてみてください。

Private Sub Form_AfterUpdate()
　　Me.Recalc
End Sub

30246kiku · Answer

細かい動きは質問内容からわかりませんが、以下の応用でできる気がします。


フォームでの集計をレコード保存する前に反映させる


そもそも

> 編集途中のレコードの金額は累計されないで保存されてしまいます

の操作を可能とさせているのかが、いまひとつ分かりません。

ＡＣＣＥＳＳでサブフォームの編集中レコードの処理

＃５です

まだ閉じられていなかったので、

＃３です

＃２です。

＃１です

細かい動きは質問内容からわかりませんが、以下の応用でできる気がします。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング