別フォームのコマンドボタンに求めた値をコピーしたい

質問

過去の質問を検索しても求めたい答えは導き出せなかったので質問します。

動作としては、メニューフォームから別のフォームのテキストボックスに値を導入したいのですが・・・。

メニューフォームのコマンドボタン

DoCmd.OpenForm "メニューフォーム"

Dim i As Variant
i = DMin("空き番号フィールドID", "空き番号抽出クエリ")
テキスト1 = i 'ここの i を別フォームのテキストボックスに値を入れたいです。

何かいい案はありますでしょうか？
別フォームが開いたその時に既にテキスト１に i の値が入っているのが理想です。
どうぞよろしくお願いします

回答No.1

Dxak · ベストアンサー

OpenArgs プロパティ
http://office.microsoft.com/ja-jp/access/HA012327731041.aspx

渡す数が、少なければ、これで、渡せますよ

DoCmd.OpenForm "メニューフォーム",,,,,,1

後は、

Me.テキスト１ = Me.OpenArgs

を、どのタイミングで入れるかは・・・フォームの作り方次第かな？

補足

回答ありがとうございます。
Me!テキスト1 = Me.OpenArgs
を試してみましたがフィールドが正しくありません。となりました
少し調べて
Me!テキスト1 = Parent.OpenArgs
というのも試してみましたがプロパティの参照が正しくありませんとなりなりました。
OpenArgsとはサブフォーム用なのでしょうか？
こちらの環境としては
メインフォームで求めた値をフォーム１（別フォーム）のテキストボックス（テキスト１）に飛ばしたいというものなのですが、できますでしょうか？

回答No.3

Dxak

＃１です

> サブフォームではなくまったく別のフォームが開く感じです。
> 別フォームのテキスト１というのは非連結のものです。

なら、＃１で、記載したとおりで、普通、動作しますね
質問者さまが、記載した
> Me!テキスト1 = Me.OpenArgs
私が、記載した
> Me.テキスト1 = Me.OpenArgs
でもね
これを、どこのイベントに記載しました？

データベース オブジェクトのイベントの順序
http://office.microsoft.com/ja-jp/access/HA102389881041.aspx

にあるように、フォームを開いた後、順番にイベントが、動作します
Open
Load
Resize
Activate
Current
と、言う順番ね
Openに記載しても、非連結なら、大丈夫だと思いますが・・・
フォームの作り方によって、記載したほうが良いところが、微妙に変わってくるよ

お礼

度々ご回答ありがとうございます。
こちらが勘違いしていました＞＜
似てる２つのフォームがありましてテキストボクッスの場所とかも同じのものなのですが、開きたいフォームとは違うフォームに書き込んでいました！
ちなみにフォーム１には
Private Sub Form_Load()
Me.テキスト1 = Me.OpenArgs
End Sub
でした。最後までお付き合いいただきありがとうございました！

回答No.2

Dxak

＃１です

> OpenArgsとはサブフォーム用なのでしょうか？

？？？
別フォームって、別のフォームじゃなくて、サブフォームの事？
それでは、取り扱いが違うよ
相関関係が、よく判らないけど、すべての相関関係と、どのフォームから、どのフォームへ値を引き渡して、その時にフォームが開いているか？どうか？の問題から、いろいろ条件が、あるからね
どう言う条件でも、値は引き渡せるけど・・・その相互関係の把握出来ないと、回答がね

補足

回答ありがとうございます。
混乱させてしまって申し訳ありません。
サブフォームではなくまったく別のフォームが開く感じです。
別フォームのテキスト１というのは非連結のものです。