月の1日と最終日を取得する

=DateSerial(Year(Date()), Month(Date()), 1)

=DateAdd("d",-1,DateSerial(Year(Date()), Month(Date())+1, 1))

テーブルの「日付」フィールドに対するフィルターです。

Me.Filter = "日付 >= #" & DateSerial(Year(Date()), Month(Date()), 1) & "# and 日付 <= #" & DateAdd("d",-1,DateSerial(Year(Date()), Month(Date())+1, 1)) & "#"