Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2034 / 2272 ツリー ←次へ | 前へ→

【4173】連番かな? のりかわ 05/1/15(土) 14:05 質問[未読]
【4174】Re:連番かな? かろちん 05/1/15(土) 21:14 回答[未読]
【4178】Re:連番かな? のりかわ 05/1/16(日) 9:09 お礼[未読]

【4173】連番かな?
質問  のりかわ  - 05/1/15(土) 14:05 -

引用なし
パスワード
    度々お世話になります。だんだんプログラムが複雑になってしまい困ってます
どうかご教授お願いします。

下記のような、「現金出納帳クエリー」あり、現段階で一つ前の[計算式」の差額を、[差引金額]に求めるのは

[差引金額]: Sum(DSum("nz([売上],0)+nz([収入金額],0)-nz([支出金額],0)","現金出納帳","Format(日付,'yyyy/mm/dd') & format(ID,'00')<='" & (Format([日付],'yyyy/mm/dd') & Format([ID],'00')) & "'"))

で、下記のような結果になるんですが

 ID 日付 売上 収入金額 支出金額 差引金額 計算式

 4  1/2 500             500    500
 6  1/2 100             600    100
 10  1/2          300    300   -300
 11  1/3 1200            1500   1200
 12  1/3 100            1600    100
 15  1/3      500       2100    500

 最終的に求めたいのは、[日付]で「グループ」化して、[売上]を「合計」にした
「集合クエリ」をした時点で、[ID」が使えなくなります。

  日付 売上 収入金額 支出金額 差引金額 

   1/2 600             600   
   1/2          300   300
   1/3 1300           1600                 
   1/3      500       2100   

上記のようにしたいのです(データは日々更新されます)
 「連番」作成だろうが何だろうが構いませんので、ともかく[ID]に変わるを作成して、上記のように出来たら有り難いです。
何卒、よろしくお願いします!!

【4174】Re:連番かな?
回答  かろちん  - 05/1/15(土) 21:14 -

引用なし
パスワード
   のりかわ さん こんばんは

実現するには(一つの方法ですが)
1.集計クエリーを作成する。
  ID      最大
  日付     グループ
  売上     合計
  収入金額   合計
  支出金額   合計
  売上有無   グループ
  収入金額有無 グループ
  支出金額有無 グループ

 ※売上有無、収入金額有無、支出金額有無は
  IIfなどを使い値があるかどうかを判定
  IIf(Nz(売上,0)=0,0,1)

2.上記の集計クエリーを使用し差引残高計算の
 クエリーを作成する。
 日付、IDで並び替え。


上記の方法で、各集計結果に集計毎のIDの最大
がセットされますので、結果がでるのではない
でしょうか?

ただし、同一日付内で収入と支出が入り組んで
いる場合、残高が思うように表示できない場合
があります。

ID 日付 売上 収入金額 支払金額
1  1/2 2000
2  1/2     300
3  1/2           200
2  1/2     100
3  1/2           100
11 1/3 1200   
12 1/3 100   
15 1/3     500

上記場合、DSumを複数用意する必要があるかも
しれません。

【4178】Re:連番かな?
お礼  のりかわ  - 05/1/16(日) 9:09 -

引用なし
パスワード
   かろちん さん
 レス有り難う御座いました!

 教えて頂いた通りにやったんですが、チョコチョコと
 エラーが出てしまい(たぶんアプリの誤作動)完成が
 今になってしまいました。
 かなりのデータを入力したんですが、正常に計算してます
 本当に有り難う御座いました。

 又お手数をお掛けしますが、よろしくお願いします。

2034 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078265
(SS)C-BOARD v3.8 is Free