access 今月のデータを抽出するVBA

お世話になります。
フォームの今月ボタンを押したら、納品日の今月のデータだけが抽出されるようにコードを設定したいのですが、上手くいきません。アドバイスください。よろしくお願いします。

Private Sub 今月_Click()
Me.Filter = "納品日 Between #" & Nz(DateSerial(Year(Date), Month(Date), 1), "1900/1/1") & "# And #" & Nz(DateSerial(Year(Date), Month(Date) + 1, 0), "9999/12/31") & "#"
End Sub

No.2 ベストアンサー 回答者： bonaron 回答日時： 2017/06/17 22:31

Me.Filter = "・・・"

の次に

Me.FilterOn = True

を付け加えてみては？

この回答へのお礼

お返事遅くなりすみません。
アドバイス頂いた通り入力したら出来ました！！
悩んでいたので感謝です。ありがとうございました。

お礼日時：2017/06/19 08:58

No.1 回答者： y504 回答日時： 2017/06/16 11:52

"納品日 Between #"を"[納品日] Between #"にするとどうですか？

この回答へのお礼

お返事ありがとうございます！
試してみましたが何も変化しませんでした。
もう少し色々試してみます。

お礼日時：2017/06/16 15:09