Access VBA カレントレコード 移動エラー

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
Access VBAにて入力システムを作成しています。
『F01_メイン（ナビゲーションフォーム）』にて『F02_仕入（サブフォーム）』を表示させ、さらに、データの追加の際に、『F02-1_仕入登録（サブフォーム）』を起動し、『F02-1_仕入登録』にて『F02_仕入』のカレントレコードを移動させたいです。

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

移動用のボタンをクリックした際に、

実行時エラー2489
オブジェクト'F02_仕入'が開いていません。

となってしまいます。
ナビゲーションフォームに表示したサブフォームに対してカレントレコード移動の処理を実行する場合は、どのように修正すればよろしいでしょうか？

該当のソースコード

DoCmd.GoToRecord acDataForm, "F02_仕入", acNext

Answer 1

ご希望の処理に、ナビゲーションフォームは馴染みません。

ナビゲーションフォームはフォームの切り替えをマクロやVBAなしに自動でしてくれますが、
標準の動作以外のことをしようとするのは、自動処理とバッティングしてうまくいかないか、
複雑なことになります。

メニューフォームから、『F02_仕入』→『F02-1_仕入登録』をポップアップ（ダイアログモード）で呼び出すか、
メインフォームにタブコントロールを配置して、その各ページにそれぞれのフォームをサブフォームとして配置するという設計にした方がシンプルにできます。

ナビゲーションフォームは捨てて、上記の方針で一から作り直すことをお勧めします。

それで、行き詰ったら、その時点で再質問してください。