Access フォームでの変更があった場合の判定がわからない

Question

##質問内容
管理システムの入力フォームを作成しているのですが、フォームで何かしらの変更があった場合そのフォームを閉じるときに、「変更されています。よろしいでしょうか」といったメッセージを出したいのですが、その判定がわからないです。

##概要
具体的に変更があった場合とは、
例えば、
テキストボックスに入力しかけている状態で閉じるとき。
（入力したけど、取り消そうとして、入力したものを消したときも含む。）
といった感じです。

何かしら、フォーム内で操作があった場合を指します。

Comments

[dit.]

とりあえずこちらと関連記事を確認してみてください。
https://hatenachips.blog.fc2.com/blog-entry-15.html
これで希望のことができない場合「どの部分が希望と違った」かを質問に追記していただければと思います。

[hatena19]

その入力フォームは連結フォームですか、非連結フォームですか。
連結フォームならdit.さんのコメントのリンク先を参考にしてください。
非連結ならまた、別の話になります。

[退会済みユーザー]

テーブルに直接Insertするものなので、連結フォームです。

[hatena19]

「テーブルに直接Insertする」というのがどのうような意味か分かりませんが、
フォームのレコードソースプロパティにテーブル名が設定されているか、空欄になっているか、どちらですか。

[退会済みユーザー]

設定されています。

[hatena19]

なら連結フォームですので上のリンク先を参考にしてください。

Answer 1

連結フォームでフォームを閉じる時に更新があったかどうかをチェックしたいと言うことですよね。

このような場合、イベントがどのような順で発生するかを把握しておく必要があります。

フォームに更新がなかった場合は、読み込み解除時 → 閉じる時 という順で発生します。
フォームに更新があった場合は、更新前処理 → 更新後処理 → 読み込み解除時 → 閉じる時 という発生順になります。

読み込み解除時や閉じる時では、更新処理は終了してますので、Me.Dirtyは Falseになってますので判定できません。

更新後処理では、更新処理をキャンセルできませんので、「変更されています。よろしいでしょうか」と確認して「いいえ」と言われても、手遅れです。

結局、更新前処理で「変更されています。保存しますか。」と確認して、「いいえ」と言われたら、Cancel=True として更新処理をキャンセルすることになります。下記のようなコードになります。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Select Case MsgBox("変更されています。保存しますか？", vbYesNo)
    Case vbNo
        Cancel = True
    End Select
End Sub

上記のコードで、メッセージボックスで「いいえ」を選択すると、閉じずに編集状態に戻ります。

上記はシンプルな例ですが、この問題は奥が深いです。下記のリンク先と関連記事を熟読されることをお勧めします。

保存前に確認する - hatena chips

Answer 2

If Me.Dirty Then
'変更があった場合の処理
Else
'変更がなかった場合の処理
End If