過去ログ

                                Page     324
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼レポートでページごとの合計をページフッターに表示させたい  ウサギのアダム 03/6/24(火) 13:47
   ┗Re:レポートでページごとの合計をページフッターに表示させたい  しろくろやぎ 03/6/27(金) 10:35
      ┗Re:レポートでページごとの合計をページフッターに表示させたい  ウサギのアダム 03/7/3(木) 15:57

 ───────────────────────────────────────
 ■題名 : レポートでページごとの合計をページフッターに表示させたい
 ■名前 : ウサギのアダム
 ■日付 : 03/6/24(火) 13:47
 -------------------------------------------------------------------------
   レポートで指定したレコード件数ごとに改ページをし、かつ、同グループのレコード件数が指定したレコード件数に満たない場合にも、罫線を印刷するというレポートをみなさんのQ&Aを参考に作成しましたが、ここのページフッターにページごとの合計を集計したいのですが、ページフッターには集計関数SUMを使用できないのか、エラーになってしまいます。どのようにしたらよいでしょうか?

 ───────────────────────────────────────  ■題名 : Re:レポートでページごとの合計をページフッターに表示させたい  ■名前 : しろくろやぎ  ■日付 : 03/6/27(金) 10:35  -------------------------------------------------------------------------
   ▼ウサギのアダム さん:
> レポートで指定したレコード件数ごとに改ページをし、かつ、同グループのレコード件数
> が指定したレコード件数に満たない場合にも、罫線を印刷するというレポートを
> みなさんのQ&Aを参考に作成しましたが、ここのページフッターにページごとの合計
> を集計したいのですが、ページフッターには集計関数SUMを使用できないのか、エラー
> になってしまいます。どのようにしたらよいでしょうか?

おそらく罫線印刷の為にページヘッダーや明細行のFormatイベントで処理を
されていると思います。
そこに下記のような追加をされてはどうでしょう?

' 集計用の変数curSumを用意する。
Private curSum As Currency

' ページヘッダーのFormatイベントで初期化
curSum = 0@

' 明細行のFormatイベントで値を加算
curSum = curSum + CCur(txtKingaku.Value)

' ページフッターでページ内合計を表示するテキストボックスの
' コントロールソースに以下の関数を設定する。
=curSetSum()

' 関数は変数の内容を返すだけとする。
Private Function curSetSum
 curSetSum = curSum
End Function

もっと簡単な方法がありそうですが、思い浮かびませんでした。

 ───────────────────────────────────────  ■題名 : Re:レポートでページごとの合計をページフッターに表示させたい  ■名前 : ウサギのアダム  ■日付 : 03/7/3(木) 15:57  -------------------------------------------------------------------------
   しろくろやぎさんありがとうございました。
早速試してみます。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 324