空白を選択した場合に一行飛ばせませんか？

質問

1月程考えましたがわかりませんでした。どなたか知恵をお貸しください。

以下のような名簿があります。
正職名簿
　氏名　　　ふりがな　　　地区　通勤方法　距離　
-------------------------------------------------
山田太郎　ヤマダタロウ　　市内　　バス　　5km
鈴木花子　スズキハナコ　　市外　　電車　　20km
近藤次郎　コンドウジロウ　市内　　徒歩　　2km

同様な形式で、アルバイト名簿とパート名簿があります。

プルダウンメニューを3つ作りました。
<名簿種類>(form_mebo)
・正職名簿
・アルバイト名簿
・パート名簿

<地区>(form_chiku)
・市内
・市外

<通勤方法>(form_tukin)
・徒歩
・電車
・バス
・自転車

<文字列検索>(form_filter)
ふりがなを～で始まる。～を含むで検索できるようにしています。

正職名簿→市内→徒歩と選択していくと
　氏名　　ふりがな　　　　地区　通勤方法　距離　
---------------------------------------------
近藤次郎　コンドウジロウ　市外　　徒歩　　2km
と出ます。

ところが、正職名簿→市内と選択すると
　氏名　　ふりがな　　　　地区　　通勤方法　距離　
-----------------------------------------------
山田太郎　ヤマダタロウ　　市内　　車　　　　5km
加藤一郎　カトウイチロウ　市内　　電車　　　18km
近藤次郎　コンドウジロウ　市内　　徒歩　　　2km
と出て欲しいのに出てくれません。

回答No.2

spcars · ベストアンサー

何の言語かわかりませんがVBっぽいのでそれで説明します。

～１つめ～
通勤方法を空欄でいいならLIKEを使用しているので単純に"%"をつける。
⇒ "AND 正職名簿.通勤方法 LIKE '" & form_tukin & "%' "&_

～２つめ～
If文を使ってform_tukinが空欄の時に文字列に連結しないようにする。
strSQL= "SELECT * "& _
"FROM 正職名簿 "& _
"WHERE 正職名簿.ふりがな "& _
"LIKE '" & form_filteradd & form_filter & "%' "&_
"AND 正職名簿.地区 = '" & form_chiku & "' "
If form_tukin <> vbnullstring then
⇒ strSQL = strSQL & "AND 正職名簿.通勤方法 LIKE " & form_tukin & " "
end if
strSQL = strSQL & "ORDER BY 正職名簿.ふりがな; "

～３つめ～
⇒の行にOR条件でform_tukinが空欄の場合を追加する。
"AND (正職名簿.通勤方法 LIKE " & form_tukin & " OR " & form_tukin & " is null ')"&_

とりあえず簡単に３つの方法です。
なお、テストは行っていないので動作保障はしかねます。

お礼

アドバイスありがとうございました。
2つ目のような感じでなんとか求めていた結果が得られるようにできました。

早くにご回答いただきながら、お礼が遅くなりまして申し訳ありませんでした。

回答No.1

eraeara

もう少し詳しく説明していただけませんか？

補足

入力文字数をオーバーしてしまったため、分けようと思ったら、自分の質問には回答できないのですね。しかも、削除もできませんでした。
読みにくくて申し訳ありません。私が書いたものは以下のとおりです。

Select Case form_mebo
　Case "正職名簿"
　　strSQL= "SELECT * "& _
　　　　　　　"FROM 正職名簿 "& _
　　　　　　　"WHERE 正職名簿.ふりがな "& _
　　　　　　　"LIKE '" & form_filteradd & form_filter & "%' "&_
　　　　　　　"AND 正職名簿.地区 = '" & form_chiku & "' "& _
⇒　　　　　　"AND 正職名簿.通勤方法 LIKE " & form_tukin & " "&_
　　　　　　　"ORDER BY 正職名簿.ふりがな; "
　Case "アルバイト名簿"
　　strSQL= "SELECT * "&_
　　　　　　　"FROM アルバイト名簿 "&_
　　　　　　　"WHERE アルバイト名簿.ふりがな "&_
　　　　　　　"LIKE '" & form_filteradd & form_filter & "%' "&_
　　　　　　　"AND アルバイト名簿.所在 = '" & form_chiku & "' "& _
⇒　　　　　　"AND アルバイト名簿.通勤方法 LIKE " & form_tukin & " "&_
　　　　　　　"ORDER BY アルバイト名簿.ふりがな; "
　Case "パート名簿"
　　strSQL= "SELECT * "& _
　　　　　　　"FROM パート名簿 "& _
　　　　　　　"WHERE パート名簿.ふりがな "&_
　　　　　　　"LIKE '" & form_filteradd & form_filter & "%' "&_
　　　　　　　"AND パート名簿.所在 = '" & form_chiku & "' "& _
⇒　　　　　　"AND パート名簿.通勤方法 LIKE " & form_tukin & " "&_
　　　　　　　"ORDER BY パート名簿.ふりがな; "
　Case Else
　　strSQL= "SELECT * "&_
　　　　　　　"FROM 正職名簿 "&_
　　　　　　　"WHERE 正職名簿.ふりがな "&_
　　　　　　　"LIKE '" & form_filteradd & form_filter & "%' "&_
　　　　　　　"ORDER BY 正職名簿.ふりがな; "
End Select

<名簿種類><地区><通勤方法>の3つとも選ぶと検索はできるのですが、<名簿種類><地区>だけでは上手くいきません。
<通勤方法>の<OPTION VALUE>に空欄を設け、空欄の場合は⇒の列を飛ばすような方法はありませんでしょうか？
どなたかご教授くださいませ。