ACCESSで複数検索と日付範囲検索

質問

先日、http://okwave.jp/qa/q6917268.html　でご回答をいただいたのですが、
それに付け加えて、No.の検索（完全一致）と日付の範囲検索（売上日を範囲で検索）が必要になってしまいました。
上記URLで教えていただいたものはフィルタのコードだったのですが、
日付の範囲検索というものも上記コードに追加することができるのでしょうか？
（日付の範囲検索単独であればクエリでできるのですが・・・。）
[Txt売上日] しかなかったテキストボックスを、[Txt売上日自]と[Txt売上日至]の2つにし、その際、

　1 [Txt売上日自]、[Txt売上日至]ともに空欄→検索条件には入れない
　2 [Txt売上日自]は入力、[Txt売上日至]は空欄→[Txt売上日自]以降～直近のデータを検索
　3 [Txt売上日自]は空欄、[Txt売上日至]は入力→一番古い日付～[Txt売上日至]までのデータを検索
　4 [Txt売上日自]、[Txt売上日至]ともに入力→2つのテキストボックスの範囲の日付で検索

のような指定ができるものなのでしょうか？

超がつく初心者のため、質問の意図が伝わっていなかったらすみません・・・。
どうぞよろしくお願いいたします。

回答No.9

piroin654

【ついでに】

'### 売上日と得意先名と商品名の複合検索 ###
ElseIf Not IsNull(Txt売上日自) And IsNull(Txt売上日至) And Not Not IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer & " And" & strGoods
ElseIf IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer & " And" & strGoods
ElseIf Not IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer & " And" & strGoods

これで、主要な組み合わせは済んだと思いますが、

'### その他複合検索 ###　については必要ならば
付け加えてください。全て入力した場合、Noとの
組み合わせなどは必要ならば、ということです。

【訂正です】

'### 得意先名と商品名の複合検索 ###
ElseIf IsNull(Txt売上日自) And IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strCustomer & " And " & strGoods

にしてください。
str = strCustomer & " And " & strGoods
にするところが、
str = strCustomer & strGoods
になっていました。

【その他】
また、コードの中で、
'## 得意先 ##
strCustomer = " 得意先名 Like '*" & Me.Txt得意先名.Value & "*'"
'## 商品名 ##
strGoods = " 商品名 Like '*" & Me.Txt商品名.Value & "*'"
のように、Valueをつかっていますが、この場合は特に必要ないので
Me.Txt得意先名
Me.Txt商品名
でいいです。

なお、質問の最初の部分、

＞先日、http://okwave.jp/qa/q6917268.html　でご回答をいただいたのですが、
＞それに付け加えて、No.の検索（完全一致）と日付の範囲検索（売上日を範囲で検索）
＞が必要になってしまいました。

については、No8に回答したようにhttp://okwave.jp/qa/q6917268.html
での回答とここでの回答は別ボタンにして検索したら
どうでしょう。
ただ、「それに付け加えて」のところが非常に
微妙な言い回しなので、
http://okwave.jp/qa/q6917268.htmlで回答したことと
どのようにつながるのか定かでないので、ここでの
回答がご希望に沿うのかはわかりませんが。

お礼

お返事が遅くなり申し訳ありませんでした。
おかげさまで、納得のいくものができあがりました。
説明不足等で混乱を招いてしまいすみませんでしたT-T
大変ありがとうございました^-^*

回答No.8

piroin654

No6のコードはボタンを別にして、

Private Sub cmd複合検索_Click()
　　・
　　・
　　・
End Sub

のようにしてはどうですか。

回答No.7

piroin654

No6では変数の記述を変更しています。

組み合わせはダブらないように気をつけてください。
とくに、売上日が絡む場合は売上日のStrDayはstrDay=""
の場合があるので組み合わせ方を誤ると「オブジェクトに
云々」というエラーがでます。これはフィルタにする
文章が間違っているということです。

なお、すべてを入力した場合の検索は入れていませんが
必要ならばすべてを Not IsNull にして、文を And で
結んでください。このあたりはわかりますね。

すべての組み合わせは24くらいだったと思いますが、
フィルターにする文章(この場合はstrですが)が
ダブったり間違ったりすると変なことになりますから
気をつけてください。

回答No.6

piroin654

以下に途中まで組み込んであります。
あとは以下の説明のところを読んで完成させてください。

'### 売上日と得意先名と商品名の複合検索 ###
のところは、得意先名と商品名は Not IsNull　にして、
売上日は一方が Not IsNull　の場合が二つ、
両方とも　Not IsNull　の場合が一つ。
両方とも　IsNull　ならば単に得意先名と商品名の
検索になるのでここには記述しません。
And の使い方は三つの場合は、

文1 & " And " & 文2 & " And " & 文3

のような使い方をします。" And "のようにAndと"の間に
半角の余白があります。

Private Sub Cmd検索_Click()

Dim strDay As String
Dim strCustomer As String
Dim strGoods As String
Dim strNomber As String
Dim str As String

'### 日付 ###
strDay = "売上日"
If IsNull(Txt売上日自) Then
If IsNull(Txt売上日至) Then
'検索しない
strDay = ""
Else
'最古(1899/12/30)から日付まで
strDay = strDay & " between #" & "1899/12/30" & "# And #" & Txt売上日至 & "#"
End If
ElseIf Not IsNull(Txt売上日自) Then
If IsNull(Txt売上日至) Then
'日付から直近まで
strDay = strDay & " between #" & Txt売上日自 & "# And #" & Date & "#"
Else
'期間中
strDay = strDay & " between #" & Txt売上日自 & "# And #" & Txt売上日至 & "#"
End If
End If

'## 得意先 ##
strCustomer = " 得意先名 Like '*" & Me.Txt得意先名.Value & "*'"

'## 商品名 ##
strGoods = " 商品名 Like '*" & Me.Txt商品名.Value & "*'"

'## No ##
strNomber = " [No] = " & Nz(Me.TxtNo)

'####### 検索開始 ######
'#### 単独検索 ###
If Not IsNull(Txt売上日自) And IsNull(Txt売上日至) And IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay
ElseIf IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay
ElseIf IsNull(Txt売上日自) And IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strCustomer
ElseIf IsNull(Txt売上日自) And IsNull(Txt売上日至) And IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strGoods
ElseIf IsNull(Txt売上日自) And IsNull(Txt売上日至) And IsNull(Txt得意先名) And IsNull(Txt商品名) And Not IsNull(TxtNo) Then
str = strNomber
'### 売上日と得意先名の複合検索###
ElseIf Not IsNull(Txt売上日自) And IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer
ElseIf IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer
ElseIf Not IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And IsNull(Txt得意先名) And IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strCustomer
'### 売上日と商品名の複合検索 ###
ElseIf Not IsNull(Txt売上日自) And IsNull(Txt売上日至) And IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strGoods
ElseIf IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strGoods
ElseIf Not IsNull(Txt売上日自) And Not IsNull(Txt売上日至) And IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strDay & " And " & strGoods
'### 得意先名と商品名の複合検索 ###
ElseIf IsNull(Txt売上日自) And IsNull(Txt売上日至) And Not IsNull(Txt得意先名) And Not IsNull(Txt商品名) And IsNull(TxtNo) Then
str = strCustomer & strGoods
'以下は完成させてください
'### 売上日と得意先名と商品名の複合検索 ###
'### その他複合検索 ###
End If

Filter = str
FilterOn = True
End Sub

回答No.5

piroin654

No3の続きとして。
まず、どのような使い方をしたときに
エラーが表示されたのか教えてもらえますか。

一応、調べたところ、たとえば、商品名を入力せずに
他のものを入力して検索すると、補足のような
エラーが出ます。というのもすべての条件を
And　で結んでいるので全ての条件が入力
されていることが必要になります。ただし、
期間についてはあらかじめ未入力の場合に
対応するようにしていますが。

そうではなく、すべてを入力してもエラーが
出る、ということですか？

付け加えて、この場合はどのような使い方を
したいのか、期間だけではないような気がするのですが。
たとえば、得意先名だけ、商品名だけ、Noだけ、期間だけ、
あるいは、得意先名と商品名だけ、得意先名とNoだけ、
得意先名と期間だけ、商品名と期間だけ、
あるいは、すべて、
など、あらゆる組み合わせで検索したい、ということですか？

補足

情報不足で大変申し訳ありませんでした。

Txt売上日自とTxt売上日至は「yyyy/mm/dd」の日付型での入力です。

>たとえば、得意先名だけ、商品名だけ、Noだけ、期間だけ、
>あるいは、得意先名と商品名だけ、得意先名とNoだけ、
>得意先名と期間だけ、商品名と期間だけ、
>あるいは、すべて、
>など、あらゆる組み合わせで検索したい、ということですか？

そういう意図でした。。。
質問の文章に貼ったリンクのコードでは、空欄のテキストボックスがあっても検索ができていたので、
自分で勝手に「できるもの」と思い込んで質問文にのせておりませんでした・・・。
すみませんでした・・・。
全ての項目を入力すればエラーは出ませんが、上記のように色々な組み合わせで検索ができれば・・・と思っております。

回答No.4

piroin654

それと、No2のコードはコンパイルすると
エラーは出ないですね？

回答No.3

piroin654

フォーム上のテキストボックスの確認をします。

Txt得意先名
Txt商品名
Txt売上日自
Txt売上日至
TxtNo

の五つのテキストボックスがあるものとしています。
このうち、

Txt売上日自
Txt売上日至

は、質問の通りの使い方をするとして、
残りの三つは、必ず入力するものですか？
また、

Txt売上日自
Txt売上日至

は、2011/08/08　のように日付型での入力
ですか？

回答No.2

piroin654

以下を確認してみてください。
新たにテキストボックス「TxtNo」があるものとしています。
「No」というフィールド名を使ってもいいですが、
「No.」のようにNoにドットをつけるのは「不正な名前」
と拒否されるはずですが。以下では「No」のように
Noのにドットつけません。ドットは特別な意味を持つ
記号です。

Private Sub Cmd検索_Click()
Dim MyCriteria As String
Dim strfilter As String

MyCriteria = "売上日"
If IsNull(Txt売上日自) Then
If IsNull(Txt売上日至) Then
'検索しない
MyCriteria = ""
Else
'最古(1899/12/30)から日付まで
MyCriteria = MyCriteria & " between #" & "1899/12/30" & "# And #" & Txt売上日至 & "# And"
End If
ElseIf Not IsNull(Txt売上日自) Then
If IsNull(Txt売上日至) Then
'日付から直近まで
MyCriteria = MyCriteria & " between #" & Txt売上日自 & "# And #" & Date & "# And"
Else
'期間中
MyCriteria = MyCriteria & " between #" & Txt売上日自 & "# And #" & Txt売上日至 & "# And"
End If
End If

strfilter = MyCriteria
'Noが数値の場合
strfilter = strfilter & " 得意先名 Like '*" & Me.Txt得意先名.Value & "*' And 商品名 Like '*" & Me.Txt商品名.Value & "*' AND [No] = " & Me.TxtNo
'Noが文字列の場合
'strfilter = strfilter & " 得意先名 Like '*" & Me.Txt得意先名.Value & "*' And 商品名 Like '*" & Me.Txt商品名.Value & "*' AND [No] = '" & Me.TxtNo & "'"

Filter = strfilter
FilterOn = True

Me.Requery
End Sub

補足

ありがとうございます。
さっそくやってみたところ、No以外の検索は全てデバッグが出ます・・・。T-T
（実行時エラー2448　このオブジェクトに値を代入することはできません。）

回答No.1

m3_maki

こちらはフィルタを使用するモデルケースです。

複数条件の抽出フォームの設計 その1
http://hatenachips.blog34.fc2.com/blog-entry-129.html

最初のこちらは、かなりひどいコードですので、
これに手をいれてもあまり良いものにはなり得ませんね。
http://okwave.jp/qa/q2029954.html

なお、No.の検索（完全一致） については
「No.」というフィールド名は 不具合の元なので
「番号」（数値型） と仮定して

" AND 番号 =" & Me.txt番号

のように。

参考として、テキスト型なら

" AND 番号 = '" & Me.txt番号 & "'"

になります。

お礼

名前の付け方にも注意が必要なのですね^-^*
勉強になります^-^