ACCESS どこがおかしいのか？

質問

ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。

AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。

以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)

'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If

Set rs = rs.OpenRecordset
Set Me.Recordset = rs

If rs.EOF = True Then
MsgBox "登録がありません"

Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文

End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

よろしくお願いします。

回答No.5

kosamon

#1です。
>ルックアップ列を一部含んでいますので、数値型が混じっています。
少し意味不明なので、そこをもう少し詳しく^^;（ＩＤの事？）

最低限でも[タイトル]と[本文]のデータ型について教えてください。
できれば、差しさわりのない範囲でデータの内容なんかもあるとわかりやすいです。

また、ＮＯ３で私が提示した件について検証されましたでしょうか？

それと、少し気になったのでもう一点。
>そのオブジェクト内に、検索フォーム（？と言えるのかな？）を用意しています
検索フォームとはテキストボックスの事でしょうか？
もしかして、「詳細部分」にあったりなんかします？

回答No.4

kosamon

#1です。前回投稿分カキコ中に補足がアップされているのを見て
あわてて、カキコしてます。

まずはじめにきちんとお聞きしなければならなかったのですが、
各フィールドのデータ型はどうなっていますでしょうか？

>そこから特定のカテゴリを抽出するために、クエリで各カテゴリ分オブジェクトをつくりました。

抽出条件を設定したクエリを基にフォームを作成された、という解釈でよろしいでしょうか？

それと検索条件は完全一致？部分一致？
はじめに提示されたコードを拝見する限り完全一致とお見受けしますが再確認の意味も込めてお聞かせください。

補足

>#1です。前回投稿分カキコ中に補足がアップされているのを見て
>あわてて、カキコしてます。

あ。すみません;;(>◇<)ゞ

>各フィールドのデータ型はどうなっていますでしょうか？
ルックアップ列を一部含んでいますので、数値型が混じっています。
あれ。もしかしてそれが原因ですか？；；

>それと検索条件は完全一致？部分一致？
完全一致です。

>抽出条件を設定したクエリを基にフォームを作成された、という解釈でよろしいでしょうか？
あ、そうです。
本当は、コンボボックスなどでカテゴリを分けたかったのですが、そうすると検索（抽出）条件が
面倒なような気がして、クエリで先にカテゴリ別にわけちゃったんです。

ご迷惑おかけします。

回答No.3

kosamon

#1です、続けざまに失礼します。

少し検証してみたのですが、「入力用」か否かは関係なさそうですね。
入力用の状態でもきちんと抽出できました。

そこで、問題を少し切り分けてみませんか？

me.Filter = "[タイトル]='" & タイトル検索 & "'"
me.FilterOn=True

上記のみの記述とした場合きちんと抽出されますでしょうか？

回答No.2

kosamon

#1です。

うーん、投稿前に確認済なのですが・・・。
私のほうは問題なく、期待どうりの結果を得ることができてます。
コピペしてもダメってことでしょうか？

>FilterOn=true
してますよね？

ボタンクリック前にはちゃんと全データ表示されてる状態ですよね？
もしかして、フォームが入力用になってるとか？

>変わらない
ということは
>MsgBox "登録がありません
の状態なのですね？

どういう手順で、どうダメなのかもう少し詳しく書いていただけますか？

補足

ありがとうございます。
えっと、まず、元のデータ数百件が記入されたテーブルがあります。
そこから特定のカテゴリを抽出するために、クエリで各カテゴリ分オブジェクトをつくりました。

そのオブジェクト内に、検索フォーム（？と言えるのかな？）を用意しています。

テキストボックスを二つ。一つはタイトルの中から検索するもの。もう一つは本文の中から検索するものです。
その隣にはオプショングループでAND　と　OR　のラジオボタンがあり、後は検索ボタンです。

その検索ボタンのクリックイベントで、上記のコードを記入しました。
するとメッセージボックスが表示→「登録がありません」となりました。

そこでご相談させていただき、コードをコピペしてみたのですが、
エラー内容は変わりません。

唯一変わったのは、抽出結果が、はじめ#N/Aが表示されていたのですが、コードを変えると、空白になりました。

回答No.1

kosamon

もっとシンプルに。

'オプションボタンで条件を選択
If 検索条件 = 1 Then
me.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
me.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If

me.FilterOn=True

me.Recordset.RecordCountで件数が取得できるので、
if me.Recordset.RecordCount=0 Then
～
こんな感じかな。

補足

さっそくの回答ありがとうございます。
でも、うまくいかないです；；さっきと状況、変わりません；；