access2016について

仕事でデータベースを作成するよう指示があり、本を見ながら作成しております。
今回検索フォームを作成し検索結果を抽出したいのですが、
なかなかうまくいかず...ご教示ください。

クエリを基にフォームを作成。
テキストボックスとボタンを作成し押下すると
入力したものを抽出するようにしたいです。

◆抽出項目
登録日、会社名、担当者、案件名
※登録日は期間限定の●●●●/●●/●●～●●●●/●●/●●という形で検索

ここの登録日の抽出がなかなかうまくいかず、
どのようなプロシージャになるのでしょうか。
↓現状の貼り付けておきます

Private Sub 抽出_Click()
Dim f As String
f = "(true)"
If Nz([案件名検索], "") <> "" Then f = f & "and([案件名] Like '*" & [案件名検索] & "*')"
If Nz([会社名検索], "") <> "" Then f = f & "and([会社名] Like '*" & [会社名検索] & "*')"
If Nz([担当者検索], "") <> "" Then f = f & "and([担当者] Like '*" & [担当者検索] & "*')"
If Nz([登録日検索], "") <> "" Then f = f & "and([登録日]>=#" & [登録日検索] & "#)"
If Nz([登録日検索2], "") <> "" Then f = f & "and([登録日]<=#" & [登録日検索2] & "#)"
Me.Filter = f
Me.FilterOn = True
End　Sub

上記の入力を行った場合、案件名・会社名・担当者は検索がかかるのですが
登録日を入力すると抽出がひとつもできません。
原因がわからないため、どなたかご教示ください。

No.2 回答者： Sand_Dollar 回答日時： 2017/05/27 20:01

>どのように出力すればよいのでしょうか。

No1さんの仰っていることは、

Me.Filter = f
msgbox f
Me.FilterOn = True

とすれば、FilterOnの前にメッセージボックスでｆの内容が表示されるので、
その内容を確認してはどうでしょう（補足で書いていただければ分かりやすい）
ということです。

No.1 回答者： ShowMeHow 回答日時： 2017/05/26 13:58

登録日の書式などの問題ではないかと思いますが、フィルター掛ける前に

msgbox f
などとして、フィルター内容を確認してみたらいかがでしょう。
その出力を補足していただけると、わかるかもしれません。

この回答へのお礼

ありがとうございます。
msgbox fの使い方がよくわかっておらず...
どのように出力すればよいのでしょうか。

お礼日時：2017/05/26 14:30