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を使用できないのか、エラーになってしまいます。どのようにしたらよいでしょうか? |
▼ウサギのアダム さん: > レポートで指定したレコード件数ごとに改ページをし、かつ、同グループのレコード件数 > が指定したレコード件数に満たない場合にも、罫線を印刷するというレポートを > みなさんの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 もっと簡単な方法がありそうですが、思い浮かびませんでした。 |
しろくろやぎさんありがとうございました。 早速試してみます。 |