AccessのAfterUpdateイベントについて

Question

xxhiroxx_chanと申します。
いつもありがとうございます。

Accessで主フォーム上にサブフォームをいくつか配置しサブフォーム内にデータを入力する画面を作成しました。
複数あるサブフォームは、それぞれのオブジェクト名を付けていますが、ソースオブジェクトはすべて同じフォームです。
サブフォームは連結フォームで、画面にデータを入れればレコードソース（テーブル）にそのまま値が登録されるのですが、
レコードソース（テーブル）の一部のフィールドは、レコード毎にサブフォームのAfterUpdateイベントにて、
vba上でセットする作りにしたいと思っています。

そこで以下のような問題が起きています。
（１）あるサブフォームでの入力を完了して、別のサブフォームに移り入力を開始するタイミング
（２）主フォームに置いている更新ボタンを押すタイミング
の直前に手入力したレコードには、AfterUpdateイベントが発生しません。

一般的にAfterUpdateイベントが発生しない、ということはカーソルが移動していないため、ということになると思いますので、フォーカスを強制的に移動しようと試みているのですがうまくいきません。

ご助言お願いいたします。

Answer 1

書いてただいた条件でやってみましたが、事象は再現せず、Form_AfterUpdateイベントは正常に実行されるようです。

#試した手順
0. 新規accdbファイル作成
0. テーブル1作成
0. テーブル1から連結フォーム1作成
0. 空白のフォームとしてフォーム2を作成
0. フォーム2に埋め込みフォームを2つ配置し、いずれもデータソースをフォーム1に設定
0. フォーム1にAfterUpdateイベントでMsgBox "Hello"を追加
0. 実行

何か別のコードがイベントを邪魔してるんじゃないでしょうか。
データベースファイルを複製し、余計なコードを消してやってみるとうまくいくかもしれません。

Comments

[xxhiroxx_chan]

回答頂きありがとうございました。
私も新規でファイルを作成し試したところ、thom.jpさんがおっしゃっている通り、必ずAfterUpdateイベントが発生します。基本的にはそうなるはず、と認識できたので、コードを見直してみようと思います。