Access VBA質問箱 IV

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

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


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

7601 / 9994

←次へ　｜　前へ→


	【5580】Re:クエリで抽出

小僧 - 05/7/8(金) 15:58 -


	引用なし

	パスワード

▼buti さん：
こんにちは。
計算の速度までは考慮しておりませんが、とりあえずの解決方法を。

加入月数に使われていた「起算取得日」「起算喪失日」を
そのまま式にあてはめてあります。

加入月数:
DateDiff("m",IIf([取得日]>DateSerial(Year(DateAdd("m",-3,Now())),4,1),
[取得日],
DateSerial(Year(DateAdd("m",-3,Now())),4,1)),
IIf([喪失日]<DateSerial(Year(DateAdd("m",9,Now())),3,31),
[喪失日],
DateSerial(Year(DateAdd("m",9,Now())),3,31)))+1

これなら抽出条件を付けてもパラメータを聞かれないと思います。

-----(別方法)-------

クエリのSQLビューに下記SQLを貼り付けてみてください。
元テーブルは「T_buti」としております。

SELECT Q.取得日, Q.喪失日, Q.起算取得日, Q.起算喪失日,
DateDiff("m",[起算取得日],[起算喪失日])+1 AS 加入月数
FROM [
SELECT T_buti.取得日, T_buti.喪失日, IIf(Month(T_buti.取得日)>3,
T_buti.取得日,CDate(Year(取得日) & "/4/1")) AS 起算取得日,
IIf(T_buti.喪失日<DateSerial(Year(DateAdd("m",9,Now())),3,31),
T_buti.喪失日,
DateSerial(Year(DateAdd("m",9,Now())),3,31)) AS 起算喪失日
FROM T_buti
]. AS Q
WHERE (((DateDiff("m",[起算取得日],[起算喪失日])+1)<=11));

367 hits

▼

【5579】クエリで抽出 buti 05/7/8(金) 15:10