kitasue
2020/09/29 (火) 17:20:43
d057a@e9d43
strSubFilter = Me.txtWord3
strSubFilter = "*" & Replace(strSubFilter, "。", "* And *") & "*"
strSubFilter = String(UBound(Split(strSubFilter, "▲")), "(") & strSubFilter
strSubFilter = Replace(strSubFilter, "、", "* Or *")
strSubFilter = Replace(strSubFilter, "▲", "*) And Not *")
strSubFilter = "(" & BuildCriteria("職名", dbText, strSubFilter) & ")"
でいかがでしょうか。
通報 ...
kitasue 様
ご回答いただき誠にありがとうございます。
コードを使用させて頂きましたところ、
▲後の複数ワードで除外検索が出来ました。
ご親切に教えていただき、本当にありがとうございます。
教えて頂いたコード、勉強させて頂きます