アクセスで期間抽出

質問

お尋ねします
アクセスで納品書のデータベースがあります　
　納品書データFormには
伝票番号、日付、客先名、数量のフィールドのフォームで
テキストボックス１：始めの日　テキストボックス２：終了日
コマンドボタン１：期間で抽出　が配置しています
テキストボックス１，２に日付、記入後、コマンドボタン１をクリックして
所要期間でフィルターで抽出するのですがうまく行きません
コマンドボタン１クリック時のコード
Private Sub コマンド１_Click()
Me.Filter = "日付= 'Between" & Me![テキスト１] & "And" & Me![テキスト２] & "'"
Me.FilterOn = True
End Sub
のコードで抽出してくれません、不都合をご指摘下さい
なお　指定日での抽出は以下で出来ました。
Private Sub コマンド１_Click()
　Me.Filter = "日付= '" & Me![テキスト１] & "'"
Me.FilterOn = True
End Sub

エクセルのモジュールは少しかじったのですがアクセスは
始めたばかりでなかなか要領を得ません
宜しくお教え下さい。

回答No.3

O_cyan · ベストアンサー

最後の"が抜けてました。
Me.Filter = "日付 Between #" & Me![テキスト１] & "# And #" & Me![テキスト２] & "#"
テキスト１と２は2006/2/15のように入力してあるのですよね。
テキストボックスの値を日付として#で挟めば良いはずですが。

補足

早速の返答ありがとうございます
BETWEENがBetweenにならなかったので構文的に不備
なのだろうと考えていましたがどこが悪いのか不明でした。解決いたしました。
ほんとうにありがとうございました。

回答No.2

O_cyan

BETWEEN #" & [テキスト１] & "# AND #" & [テキスト２] & "#
または
BETWEEN #" & Me![テキスト１] & "# AND #" & Me![テキスト２] & "#

でどうでしょうか。

補足

ありがとうございます。
以下のエラーが出てしまいます
実行時エラー'3075'
クエリ式'日付=BETWEEN　#2006/02/07# AND #2006/02/10#' の構文エラー:
演算子がありません。

アクセスのヘルプファイル搭載していない
ｐｃなのでエラー番号の意味がわかりません

回答No.1

noname#15567

未確認ですが、

"日付 Between '" & Me![テキスト１] & "' And '" & Me![テキスト２] & "'"

かな？

補足

早速のアドバイスありがとうございます。
以下のエラーがでてしまいます。
実行時エラー'2448'
このオブジェクトに値を代入することはできません、