検索フォームで検索したIDのサブフォームへの入力について

実現したいこと

ここに実現したいことを箇条書きで書いてください。

検索フォームで検索したIDを発注フォームのサブフォームに入力したい

前提

今現在、発注フォームの明細のサブフォームのIDのテキストボックスをダブルクリックして検索フォームを呼び出し、検索フォームで検索したIDのテキストボックスをダブルクリックして現在選択中のサブフォームのレコードに入力するシステムを作成しようとしております。
しかし、検索フォームを開いてIDを検索、抽出するまではできるのですが、そのIDのテキストボックスをダブルクリックした場合、サブフォームが開いていないという表示が出ます。
このエラーを解決するにはどうすればよろしいのでしょうか。

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

実行時エラー'2450" 参照されているフォーム'サブフォーム'が見つかりません。

該当のソースコード

'サブフォームのIDをダブルクリックして検索フォームに飛ぶ Private Sub ID_DblClick(Cancel As Integer) DoCmd.OpenForm "検索フォーム" End Sub ’検索フォームで検索して抽出したIDをダブルクリックしてサブフォームに入力する Private Sub ID_DblClick(Cancel As Integer) Forms!サブフォーム!ID.Value = Me.ID.Value End Sub