アクセスＶＢＡ 変数を渡したい

フォーム１のcmd_ボタンをクリックして、フォーム2を開く際に、変数を渡したいのですが、どう渡せばいいのでしょうか？

Private Sub cmd_ボタン_Click()

myStr = "あああ"

DoCmd.OpenForm "フォーム2" (myStr)

End Sub

とすると、エラーになります。

文の書き方を教えてください。

No.1 回答者： -Ken-Ken- 回答日時： 2014/10/19 00:23

DoCmdオブジェクトのOpenFromメソッドの引数はこんな風になっています。

DoCmd.OpenForm FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs
このうちで最後のOpenArgsが開く対象のフォームに渡すデータです。

開いたフォームの側では、
Me.OpenArgs
にこのデータが入っています。

この↓ウェブページに具体例が載っていますから、ご覧になられると良いでしょう。
http://www.happy2-island.com/access/gogo03/capte …

あるいは、VBAエディタの画面でカーソルをOpenFromにあててF1を押せば、このメソッドの説明を読むことができます。