Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2454 / 9994

←次へ　｜　前へ→


	【10814】Re:時間集計について

hatena - 08/11/30(日) 23:50 -


	引用なし

	パスワード

> ここまでは良いのですが、これを月間での生産時間を算出しなくてはならなくなり
> クエリで[開始年月日]の抽出条件を
> Like "*/" & [Forms]![メニュー画面]![抽出月] & "/*"
> とし、フォームのメニュー画面の抽出月のコンボボックスから１～１２の
> どれかを選択するとその月のデータを抽出し、データで求めた分を合計
> するようにしています。

抽出条件が
Like "*/" & [Forms]![メニュー画面]![抽出月] & "/*"
ということは複数年度を含むと言うことでしょうか。
抽出付きが11の場合は、2008年11月,2007年11月, ・・・
すべて含む集計を出したいということですか。
それはあまりないと思いますので今年度の指定月ということで
回答しますね。違ってましたらご指摘下さい。

テーブルより集計クエリを作成して、下記のように設計します。

フィールド　ロットNo　　　生産時間: ※1　　開始年月日　　終了時間
集計　　　　グループ化　　合計　　　　　　　Where 条件　　Where 条件
抽出条件　　　　　　　　　　　　　　　　　　※2　　　　　 ※3

※1 に設定する式
Sum(DateDiff("n",
IIf([開始年月日]<DateSerial(Year(Date()),[月?],1),
　　 DateSerial(Year(Date()),[月?],1),[開始年月日]+[開始時間]),
IIf([終了年月日]>=DateSerial(Year(Date()),[月?]+1,1),
　　 DateSerial(Year(Date()),[月?]+1,1),[終了年月日]+[終了時間])))

※2 に設定する式
<DateSerial(Year(Date()),[月?]+1,1)

※3 に設定する式
>=DateSerial(Year(Date()),[月?],1)

このクエリを開くと [月?] とパラメータを聞いてくるので
月を入力して、指定した月の合計が出てるか確認してください。

うまくいきましたら、[月?] の部分を、[Forms]![メニュー画面]![抽出月]
に書き直してください。

472 hits

▼

【10801】時間集計について まつ 08/11/27(木) 9:45