| |
▼cya さん：
こんにちは。
カンマを区切り文字として Split関数で配列にして
「OR」条件で連結
すれば可能だと思われます。
フォーム上に
txt検索：テキストボックス
検索ボタン：コマンドボタン
を配置してイミディエトウィンドウで結果を確認してみて下さい。
Private Sub 検索ボタン_Click()
Dim Kensaku As String
Dim S As Variant
Dim I As Long
If InStr(1, Me.txt検索.Value, ",") > 0 Then
S = Split(Me.txt検索.Value, ",")
For I = 0 To UBound(S, 1)
Kensaku = Kensaku & "[質問] LIKE '*" & S(I) & "*' Or "
Next
Kensaku = Left(Kensaku, Len(Kensaku) - 3)
Else
Kensaku = "[質問] LIKE '*" & Me.txt検索.Value & "*'"
End If
Debug.Print Kensaku
End Sub
外していたらすみません。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
