Access VBA質問箱 IV

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

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


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

7153 / 9994

←次へ　｜　前へ→


	【6038】フォームの値をパラメータクエリに

小僧 - 05/8/26(金) 11:07 -


	引用なし

	パスワード

▼サチチさん：

>お願いします!そうそう、フォームでは、1年目・2年目・3年目の縦計と
>横計も出したいなーなんて・・・。

まぁ、順々にやっていきましょう。

フォーム「結果表示」のフォームヘッダを広げて、
テキストボックス「txt年」を配置して下さい。

次に「クエリ3年」をいじります。

現在のパラメータは [年度を入力] ですが、
ここを Forms![結果表示].[txt年] とします。(2箇所ありますよね)

PARAMETERS Forms![結果表示].[txt年] Long;
TRANSFORM Count(T_疾病管理.ID) AS 人数
SELECT T_疾病管理.診断名, T_疾病管理.ms_msg
FROM T_疾病管理
GROUP BY T_疾病管理.診断名, T_疾病管理.ms_msg
PIVOT (Left(T_疾病管理.管理開始,4)-Forms!結果表示.txt年)+1 & '年目'
In ('1年目','2年目','3年目');

テキストボックス「txt年」の値をパラメータとして
「txt年」が変化する度にフォームの値が変えるのが目的なのですが、
このままですと見た目が更新されません。

「txt年」の更新後処理に

Private Sub txt年_AfterUpdate()
　　Me.Requery
End Sub

とコードを記述して下さい。

テキストボックスの値を変える度に件数が変わるようでしたら成功です。
長くなりましたが、まずはここまで…。

>先生!よろしくお願いします。

先生なんて言うと授業料取りますよ(笑)

541 hits

▼

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