クロス集計クエリーからのレポート作成

対象バージョン : 97, 2000(MDB), 2002(MDB), 2003(MDB), 2007(ACCDB)
最終更新日 : 2007/03/11 (オリジナル作成日：1996/11/15)

概　要

　列見出しの固定が行えないクロス集計クエリーから、レポートを作成する方法です。

手　順

• 次のようなクロス集計クエリーを作成し、これからレポートを作成するものとします。
  

• レポート　フッターに縦計を表示します。
  
• 元のデータは単月分とします。

【レポート　デザイン】

　レポートの "RecordSource/レコードソース" は、上記のクロス集計クエリーの名前を指定します。

１．ページ ヘッダー

• 商品名のためのラベルと、売上月日を表示するためのブランクのラベルを、必要数貼り付けます。
  ブランクのラベルには、後述するイベントプロシージャにより表示する値をセットします。

  
  

• ブランクのラベルは作成時にスペースを入れないと消えてしまいますので、ご注意下さい。
  
• このブランクのラベルに、左から Label1, Label2, Label3,･･･ と名前を付けて下さい。

２．詳細 セクション

• フィールドリストより、商品名をドラッグし、貼り付けます。
  
• 売上数量を表示するための非連結のテキストボックスを、必要数貼り付けます。
  非連結のテキストボックスには、後述するイベントプロシージャにより表示する値をセットします。
  

  
  

• この非連結のテキストボックスに、左から Field1, Field2, Field3,･･･ と名前を付けて下さい。

３．レポート・フッター

• 売上数量の合計を表示するための非連結のテキストボックスを、必要数貼り付けます。
  非連結のテキストボックスには、後述するイベントプロシージャにより表示する値をセットします。

  
  

• この非連結のテキストボックスに、左から Total1, Total2, Total3,･･･ と名前を付けて下さい。

４．イベントプロシージャ

　レポートの [開く時/OnOpen] のイベントプロシージャに、次のコードを記述します。

Sub Report_Open (Cancel As Integer)
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim cnt As Integer
Dim fld As DAO.Field

Set db = CurrentDB()
Set qd = db.QueryDefs(Me.RecordSource)
' qd.Fields(0) は、商品名のため、1 から始める。
For cnt = 1 To qd.Fields.Count - 1
    Set fld = qd.Fields(cnt)
    Me("Label" & cnt).Caption = fld.Name
    Me("Field" & cnt).ControlSource = fld.Name
    Me("Total" & cnt).ControlSource = "=Sum([" & fld.Name & "])"
Next
End Sub

５．補足説明

• このイベントプロシージャにより、ブランクであったラベルの "Caption/標題" に、フィールド名（＝売上日付）が設定され、また、非連結であったテキストボックスの "ControlSource/コントロールソース" にフィールド名が設定されます。
  
• 縦計は、グループフッターでも同様な操作が可能です。

改訂履歴

• 2003/11/02 DAO オブジェクト変数の宣言に "DAO" 修飾を追加。

目次へ戻る