OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

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

  • すぐに回答を!
  • 質問No.100336
  • 閲覧数84
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 22% (8/36)

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

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

フォームでこのデータを編集するときにクリックすると今日の日付の
レコードを表示するボタンを作成したいにですがどうしたらよいですか?
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル11

ベストアンサー率 49% (139/279)

いくつか方法があると思いますが、 フィルターをかける方法を紹介しておきます。 マクロがにがてなので、VBAの例になります。 ご容赦を こんな感じになります。テーブル上の日付のカラム名は日付でDate型として書いています。 Private Sub コマンド4_Click() Dim datNow As Date Dim intYear As Integer Dim ...続きを読む
いくつか方法があると思いますが、

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

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

こんな感じになります。テーブル上の日付のカラム名は日付で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

でOKです。

このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ