Access VBA質問箱 IV

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

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


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

7178 / 9994

←次へ　｜　前へ→


	【6013】Re:毎年の集計について

小僧 - 05/8/25(木) 16:10 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。

>ちなみに、これは小僧さんが作成していただけたSQlをモジュールに貼り付け、
>ボタンを作れば、フォームが出来るという事ですか?

そんなにAccess君は便利ではありません(笑)
ですが、SQL(クエリ)さえしっかりしてれば、フォームを作るのはかなり楽になるはずです。

なので希望となる SQL(クエリ)をまず作ってみましょう。

>T_疾病管理で診断名・管理開始　を使いたいです。そこから、人数を
>もとめたいです。他に、治療開始・治療終了も作成は管理開始を参考に
>作成してみます。

まずは全年の集計クエリです。

クエリ全年：

TRANSFORM Count(T_疾病管理.ID) AS 人数
SELECT T_疾病管理.診断名
FROM T_疾病管理
GROUP BY T_疾病管理.診断名
PIVOT Left([管理開始],4);

次に指定した年から3年分のデータを集計するクエリです。

クエリ3年：

TRANSFORM Count(T_疾病管理.ID) AS 人数
SELECT T_疾病管理.診断名
FROM T_疾病管理
GROUP BY T_疾病管理.診断名
PIVOT 1+DateDiff('yyyy',[年度を入力] & '/01/01',
　　　CDate(Left(T_疾病管理.管理開始,4) & ' /01/01')) & '年目'
In ('1年目','2年目','3年目');

クエリ3年を実行すると「年度を入力」ときかれますので、
「1990」のような数字4桁を返すと「1990」「1991」「1992」の3年分のデータが
抽出されるはずです。 ※クエリ全年と比較してみてください。

まずはここまでがうまくいかないと進まないので確認してみて下さい。

394 hits

▼

【6009】毎年の集計について サチチ 05/8/25(木) 12:00