サブフォームを複数持つフォームを、一つのキーワード取得用フォームから印

質問

サブフォームを複数持つフォームを、一つのキーワード取得用フォームから印刷できますか。

印刷用フォームを作成しました。

その中には、基本情報とサブ情報1、サブ情報2…というような複数のサブフォームがあります。

基本テーブルは、　商品番号、商品名　内容　というようなフィールドがあります。

サブ1テーブルは、　商品番号、日付Ａ

サブ2テーブルは、　商品番号、日付Ｂ

キーワード取得用フォームに、商品番号と日付を入れてコマンドボタンを押すと、サブフォームを複数持つフォームに、

(1)基本テーブルの内容と、

(2)それぞれのサブフォームには取得した日付の日付情報（複数レコードもあり）

を入れて印刷したいのです。

こんなことは可能でしょうか。
コマンドボタンにクリック時のイベントを書けばいいような気もするのですが、方法がわかりません。

教えてください。よろしくお願いいたします。

回答No.2

piroin654 · ベストアンサー

情報いただきありがとうございます。
PCの不具合で遅くなりました。

>どこをどうすれば、サブクエリを日付Ｘで選択するように
>できますでしょうか。

サブクエリとはサブフォームのレコードソースの
ことですね。

検討した結果、フォームと同様に、レポートにも
サブレポートを設定するのが一番自然だと思われます。

いただいた情報などでシュミレーションをして
みました。二つほどあります。一つはメインレポート、
サブレポート二つの構成です。もう一つはサブレポート
二つに情報が入りきらない場合はレポートを二つに
分割するというものです。二つに分割するのは
それほどでもないのでまず一つにしたものを出して
みます。
そのときの概略を述べますと、

(1)
キーワード取得用フォームに商品番号入力コンボボックスと
日付Ｘ入力テキストボックスと送信ボタンを設置。
コンボボックスは、値集合ソースに、

SELECT 基本テーブル.商品番号, 基本テーブル.商品名
FROM 基本テーブル;

のSQL文を入れる。

列数を2。
列幅を2cm、2cm。
とする。

送信ボタンのクリックイベントを、

Private Sub 送信ボタン_Click()
DoCmd.OpenReport ("レポート1"), acViewPreview
End Sub

とする。

(2)
クエリを二つ作成。それぞれQサブ1、Qサブ2とする。
以下そのSQL文。

Qサブ1：(レポートのレコードソースにします)

SELECT サブ1テーブル.商品番号, サブ1テーブル.日付Ａ, サブ1テーブル.日付Ｘ
FROM 基本テーブル INNER JOIN サブ1テーブル ON 基本テーブル.商品番号 = サブ1テーブル.商品番号
WHERE (((サブ1テーブル.商品番号)=[Forms]![キーワード取得用フォーム]![商品番号入力コンボボックス]) AND ((サブ1テーブル.日付Ｘ)=[Forms]![キーワード取得用フォーム]![日付Ｘ入力テキストボックス]));

Qサブ2：(レポートのレコードソースにします)

SELECT サブ2テーブル.商品番号, サブ2テーブル.日付B, サブ2テーブル.日付Ｘ
FROM 基本テーブル INNER JOIN サブ2テーブル ON 基本テーブル.商品番号 = サブ2テーブル.商品番号
WHERE (((サブ2テーブル.商品番号)=[Forms]![キーワード取得用フォーム]![商品番号入力コンボボックス]) AND ((サブ2テーブル.日付Ｘ)=[Forms]![キーワード取得用フォーム]![日付Ｘ入力テキストボックス]));

(3)
レポートを三つ、一つはメインレポート、

メインレポート(R_全体書類)：

メインレポートのレコードソースを以下に設定
クエリとして保存してクエリ名でレコードソース
に設定しても良いです。一応Q基本としています。

Q基本：

SELECT 基本テーブル.商品番号, 基本テーブル.商品名, 基本テーブル.内容
FROM 基本テーブル
WHERE (((基本テーブル.商品番号)=[Forms]![キーワード取得用フォーム]![商品番号入力コンボボックス]));

メインレポートに所定のテキストボックスを配置。
レコードソースを基にコントロールソースを設定。

メインレポートに二つのサブレポートコントロール
を設定。
ページフッター以下の白い余白はページフッター
のほうに引き上げて余白を見えなくする。

(4)
サブレポート：
メインレポートと同様に作成。

それぞれのレコードソースにQサブ1、Qサブ2を設定し、
詳細の部分にテキストボックスを設定。それぞれの
コントロールソースをレコードソースから設定。
ページフッター以下の白い余白はページフッター
のほうに引き上げて余白を見えなくする。

ますは、このような感じでフォーム、および
レポートを作成してみてください。

お礼

できました！　感激です！

ありがとうございました！m(_ _)m

とてもわかりやすく親切に、丁寧に教えていただきまして、本当に感謝です。

ここまでできると欲が出てきて、キーワード取得用フォームに商品番号が
入れられた瞬間に、動的に日付Ｘがリストから選択できるようになると
もっと使いやすいと思ったりしています。

でも、この問題は解決しましたので別の問題として質問することにします。

（もし可能であれば、そちらの方も教えていただけると大変ありがたいです。）

本当にどうもありがとうございました。m(_ _)m

回答No.1

piroin654

確認ですが。
(1)
内容からして印刷用フォームとキーワード取得用フォーム
に分離した理由はどのようなことで？

(2)
キーワード取得用フォームで取得したキーワードで
印刷対象となる印刷用フォームのデータはフォームに
表示されているデータ全体、あるいはその一部、
あるいはフォームに表示されているデータ以外の
データを他のテーブルから取得する、など?

基本的にレポートにフォームの情報を印刷する場合、
レポートにクエリやSQL文をレコードソースとして
仕込んでおき、そのレコードソースに必要な
日付や伝票番号などの情報をパラメータ、クエリ
で言えば抽出条件になりますが、の形で渡し、
レポートに表示させます。したがって、必要な
情報を何らかの形で、この場合ならばキーワード
取得用フォームで取得した情報をレポートに
渡せばいいのでしょう。

ただ直接印刷用フォームからでもいいのでは
と思いますが、何らかの理由でそうしなければ
ならないのらば二度手間でも実現させる手段を
考えなければならない、という感じです。

それで、

>こんなことは可能でしょうか。

よくあるやり方なので特にむつかしい仕様
が設定されていない限りできると思いますが。
単純にいえば、印刷用フォームから取り出す
キーワードをキーワード取得用フォームに
渡し、それをレポートを開くイベントで
レポートのレコードソースに
抽出条件として渡す、ということです。

ただ、レポートのレコードソース、あるいはコード
の中の表示用データのSQL文が設定してある
場合、その抽出条件がキーワード取得用フォーム
のキーワードでいい場合と、印刷用フォーム
のフィールドを参照しているというキーワード
が必要な場合は印刷用フォームから直接レポートに
抽出条件を渡したほうがいい場合があります。
これはケースバイケースですが。

それで、どのような回答が必要ですか。

お礼

アドバイスありがとうございます。m(_ _)m

(1)
印刷用フォームとキーワード取得用フォームに分離した理由は、
（作っている私も初心者なのですが）使う人が二つのキーワードを
入力すれば簡単に書類を印刷できると考えたからなのです。
他に思いつかなかったので、もっと別の良い方法があれば
この形にはこだわりません。

(2)
印刷用フォームは、レポートで上のことが実現できればフォームで
ある必要はありません。
レポートで検討していましたが、全てを自動化することは私には
不可能っぽかったので、フォームにしておいて印刷時に手動で
（チェックを入れるなど）作業が必要になるかと思い、フォームで
検討していたのです。

本来はすべてデータから判断できる内容なので、レポートで実現
できれば、そんなに嬉しいことはありません。

ということで、まずは全体書類が印刷されるレポートを作りました。
その中に、以下のような内容で印刷したいのです。
（質問時の項目立てが間違っていたので以下のように変更します）
------------------------------
【テーブル構造】
基本テーブルは、　商品番号、商品名　内容　
サブ1テーブルは、　商品番号、日付Ａ　日付Ｘ
サブ2テーブルは、　商品番号、日付Ｂ　日付Ｘ
------------------------------
【キーワード取得用フォーム】
[1]商品番号入力コンボボックス→商品番号「001」が選択されたとします
[2]日付Ｘ入力テキストボックス→日付「2010年6月5日」が選択されたとします
[送信ボタン]
------------------------------
【全体書類印刷用レポート】
---基本情報---
（商品番号001の基本情報）
001：シャープペンシル　斬新なデザインで芯が減らないシャーペン

---サブ情報---
（商品番号001で日付Ｘが2010年6月5日のサブ1テーブルの日付Ａ例）
2010年2月10日
2010年3月3日

（商品番号001で日付Ｘが2010年6月5日のサブ2テーブルの日付Ｂ例）
2010年2月20日
2010年4月5日
------------------------------

こんな感じです。
今、送信ボタンには下のようなクリック時のコードを割り振ってみました。

DoCmd.OpenReport "R_全体書類", , "Q_基本レコード選択クエリ", "商品番号 = '" & Me!商品番号 & "'"

すると、印刷されてくる書類には、すべてのサブデータが印刷
されています。（当然ですが）

どこをどうすれば、サブクエリを日付Ｘで選択するように
できますでしょうか。
ご教示よろしくお願いいたします。