Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
690 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10515】こういった日付抽出ってできるのでしょうか? AAA 08/8/18(月) 22:00 質問[未読]
【10516】Re:こういった日付抽出ってできるのでしょ... hatena 08/8/18(月) 23:44 お礼[未読]
【10517】こういった日付抽出ってできるのでしょうか? AAA 08/8/19(火) 20:40 発言[未読]
【10518】Re:こういった日付抽出ってできるのでしょ... hatena 08/8/19(火) 22:03 回答[未読]
【10519】Re:こういった日付抽出ってできるのでしょ... AAA 08/8/20(水) 5:53 お礼[未読]
【10515】こういった日付抽出ってできるのでしょう...
質問  AAA  - 08/8/18(月) 22:00 -
引用なし
パスワード
   はじめまして。アクセス初心者です。分かれば回答よろしくお願いします。

機械の修理依頼＆結果をアクセスで管理しています。


T履歴録（設備）に、修理依頼の内容を入力しています。
（下記の感じに…一部省略してます）

機械ｺｰﾄﾞ　現象　　依頼日　　予定日　　　開始日　　　終了日　　　修理内容
A-00　　　***　2008/07/03　2008/07/04　2008/07/03　2008/07/03　　***
B-00　　　***　2008/07/30　2008/07/31　2008/07/31　2008/07/31　　***
C-00　　　***　2008/07/15　2008/07/20　2008/07/15　2008/07/16　　***
D-00　　　***　2008/07/21　2008/07/25　2008/07/26　2008/07/29　　***

月が終わるごとに依頼日で7/1〜7/31までのものを抽出したい（翌月の月初辺りに抽処理を行う）んですが、ｸｴﾘで依頼日のﾃﾞｰﾀの抽出条件にLike "2008/07/**"と、とりあえずは自分でやってみたんですが、月が変わるとまた抽出条件のところをLike "2008/08/**"と変えないといけません。
抽出条件のところを毎回変えず8月（処理月）なら前月（7月）、9月（処理月）なら前月（8月）のﾃﾞｰﾀだけを自動的に抽出出来るような抽出方法ってありますか?

説明がうまく出来ないんですが、分かる方がおられましたら回答の方よろしくお願いします。
【10516】Re:こういった日付抽出ってできるのでし...
お礼  hatena  - 08/8/18(月) 23:44 -
引用なし
パスワード
   抽出条件を

Like Format(Date(),"yyyy/mm/\*")

フィールドのデータ型が日付/時刻型なら、
下記の式の方が高速です。

>=DateSerial(Year(Date()),Month(Date()),1) And <DateSerial(Year(Date()),Month(Date())+1,1)
【10517】こういった日付抽出ってできるのでしょう...
発言  AAA  - 08/8/19(火) 20:40 -
引用なし
パスワード
   >=DateSerial(Year(Date()),Month(Date()),1) And <DateSerial(Year(Date()),Month(Date())+1,1)でやってみたんですが、今月のものが抽出されてしまいました。
前月分のデータを抽出する事はできないのでしょうか?

何回も質問してすいませんがよろしくお願いします。
【10518】Re:こういった日付抽出ってできるのでし...
回答  hatena  - 08/8/19(火) 22:03 -
引用なし
パスワード
   ▼AAA さん：
>>=DateSerial(Year(Date()),Month(Date()),1) And <DateSerial(Year(Date()),Month(Date())+1,1)でやってみたんですが、今月のものが抽出されてしまいました。
>前月分のデータを抽出する事はできないのでしょうか?

あっ、前月でしたね。
式の意味を理解すれば、簡単に修正できると思いますが、、、、

>=DateSerial(Year(Date()),Month(Date())-1,1) And <DateSerial(Year(Date()),Month(Date()),1)
【10519】Re:こういった日付抽出ってできるのでし...
お礼  AAA  - 08/8/20(水) 5:53 -
引用なし
パスワード
   −するのはわかったんですが、なかなかうまくいかなかったんで・・・

何回も質問に回答頂きありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
690 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078198
(SS)C-BOARD v3.8 is Free