すべて入力された条件はANDで良いのでしょうか
条件を組み立てる変数を用意しましょう
dim sJouken, flag
flag = false
if simei<>"" then
sJoken = "[テーブル.氏名]='" & shimei & "' "
end if
if jyusho<>"" then
if sJouken<>"" then
sJouken = "( " & sJouken & ") and ( "
flag = true
end if
sJouken = "[テーブル.住所] = '" & jyusho & "' "
if flag then
sJouken = sJyouken & " ) "
flag = false
end if
end if
if tel<>"" then
if sJouken<>"" then
sJouken = "( " & sJouken & ") AND ("
flag = true
end if
sJouken = "[テーブル.電話番号] = '" & tel & "'"
if flag then
sJouken = sJouken & ")"
end if
end if
といった具合に条件を作成してみましょう
お礼
連絡遅れて申し訳ありません。 回答ありがとうございます。 教えていただいたとおりにしたらできました。 ありがとうございました。