Access VBA フォームの参照エラー

Question

前提・実現したいこと

サブフォームに設置しているボタンをクリックすると、メインフォームのテキストボックスにテキストを出力するシステムを作成しています。

発生している問題・エラーメッセージ

Forms!にてフォーム名を記述したら、参照エラーになってしまいました。

実行時エラー'2450'
参照されているフォーム'F02_2_注文'が見つかりません

該当のソースコード

  '『あ』で始まる商品名を出力する
  'カウント用変数の初期値を指定する
  ai = 1: aj = 1
  '商品名の読みが『あ』以外になるまで繰り返す
  Do While Left(Stock(ai, 2), 1) = "あ"
    Select Case ai
      Case 1
        Forms!F02_2_注文!Txt_B1.Value = CStr(Stock(ai, 0))
        Forms!F02_2_注文!Txt_C1.Value = CStr(Stock(ai, 1))
      Case 2
        Forms!F02_2_注文!Txt_B2.Value = CStr(Stock(ai, 0))
        Forms!F02_2_注文!Txt_C2.Value = CStr(Stock(ai, 1))
      Case 3
        Forms!F02_2_注文!Txt_B3.Value = CStr(Stock(ai, 0))
        Forms!F02_2_注文!Txt_C3.Value = CStr(Stock(ai, 1))
    End Select
    If aj = 3 Then
      Exit Do
    End If
    ai = ai + 1: aj = aj + 1
  Loop

補足情報（FW/ツールのバージョンなど）

F02_2注文に設置しているサブフォームのF02_3_注文ボタンのボタンをクリックした際に動作させたいです。
また、F02_2注文を開くときは、F02_0_注文画面のナビゲーションウィンドウ形式にて表示しています。

Answer 1

サブフォームから参照しているなら、元のコードでも参照できそうですけど。
Me.Parent!フィールド名
で参照してみてください。

後はそのフォーム名のスペルミス

Comments

[Yoshikun_0945]

ナビゲーション型をやめ、通常のフォームから上記の参照を実行してみたら、やることが出来ました。