以下のアクセスの検索フォームで。。。

質問

検索フォームの項目は以下の通りです。

○　AND　　○　OR

名前　　[　　　　]
項目　　[　　　　]▼　　[　　　　]▼　　[　　　　]▼

もとになってるテーブルは
・名前
・項目１
・項目２
・項目３
・項目４
・項目５

というようなっています。

検索ボタンのコードは

Select Case Me!検索方法.Value
Case 1 'or
tempOper = " AND "
strCount = 5
Case 2 'and
tempOper = " OR "
strCount = 4
End Select
'名前
If Me!SyainName.Value <> "" Then
condName = "(T_マスタ.氏名 like '*" & Me!SyainName.Value & "*')"
WhereCond = WhereCond & tempOper & condName
End If
'項目
If Me!Koumoku1.Value <> "" Then
condKoumoku1 = "(T_マスタ.項目１ like '*" & Me!Koumoku1.Value & "*')"
condKoumoku2 = "(T_マスタ.項目２ like '*" & Me!Koumoku1.Value & "*')"
condSKoumoku3 = "(T_マスタ.項目３ like '*" & Me!Koumoku1.Value & "*')"
tempCond = tempCond & " OR (" & condKoumoku1 & " OR " & condKoumoku2 & " OR " & condKoumoku3 & ")"
End If
If tempCond <> "" Then
tempComd = Mid(tempCond, 5)
WhereCond = WhereCond & tempOper & "(" & tempCond & ")"
End If
WhereCond = Mid(WhereCond, strCount + 1)
DoCmd.OpenForm "F_検索結果_一覧", acNormal, , WhereCond

これを実行すると

クエリ式 '(OR((T_マスタ.項目１ like　…')の構文エラー：演算子がありません。

と出ます。
どこを訂正すべきでしょうか？

（項目を含まない状態ではうまく検索できてました。）

Access2000です。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

多分、質問欄へ入力する際の凡ミスだと思いますが、
項目のところで、

tempComd = Mid(tempCond, 5)
↓
tempCond = Mid(tempCond, 5)

「tempCond」の綴りが違っています。
もし、実際のコード上でも違っていると、項目のところで先頭の「 OR 」がとれずに残るため、構文エラーになりますが。
本当にコード上でのミスなら、変数のスペルミスは、モジュールの一番上に、

Option Explicit

があれば、気付くはずですが。
もちろん、別に、「tempComd」という変数が宣言されていなければの話ですが。

お礼

回答ありがとうございます。
無事できました。
スペルミスだったとは…お恥ずかしい（＞＜）

ご指摘ありがとうございました。