Accessで条件の合うページにジャンプ

質問

MS-Access97を使用しています。

レコードに日付のデータを２、３日おきに入力したデータがあります。

フォームでこのデータを編集するときにクリックすると今日の日付の
レコードを表示するボタンを作成したいにですがどうしたらよいですか？

回答No.1

arata

いくつか方法があると思いますが、

フィルターをかける方法を紹介しておきます。

マクロがにがてなので、ＶＢＡの例になります。
ご容赦を

こんな感じになります。テーブル上の日付のカラム名は日付でDate型として書いています。

Private Sub コマンド4_Click()
Dim datNow As Date
Dim intYear As Integer
Dim intMonth As Integer
Dim intDay As Integer

datNow = Now()
intYear = Year(datNow)
intMonth = Month(datNow)
intDay = Day(datNow)

strToday = Format(DateSerial(intYear, intMonth, intDay), "YYYY/MM/DD")
strTomorrow = Format(DateSerial(intYear, intMonth, intDay + 1), "YYYY/MM/DD")

DoCmd.ApplyFilter , "日付 >= #" & strToday & "# And 日付 < #" & strTomorrow & "#"

End Sub

もし、日付の入っているカラムに時間が含まれていないのであれば、

Private Sub コマンド4_Click()
Dim datNow As Date
Dim intYear As Integer
Dim intMonth As Integer
Dim intDay As Integer

datNow = Now()
intYear = Year(datNow)
intMonth = Month(datNow)
intDay = Day(datNow)

strToday = Format(DateSerial(intYear, intMonth, intDay), "YYYY/MM/DD")

DoCmd.ApplyFilter , "日付 = #" & strToday & "#"

End Sub

でＯＫです。