毎回おせわになっております。
現在、Access2000で帳票の出力をおこなっているのですが、部局ごとに小計を出力し、その合計をレポートのフッターに出力したいのですが、どうしても合計がうまくいきません。
部局ごとのグループフッターセクションで以下のようにPGを書いております。
Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
'データの表示
Me!部局別小計 = Bukyoku_t
'総計に追加
Total = Total + Bukyoku_t
End Sub
ここで、Bukyoku_tは詳細のFormatにてひとつの部局での各々の金額を足したものです。
実際にモジュール内で動きを確認したところ、最初の部局以外はグループセクションを2回実行しているとこがわかりました。たしかに、総計の金額も部局別小計をすべて足した値の約2倍が出力されました。
レポートのプロパティの設定がいけないのでしょうか?
ご教授のほど、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
プログラムではなくテキストボックスのコントロールソースに設定すれば集計されると思います。
グループフッターに部局別小計、レポートフッターに総計が存在すると仮定して回答させていただきます。
条件が違っていたらごめんなさい。
部局別小計
コントロールソース:=Sum([小計したい項目])
総計
コントロールソース:=Sum([小計したい項目])
(注意)部局別小計と同じ内容を設定してください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Excel(エクセル) SUBTOTAL SUMIF?? 2 2023/03/16 11:25
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
AIに回答させるって
-
プログラムについての質問です...
-
VBAでテキスト出力時のスペース...
-
MMDでavi出力が出来ない
-
cout と cerrの違い
-
アクセスでエクセルに出力する...
-
OBS配信すると、マイクが途切れ...
-
VBAで有効数字の設定
-
printfとputcharの違いは
-
coutで出力した文字を消去する...
-
Accessのテーブルからcsv出力す...
-
エクセルVBAにて アルファ...
-
COBOLで可変長ファイルの出力に...
-
KEYENCEのシーケンスプログラム...
-
テキストファイルから特定の文...
-
Windows Formアプリからコンソ...
-
C言語の標準関数の引数の順番に...
-
【VBA】PDFを2in1で出力したいです
-
改行の仕方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
コンセントの電力は入力と出力...
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
テキストファイルから特定の文...
-
Windows11対応の3入力1出力 USB...
-
VBAで有効数字の設定
-
スマホのバッテリー消費につい...
-
Excel VBAで値を変えながら、pd...
-
NTTのホームゲートウェイとOCN...
-
定格冷房能力(出力)とは 定格...
-
プログラムについての質問です...
-
PS5をMacBookProに出力したいの...
おすすめ情報