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

質問

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

【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.17

piroin654

「R_イベントＡ」のレコードソースがフォームやクエリの
込み入った計算や集計をしたものである場合や、レポート上で
同様に計算や集計を行ったものが合計として表示される仕組みならば
「R_イベントＡ」を開くことで「イベントＡ合計」という結果を
求める必要があります。
したがって、VBAで「R_イベントＡ」を開きデータを確定し、
結果を「R_イベントＢ」に渡す必要が出てきます。

あるいは、コードでそれらの計算ができるならばコードでの
計算結果を「R_イベントＢ」にコードで渡すことになります。
この場合は「R_イベントＡ」を開く必要はないでしょう。

また、もし単に「R_イベントＡ」のレコードソースが何の加工も
していないテーブルならばクエリで集計結果だけを取り出し、それを
「R_イベントＢ」のレコードソースにすることはできます。ただし、
レポートが受け入れてくれればですが。たとえば、「R_イベントＡ」の
レコードソースを「T_イベントＡ」という名前のテーブルとします。
テーブルのフィールドに質問で提示されている「参加者」があるとします。
データ型は数値とします。以下のようなSQL文のクエリ、

SELECT Sum(T_イベントＡ.参加者) AS 参加者の合計 FROM T_イベントＡ;

を作り、その名前を「Q_イベントＡ合計」とします。そして、

　　=DLookUp("参加者の合計","Q_イベントＡ合計")

を「R_イベントＢ」の「イベントＡ合計リンク」プロパティでコントロールソース
に設定します。これでレポートが受け入れれば「R_イベントＡ」を開かずに
データが表示されるはずです。

どうしても「R_イベントＡ」を開いてデータを確定する必要があるならば、
フォームの「R_イベントＢ」を開くボタンクリックのイベントで、

Private Sub コマンド1_Click()
　　DoCmd.OpenReport "R_イベントＡ", acViewPreview
　　DoCmd.Close acReport, "R_イベントＡ"
　　DoCmd.OpenReport "R_イベントＢ", acViewPreview
End Sub

のようにして「R_イベントＡ」を開いて閉じて、データを確定させて、
「R_イベントＢ」を開くということもできますが、ただしうまくいけば
ですが。一応確認はしていますが。もちろんこの場合は「R_イベントＢ」
のイベントＡ合計リンク」プロパティでコントロールソースをコードで
設定する場合です。

回答No.16

piroin654

たびたびすみません。
No15のコードの中で、

Me!総合計.ControlSource = "=" & [varNum] & ""

となっていましたが、

Me!イベントＡ合計リンク.ControlSource = "=" & [varNum] & ""

に訂正します。テキストボックスの名前が間違っていました。

補足

piroin654さん、何度も何度もお世話になり大変ありがとうございます。
　おかげさまで、今度は代入できるようになりました。本当にありがとうございました。
　「R_イベントＢ」を印刷する時は先に「R_イベントA」を開いて、次に「R_イベントＢ」を開くモジュールを作成したいと思います。
　誠に勝手ながら再度ご質問ですが、「R_イベントA」を先に開かずに、直接「R_イベントB」を開いて代入する方法はあるのでしょうか？
　何度も申し訳ございませんが、ご教示をよろしくお願いいたします。

回答No.15

piroin654

No14の訂正です。
エラー処理がうまく機能しないので、以下のように
してみてください。

Private Sub Report_Open(Cancel As Integer)
　　If IsEmpty(varNum) Then
　　　　Exit Sub
　　End If

　　If IsNull(varNum) Then
　　　　Exit Sub
　　End If

　　If varNum = "" Then
　　　　Exit Sub
　　End If

　　Me!総合計.ControlSource = "=" & [varNum] & ""

End Sub

「R_イベントＡ」を開かずに、いきなり「R_イベントＢ」を開いた時の
エラー処理です。

回答No.14

piroin654

「R_イベントＢ」を開くときのイベントで、
コントロールソースを変更します。

Private Sub Report_Open(Cancel As Integer)
　　If Not IsEmpty(varNum) Then
　　　　Me!イベントＡ合計リンク.ControlSource = "=" & [varNum] & ""
　　End If
End Sub

これでどうでしょうか。

回答No.13

piroin654

「R_イベントＢ」をレポートビュー、あるいは印刷プレビュー
で開いても結果はおなじですか？

回答No.12

piroin654

テキストボックスの「イベントＡ合計リンク」のプロパティが
どのようになっているのかわからないので、
一度、【R_イベントＢ】の「イベントＡ合計リンク」を削除して
新たにテキストボックスを設定し、その名前を「イベントＡ合計リンク」
にして、確認してみてください。

補足

piroin654さん、こんばんは。
新たにテキストボックスを設定し、その名前を「イベントＡ合計リンク」にしましたが駄目でした。
varNumにはデータが格納されているのに、イベントＡ合計リンクのテキストボックスに代入にならないのは、代入の仕方が悪いのでしょうか。

回答No.11

m3_maki

横から失礼します。

> レポートは他のレポートの情報は参照出来ませんが、

そんことはありませんよ。

【R_イベントＡ】が開かれているなら
「イベントＡ合計リンク」 の コントロールソースを
=[Reports]![R_イベントＡ]![イベントＡ合計]
とするだけです。
VBA は不要です。

【R_イベントＡ】が開かれていないとエラー表示されます。
これを避ける必要があるなら、
「イベントＡ合計リンク」 の コントロールソースは空にして

Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
　With CurrentProject.AllReports("R_イベントＡ")
　　If .IsLoaded Then
　　　If .CurrentView <> acCurViewDesign Then
　　　　Me.イベントＡ合計リンク = [Reports]![R_イベントＡ]![イベントＡ合計]
　　　Else
　　　　Me.イベントＡ合計リンク = Null
　　　End If
　　End If
　End With
End Sub

補足

m3_makiさん、こんばんは。
　できれば、【R_イベントＡ】を開かないで表示したいのでモジュールを設定しましたが、テキストボックスの「イベントA合計リンク」は 空欄となってしまいました。

回答No.10

piroin654

「R_イベントＢ」において、
テキストボックスの名前は、「イベントＡ合計」ではなく、
「イベントＡ合計リンク」でしたね。
ひょっとしてすべて「イベントＡ合計リンク」ではなく、
「イベントＡ合計」としていましたか。

「R_イベントB」のレポートフッターの印刷時のイベントで

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

あるいは、「R_イベントB」レポートフッターのフォーマット時
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
　　Me!イベントＡ合計リンク = varNum
End Sub

上記でもう一度確認してみてください。

補足

piroin654さん、何度も申し訳ございません。
　やっぱり空欄となってしまいます。
　一応、教えていただいた内容と同じではありますが、入力してあるモジュールをコピーしました。
ーーーーーー「R_イベントB」のモジュールーーーーーーーー
Private Sub Report_Close()
varNum = ""
End Sub
-----------------------------------------------------------------------------------
Private Sub Report_Open(Cancel As Integer)
MsgBox varNum
End Sub
-----------------------------------------------------------------------------------
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
Me!イベントＡ合計リンク = varNum
End Sub
-----------------------------------------------------------------------------------
Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer)
Me!イベントＡ合計リンク = varNum
End Sub

回答No.9

piroin654

「R_イベントB」のレポートフッターの印刷時のイベントで

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

を設定するとどうなりますか？

回答No.8

piroin654

No7の続きで、
レポートの構造が分からないので一応考えられるレポートの
イベントを網羅しておきます。

「R_イベントＡ」のレポートのページフォーマット時のイベントで、
以下のコードを設定してみる。

Private Sub Report_Page()
　　varNum = Me!イベントＡ合計
End Sub

レポートを閉じるときのイベントに
varNum = Me!イベントＡ合計
を追加して以下を設定してみる。

Private Sub Report_Close()
　　varNum = Me!イベントＡ合計
　　MsgBox varNum
End Sub

どれかでデータが表示されると思いますが。

補足

piroin654さん、何度もお世話になり、ありがとうございます。
　さて、お教えいただいたとおり試したところ、レポートを閉じるときのイベント「varNum = Me!イベントＡ合計」でメッセージボックスにデータが表示となりました。ついでに、「R_イベントB」の開くときのイベントでも試しましたが、同じようにデータが表示となりました。「R_イベントＡ」のレポートのページフォーマット時イベントでは、空欄でした。
　しかし、肝心の「R_イベントB」に配置してあるイベントＡ合計リンクは、空欄のままでした。