Accessでの累計の出し方について

質問

Accessでデータベースを作成していて、フォームの一覧表示で累計を表示したいのですが、その方法がわかりません。レポートではテキストボックスの[集計実行]プロパティを使えばいいと思うのですが、レポートと同じようにフォームではできないのでしょうか？
Excelの方が累計は簡単に出来てしまいそうなのですが・・・。
Accessでの累計の計算の仕方を教えてください。

回答No.4

sgh · ベストアンサー

>一時テーブルを作成する方法をもっと詳しく教えていただけないでしょうか？

ご質問のケースの場合、私なら一時テーブルを以下のようなモジュールを使って
累計をあらかじめ求めてから、フォームを表示します。
表形式フォームの場合、各レコード毎に表示する累計表示用のテキストボックスは
連結コントロールにする必要があります。

Sub Ruikei()
'あらかじめフォームに表示するデータを一時テーブルにコピーしておく。
'注)参照設定に"Microsoft DAO3.6"を追加する
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StSQL As String
Dim tmpNo As Double 'それぞれのレコードの右端にその時点での累計表示用

tmpNo = 0
'一時テーブルをフォームと同じ順序(並び替え)のSQL文を記述
StSQL = "select * from テーブル1 order by ID"
Set DB = CurrentDb
Set RS = DB.OpenRecordset(StSQL, dbOpenDynaset)

Do Until RS.EOF 'レコードの終わりまでループ
　 tmpNo = tmpNo + RS!test1 '目的の一時累計を計算する
　 RS.Edit
　　 RS!temp = tmpNo '一時合計領域に書き込み
　 RS.Update
RS.MoveNext: Loop
End Sub

お礼

回答、ありがとうございました。
参考にさせていただきますm(__)m

回答No.3

sgh

>サブフォームやVBAを使った方法や例がわかれば教えていただけないでしょうか？

どんな表を作成したいのかわかりませんので、素直に表示結果となる
一時テーブルを作成しておいて、そいつをレコードソースとするのが簡単だと思います。
これなら、明細データと小計・合計データを追加クエリを使って数回流せば、
それらしく見える表ができるのではないでしょうか？
(並べ替えに注意してください)

通常、フォームは入力や、操作を担当するツールだと思っています。
ですから、グループ化が必要であれば素直にレポートを使ってはいかがでしょうか？

お礼

回答、ありがとうございました。
参考にさせていただきますm(__)m

補足

回答ありがとうございます。
データをフォームで一覧表にして、それぞれのレコードの右端に、その時点での累計を表示したいのですが、回答No.1のような方法だと、全ての合計しかでません。
一時テーブルを作成しても、どのような計算をさせていいのかよくわかりません。

一時テーブルを作成する方法をもっと詳しく教えていただけないでしょうか？

回答No.2

ma-demu

サブレポートを帳票表示にさせて計算させたい数値をたてにずらずらずらっと表示させてください。

そんでその計算結果を表示させたいテキストボックスのプロパティーに=Sum([テキスト名])と入力すれば計算できてると思います。

VBAで書いても結果は同じです。

お礼

回答、ありがとうございました。
参考にさせていただきますm(__)m

補足

回答ありがとうございます。
サブレポートを帳票表示にさせてというのは、一体どのようにすればよいのでしょうか？

回答No.1

sgh

フォームフッダにテキストボックスを配置して
=sum(フィールド名)
と入力することで実現可能です。
ただしレポートのように大計、中計等をグループ化して表現するのは
難しいです。サブフォームやVBAを使うことになると思います。

>Excelの方が累計は簡単に出来てしまいそうなのですが・・・。
おっしゃるとおり、EXCELの方が簡単です。
定型化する必要のない表は、私もEXCELを使います。

お礼

回答、ありがとうございました。
参考にさせていただきますm(__)m

補足

回答有難うございます。

>>レポートのように大計、中計等をグループ化して表現するのは
難しいです。サブフォームやVBAを使うことになると思います。

サブフォームやVBAを使った方法や例がわかれば教えていただけないでしょうか？