ACCESSでフォーム入力→レポート出力したい

質問

ACCESSでフォーム入力→レポート出力したい

OS:XP,ACCESS2000
フォームのテキストボックスに入力した文字をレポートのテキストボックスに表示したい。

フォーム：
ファイル名は「フォーム１」で、その中に作ったテキストボックス名は「入力データ」
コマンドボタン名は「レポート出力」

レポート：
ファイル名は「レポート１」で、その中に作ったテキストボックス名は「出力データ」

フォーム１とレポート１を立ち上げてフォームのテキストボックスにデータを入力した後、
コマンドボタンを押してもレポート１のテキストボックスに入力したデータが表示されません。
レポート１を選択した後にデザインボタンを押し、その後にもう一度立ち上げると、
なぜかデータが書き込まれています。
コマンドボタンを押したのと同時にレポート１にデータが表示されるようにするには
どうすれば良いですか？

プログラムは以下の様になっております。

(1)クラスオブジェクト下

Private Sub コマンドボタン_Click()
Call レポート書き出し()
End Sub

(2)標準モジュール下

Public Function レポート書き出し()

Dim F As Form
Dim R As Report

Set F = Forms![フォーム１]
Set R = Reports![レポート１]

R![出力データ] = F![入力データ]

End Function

回答No.1

noyuo · ベストアンサー

フォームとレポートを開いた後に、フォームに入力した文字をレポートに反映させたいと
の質問だと理解しました。
レポートも予め開いておくのには、なにか事情があるかと思いますが、
コマンドボタンのクリックイベントで、
docmd.OpenReport　レポート１
として、開くというのでは回答になりませんか？

補足

＞レポートも予め開いておくのには、なにか事情があるかと思いますが

そうしないと、
Set R = Reports![レポート１]
で、エラーが出るからです。

あらかじめ開いておかなくても、
DoCmd.OpenReport "レポート１", acViewPreview
を追加すれば良いのですが、いずれにせよ、
Set R = Reports![レポート１]
の前に置かなければなりません。

レポートの更新手順がわかれば良いのですけどね。
ありがとうございました。