Access VBA質問箱 IV

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

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


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

6239 / 9994

←次へ　｜　前へ→


	【6962】Re:２年分の検索方法は？

小僧 - 05/12/13(火) 13:15 -


	引用なし

	パスワード

▼わんさん：
こんにちは。

>お世話になっています。
>恥ずかしながら、もう壁にぶつかってしまいました。

当方も壁にぶつかっては Help や MS の技術者情報のページと格闘してますよ^^;

>上記を利用すると例えばうるう年を含めた前後の年度、
>つまり２月29日が存在する年度では前年結果が非表示ではなく、
>前年の２月28日の結果が表示されてしまいます。

>DLookUp("結果１","テーブルI","Year([日付]) = " &
>Year([日付])-1 & "AND 名前 = '" & [名前] & "'") AS 前年結果１

こちらは、

・名前が一致して
・日付が去年のデータ

のうち、一番初めに見つかったものを返す式です。
したがって前年結果１は月日に関係なく前年であれば値を引っ張ってきてしまいます。

>どうやったら未記入にできるのでしょうか？

日付まで意識して前年のものを取ってくるとすると、こんな感じでしょうか。

SELECT テーブルI.日付,
テーブルI.名前,
テーブルI.結果1,
テーブルI.結果2,
IIf(Format([日付],"mmdd")="0229",Null,DateAdd("yyyy",-1,[日付])) AS 前年度日付,
DLookUp("結果１","テーブルI","[日付] = #" &
Nz([前年度日付],CDate(0)) & " # AND 名前 = '" & [名前] & "'") AS 前年結果１,
DLookUp("結果２","テーブルI","[日付] = #" &
Nz([前年度日付],CDate(0)) & " # AND 名前 = '" & [名前] & "'") AS 前年結果２
FROM テーブルI;

1,561 hits

▼

【6875】２年分の検索方法は？ わん 05/11/30(水) 12:41