Access VBA エラー2448について

初めて投稿します。

Access2013にてレポート出力の為のフォーム、レポートを作成しております。

Form：F_01
①txt_A／受付番号
②txt_B／担当者名
③txt_C／日付

↓

Report：R_99
❶txt_A／受付番号
❷txt_B／担当者名
❸txt_C／日付

サブレポート：
受付番号に紐づいた明細表示

フォームからレポートへこれらの情報を受け渡すのにOpenArgsを使いしました。

Form側**********************************************
Private Sub cmd_PrintPVW_Click()
Dim sDATA As String

sDATA = Me.txt_NO.Value & "," & _
Me.txt_KPPSN.Value & "," & _
Me.txt_Customer.Value & "," & _
Me.txt_ANKEN.Value & "," & _
Me.txt_RQDate.Value

DoCmd.OpenReport "R_Order", acViewPreview, , , , sDATA

End Sub

Report側**********************************************
Private Sub Report_Open(Cancel As Integer)
Dim rDATA() As String

If IsNull(Me.OpenArgs) = True Then
Cancel = True
Exit Sub
End If

rDATA = Split(Me.OpenArgs, ",")

Me.txt_JNO = rDATA(0)
Me!txt_KPPSN = rDATA(1)
Me.txt_Customer = rDATA(2)
Me.txt_ANKEN = rDATA(3)
Me.txt_RQDate = rDATA(4)

End Sub

この様にしてみたのですが、いざレポートプレビューを開こうとすると表題のエラーが出て
「このオブジェクトに値を代入する事はできません」と言われてしまいます。

どなたかご教示願えれば幸いです。
どうぞよろしくお願い致します。

No.1 ベストアンサー 回答者： xMAKISHIx 回答日時： 2015/10/28 09:46

レポートに値は代入できなかったと思います。

どうしてもVBAで行いたいのであればレポートをデザインで開きラベルを書き換えて下さい。

フォームの値を持ってくるだけなら
レポートのテキストボックスのコントロールソースに
=[Forms]![F_Main]![txt_NO]
と入れるだけでフォームの値を持ってこれます。

この回答へのお礼

ご回答ありがとうございます。
ご指導通り設定し、無事解決しました。
とても助かりました。<m(__)m>

お礼日時：2015/10/29 15:10