フォームからレポートを開くときに値の引き渡しでNULLになる

Question

フォームからレポートを開くときに、複数の値を引き渡すために以下の通りにイベントプロシージャにコーディングしています。

***************************************************************************

呼び出し元：

strArgument = Me.Name & "," & Me.ID

DoCmd.OpenReport "OrderReceiptReportByID", acViewPreview, , , , strArgument

***************************************************************************

呼び出し先：

Private Sub Report_Open(Cancel As Integer)

Dim strArgument As String

Dim tmp As Variant

strArgument = Me.OpenArgs

tmp = Split(strArgument, ",")

***************************************************************************

呼び出し元では値がセットされてレポートを呼び出しているのですが、呼び出されたレポートのOpenArgsの値はNULLになってしまいます。

何が原因でフォームからレポートに値が引き渡されないのか、お教えいただけないでしょうか。

よろしくお願いします。

Answer 1

hatena19さんへ

自己解決いたしました。

レポートを作成してから、レポート名を変更したときに、レポートの表題が変更前の名前になっていました。

表題をレポート名にあわせたところ、OpenArgsに値が入るようになりました。

OpenReportはレポート名で呼び出して、呼び出されたレポートの表題名にOpenArgsがセットされるようです。

お騒がせしました。

Answer 2

ブレークポイントを設定して、呼び出し元に値が入っていて、呼び出し先でNULLになっていることは確認済みでした。

デバッグの結果は以下の通りです。

呼び出し元strArgument：OrderReportSearchForm,6

呼び出し先Me.OpenArgs：

ちなみに、10日ほどまえにOffice365soloでインストールして、ACCESS2013を使用しています。

環境設定等が影響しているのでしょうか？

Answer 3

コード自体には問題なさそうです。

下記のようにデバッグ用コードを埋め込んで、実行してみてください。

その後、Ctrl+Gで、イミディエイトウィンドウを表示させて、そこに出力されている結果を確認してください。

どうなりますか。

呼び出し元：

strArgument = Me.Name & "," & Me.ID

Debug.Print "呼び出し元strArgument：" & strArgument 'デバック用コード

DoCmd.OpenReport "OrderReceiptReportByID", acViewPreview, , , , strArgument

呼び出し先：

Private Sub Report_Open(Cancel As Integer)

Dim strArgument As String

Dim tmp As Variant

Debug.Print "呼び出し先Me.OpenArgs：" & Me.OpenArgs 'デバック用コード

strArgument = Me.OpenArgs

tmp = Split(strArgument, ",")