別レポートにある値の表示について

質問

いつもお世話になっております。
　別のレポートに配置してある合計値を表示したいと考えていますが、やり方が分からないのでご教示をお願いいたします。

【R_イベントＡ】
地区　　参加者
a　　　　2
b　　　　5
c　　　　1
合計　　 8（テキストボックス名：イベントＡ合計）

【R_イベントＢ】
地区　　参加者
d　　　　2
e　　　　3
f　　　　 4
合計　　 9（テキストボックス名：イベントＢ合計）
イベントＡ合計　8（テキストボックス名：イベントＡ合計リンク）

　このように「R_イベントＢ」に、別レポート「R_イベントＡ」に配置してある「イベントＡ合計」の値を表示したいと思います。
　どうかご教示をお願いいたします。

回答No.18

piroin654 · ベストアンサー

訂正です。
No17の真ん中あたりで、

＞「R_イベントＢ」のレコードソースにすることはできます。

は、

「R_イベントＢ」の「R_イベントＢ」の「イベントＡ合計リンク」の
コントロールソースにすることはできます。

です。

お礼

piroin654さん、こんにちは。
　おかげさまで、いずれの方法でも値が代入されました。
　２パターンお教えいただきましたが、状況によっていずれかを選択したいと思います。
　長文で何度もお教えいただき、本当にありがとうございました。
　今後またなにかございましたら、ご教示をお願いいたします。

回答No.7

piroin654

「R_イベントＡ」のデータがvarNumに入っている確認のために、

「R_イベントＡ」の閉じるときのイベントに

Private Sub Report_Close()
　　MsgBox varNum
End Sub

を設定してみてください。
これで、「R_イベントＡ」を開き、「R_イベントＡ」にデータが
存在しているのおを確認し、「R_イベントＡ」をとじると
メッセージボックスにデータが表示されるはずですが。

なお、「R_イベントＡ」のレポートフッターのフォーマット時の
イベントに設定した、

Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
varNum = Me!イベントＡ合計
End Sub

の、

　　varNum = Me!イベントＡ合計

このようになっていますか？

　　Me!イベントＡ合計 =　varNum

のようになってはいないですよね？

もし、これでデータが表示されないようであれば、「R_イベントＡ」のレポートフッターの
印刷時のイベントに以下を設定し、

Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer)
　　varNum = Me!イベントＡ合計
End Sub

R_イベントＡ」のレポートフッターのフォーマット時のイベントの

　　varNum = Me!イベントＡ合計

をコメントアウトしておいて試してみてください。

回答No.6

piroin654

標準モジュールに設定した変数「varNum」にデータが
入っているか確認のために「R_イベントＢ」を開くときの
イベントに以下を設定してみてください。
「R_イベントＢ」を開いてメッセージボックスにデータが表示されれば
「R_イベントＢ」でのコードの設定に問題があることになります。

Private Sub Report_Open(Cancel As Integer)
　　MsgBox varNum
End Sub

上記のコードは正常にデータがレポートに表示されるように
なれば必要のないものなので、削除します。
ところで、No3で説明をした中で、「R_イベントＢ」を閉じるときの
コード、

Private Sub Report_Close()
　　varNum = ""
End Sub

の

varNum = ""

を、「R_イベントＢ」を開くときのイベントに設定している、
というようなことはないでしょうね？

補足

piroin654さん、おはようございます。
　何度もお忙しい中、お教えいただきまして誠にありがとうございます。
　「R_イベントＢ」を開くときのイベントにコードを入れて開きましたが、空欄となっていました。
　なお、「varNum = ""」は、閉じるときのイベントに設定しています。

回答No.5

piroin654

失礼しました。
「イベントＡ合計リンク」を設定している場所をレポートフッター
であろうと先読みしていましたが、もし「イベントＡ合計リンク」
を設定している場所がレポートフッターではなく、他のグループフッター
たとえば、グループフッターの名前が「グループフッター1」
ならば、そのグループフッター1のフォーマット時のイベントで、

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
　　Me!イベントＡ合計リンク = Nz(CLng(Val(varNum)), 0)
End Sub

のように設定してください。

もし、うまくいかないならば「イベントＡ合計リンク」を設定している
場所を示してもらえますか。

補足

piroin654さん、再度お教えいただきありがとうございます。
　「イベントＡ合計リンク」を設定している場所は、「R_イベントＢ」のレポートフッターです。
　何度もお教えいただき申し訳ございませんが、よろしくお願いいたします。
　デザインビュー、モジュール画面のコピーを撮って添付しようと思いましたが、補足では送ることができないんですね。

回答No.4

piroin654

No3です。書き忘れましたが、必ず先に「R_イベントＡ」を開かなければ
「イベントＡ合計」の値を取得できませんから、順序としては、

　　「R_イベントＡ」を開く
　　　　　　↓
　　「イベントＡ合計」の値をvarNumに格納
　　　　　　↓
　　「R_イベントＢ」を開く
　　　　　　↓
　　「R_イベントＢ」の「イベントＡ合計リンク」にvarNumの値を
　　表示、すなわち「R_イベントＡ」の「イベントＡ合計」を表示。

という流れになります。　

なお、「R_イベントＡ」を開いた後、「R_イベントＡ」を
閉じてから「R_イベントＢ」を開いてもデータは取得できると
思います。

回答No.3

piroin654

他のレポートのデータを参照するには少し面倒ですが、以下のような
方法で参照することはできます。

まず、標準モジュールを表示し、以下を設定します。
（標準モジュールに以下だけを書きます）

　　Public varNum

次に、「R_イベントＡ」のコード表を表示して、レポートのフォーマッタ時の
イベントに、以下を設定します。

Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
　　varNum = Me!イベントＡ合計
End Sub

続いて、「R_イベントＢ」のコード表を表示し、フォーマット時と
レポートを閉じるときの二つのイベントに以下のように設定します。

Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
　　Me!イベントＡ合計リンク = Nz(CLng(Val(varNum)), 0)
End Sub

Private Sub Report_Close()
　　varNum = ""
End Sub

以上です。わからないところがあれば補足してください。

補足

piroin654さん、お教えいただき誠にありがとうございます。
　モジュールを設定し、R_イベントＡを開いたあとにR_イベントBを開きましたが、イベントＡ合計リンク を見ると空欄でした。
　どうしたらよろしいでしょうか？
　すみませんが、ご教示をお願いいたします。

回答No.2

chayamati

こんばんは
レポートは他のレポートの情報は参照出来ませんが、
開いているフォームの情報は参照できます。
----------------------------------------------------------------------------------------------------
R_イベントAのレコードソースと同じレコードソースで
フォーム（F_イベントA）を新規に作成して
こちらを参照することにしては如何でしょう。
添付は、フォームヘッダーに参加者の合計のテキストボックス[合計]と
R_イベントB]を開くコマンドボタンを配置した「F_イベントA」と「R_イベントB」のデザインビューです
※フォームのボックスを参照するには、Fforms]![F_イベントA]![合計]とします

お礼

chayamatiさん、おはようございます。
別の方法での参照の仕方をお教えいただきまして、ありがとうございます。
早速試してみます。

回答No.1

chayamati

こんにちは
＞別のレポートに配置してある合計値を表示したい
☆テーブル間の情報のやり取りは出来ません。
　もしイベント毎にテーブルを用意されているならば
　テーブルを統一する方向でお考え下さい
蛇足
　新規作成のレポートデザインでナビゲーションウィンドの
　R_イベントA、R_イベントBをレポートヘッダーへドラッグ

お礼

chayamatiさん、ご回答ありがとうございます。
レポートのレコードソースにしてある以外のデータは、そもそも表示することはできないのですね。
教えていただきありがとうございました。