dictionary変数を用いたフォームの生成では、Activateイベントが呼ばれません。

Question

はじめに

伝票+伝票明細の画面を作っています。画面の見た目はよくあるタイプです。ここでは伝票フォーム、伝票明細フォームというオブジェクト名にとします。

メインフォーム(非連結、単票モード)
+サブフォーム(帳票モード)
で構成しています。

多画面生成を実現するためにdictionary変数を用いており、簡単に言うと次のような方法を取っています。

'Form_画面管理用のフォームオブジェクト
Public dic As New dictionary
Public Sub 画面を生成()
 Dim key As String
 key = Timer
 With Me.dic
  .Add key, New 伝票フォーム
   
   With .Item(key)
    .Tag = Key
    .伝票ID = Call 伝票IDを取得する処理()
    'その他初期化処理
    .Visible = True '画面表示開始
   End With

 End With

End Sub

やりたいこと

サブフォームの指定フィールドに初期値(DefaultValue)を設定したい。
具体的には、伝票明細フォームのコントロール(TextBox,伝票ID,リレーション用の外部キーです。)
やりたい事をコードで説明するなら、以下のようになります。

'生成された伝票フォームオブジェクトのActivateイベント
Me.伝票明細フォーム.Form.伝票ID.DefaultValue = Me.伝票ID.Value

何故実現できないのか

冒頭でDictionaryを用いて初期化している時、サブフォームまでは潜れないようでした。(参照できない)

伝票フォームオブジェクトのOpenイベントにしかけても、参照できないエラーが発生します。

Activateイベントに引っ掛けようとしても、Activateイベント自体が呼ばれませんでした。別画面に切り替え等の操作を行ったとしてもです。

画面が表示された後、親フォームに設置した何かしらのコントロールが起こすChangeイベントでは、子フォームへ対する参照が通りますが、実装としては人による操作が開始される前が望ましいと考えています。

他のアプローチがある場合、アドバイスを頂きたく。

宜しくお願いします。

Answer 1

私が過去に作ったcollectionを使って多重new Formするサンプル引っ張ってきましたが
activateイベントは普通に反応しました。

Me.伝票明細フォーム.Form.伝票ID.DefaultValue = Me.伝票ID.Value

これをせずにリンク親フィールド、リンク子フィールドを使って伝票IDを設定してはいけないんですか？
このやり方はOpenArgsも使えないので初期値関連は渡せないのでめちゃくちゃ不便なんですよね…

タイミングが許すのであればここで設定すればいいかと

   With .Item(key)
    .Tag = Key
    .伝票ID = Call 伝票IDを取得する処理()
    'その他初期化処理
    .Visible = True '画面表示開始
    .伝票明細フォーム.Form.伝票ID.DefaultValue = .伝票ID
   End With

Comments

[hatena19]

私もsousukeさんのリンク親フィールドをリンク子フィールドを設定しておくという案に同意です。
ひょっとするとメインフォームが非連結の場合はリンクフィールドが設定できないと思っているのかな?
そんなことないですよ。リンク親フィールドにコントロール名を設定すればリンクできます。
リンクしておけば DefaultValue も自動で設定されます。

[jkjksan]

回答ありがとうございます。
疲れがピークに達したため、リフレッシュしておりました。

頂きました回答を参考に検証を進めていく中で判明したことは、
物凄くお恥ずかしい話ですが、参照先のオブジェクト名を間違えておりました。
サブフォームに「伝票ID」というオブジェクト(TextBox)は存在しておらず、実際のオブジェクト名は「ID」になっていました。これはUIデザインを同時進行で編集していたため、どこかで操作ミスを起こしていたと思います。
提示していたソースコードでは参照エラーが出て、私以外では検証してもエラーが出ないのも当然です。

また、質問当時に頭が煮詰まって休憩中でPCから離れており、スマートフォンにて記憶を頼りにソースコードを提示していたため、不必要に検証させてしまった事についてお詫び申し上げます。

オブジェクト名を間違えていたことに気付かなった原因として、DictionaryやCollection等ではインテリセンスが効かない方法であったため、コードもオブジェクトも間違えていないと強い思い込みをしたことによる検証不足です。

相当にスパゲッティな処理と開発手順であったことを反省し、「多重 New Form」の使いどころも考え直す事にしました。

「リンク親フィールドをリンク子フィールドを設定しておくという案」についてですが、
メインフォームにレコードソースを設定していないため、埋め込み(サブフォーム)に対してリンク親フィールド及びリンク子フィールドを設定することが出来ません。
レコードソースを設定していない理由については、忘れてしまいました。
恐らく、伝票フォームを新規登録として開きたい場合では、
```VBA
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
'多重フォーム状況下では、別のウィンドウ(Hwnd)に対して処理が掛かってしまう
```
ということがありますので、個別に代入するしかないと考えました。
これ以上の事は考えておりませんでした。

[sousuke]

hatena19氏もおっしゃっていますが「リンク親フィールド」を設定するのにメインフォームにレコードソースは必須ではありません。「リンク子フィールド」はサブフォームのレコードソースにあるフィールド名をする必要がありますが、「リンク親フィールド」はフィールド名である必要がなくテキストボックス名などを指定できます。「リンク親フィールド」に「Tempvars!テスト」など書いても普通に動きます。
また「DictionaryやCollection等ではインテリセンスが効かない方法」であるのは
単純にキャストしてないからです。汎用性は乏しいですが伝票フォームの「コード保持」を［はい］にして

dim f as Form_伝票フォーム
' Dictionaryからキャストして受け取る
set f = .Item(key)
with f
(ここでドットを打てば伝票フォームのインテリセンスがききます。)

こんな感じで書けばインテリセンスききますし存在しないプロパティやコントロールを
書けばコンパイル段階でエラーを吐きます。

[jkjksan]

＞「リンク親フィールド」を設定するのにメインフォームにレコードソースは必須ではありません。
直打ちすれば入るんですね、初めて知りました。

キャストについても閃きませんでした。

質問の内容としては、教えていただいた意図した動作を出来るようになりましたので締めようと思います。

おかげさまで非常に助かりました。ありがとうございました。