| |
▼nawa さん：
split関数を使えば、テキストデータを分割できます。
簡単な例です。
Private Sub sub_keyword()
Dim myKeyWord() As String
Dim myWhereSTR As String
Dim myLooP As Long
Const myTesWrd As String = "りんご + みかん"
myKeyWord = Split(myTesWrd, "+", , vbTextCompare)
For myLooP = LBound(myKeyWord) To UBound(myKeyWord)
myWhereSTR = myWhereSTR & " or Like '" & Trim(myKeyWord(myLooP)) & "*'"
Next myLooP
myWhereSTR = Mid$(myWhereSTR, 5)
Debug.Print myWhereSTR
End Sub
"+" の部分を "or" に換えても良いですし、スペースも使用可能です。
ただし、"+"（または"or"）の文字の検索は出来ません。
参考までに。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
