ACCESSでクロス表で印刷

質問

クロス表の印刷（レポート）は、都度、列項目がかわりますが、どのように印刷すればよいのでしょうか。
クエリーのままでなく、レポート上でも加工する必要があるのですが、項目名（フィールド）が可変であるため、難しいのでは？
みなさんは、どのように活用していますか？

回答No.2

imogasi · ベストアンサー

>
ＶＢＡが使えないので
それであれば、質問問題を解決するのは荷が重いのではと思います。解説書でも上級編クラスの問題ではと思います。すべて一般に、「可変」に対応するのは、プログラムでないと難しいです。
　しかしモデル的に印刷項目を可変にする例を書いて見ます。あくまで原理的なものを示すのが狙いです。
－－－－－－
「レポート」オブジェクトをクリック
新規作成
私の例では、「社員」テーブル指定。
この中の私の例では、フィールドに「氏名」「所属部」などがあります。
テキストボックスを１つツールボックからＤ＆Ｄ
（私の例では「テキスト2」という名前になりました）
「テキスト２」のラベルをＤＥＬＥＴＥで抹消
レポートの左上の□を右クリックしレポートのプロパティを出す。
下の方のイベントの「開く時」をクリック
右のビルダボタン「・・・」をクリック
「コードビルダ」をクリック
すると
Private Sub Report_Open(Cancel As Integer)

End Sub
が出ます
Private Sub Report_Open(Cancel As Integer)
MsgBox "印刷します"
fn = InputBox("どの項目を指定しますか")
Me.[テキスト2].ControlSource = fn
End Sub
にします。
Ｍｏｄｕｌｅやこのレポートのデザインモードを閉じます。
レポートオブジェクトに戻り、このレポートをオープンしてください
フィールド名を聞いてきますから、「氏名」と打ち込みます。
Ｐｒｅｖｉｅｗで登録全社員の氏名（だけの）一覧が出ます。
「所属部」を答えると所属部が出ます。
普通は１フィールドでなく、出したい項目は沢山フィールドがありますが、それはプログラム内容で、左右
します。
臭いだけ嗅いでください。

お礼

こちらの、意図をご理解いただいてありがとうございます。
臭いだけで十分感覚的につたわります。
ＶＢＡを勉強しようと思っていたので、なんとなくわかりました。
Basicはわかるので、地道にやってみようと思います。
親切なお答えありがとうございました。

回答No.1

imogasi

レポートの詳細セクションのテキストボックスを非連結にしておき、ＲｅｐｏｒｔのＯｐｅｎ時に、ＶＢＡで、それらのテキストボックスのＣｏｎｔｒｏｌＳｏｕｒｃｅに、表示する項目のクエリでのフィールド名をセットすればよいと思います。

お礼

早速ありがとうございます。
なんとなく、イメージがわかるのですが、なんせ、ＶＢＡが使えないので、詳しく教えていただくと助かります。