Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7610 / 9994

←次へ　｜　前へ→


	【5571】Re:複数条件を一つのコントロールに入れて...

小僧 - 05/7/7(木) 11:46 -


	引用なし

	パスワード

▼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

外していたらすみません。

1,245 hits

▼

【5570】複数条件を一つのコントロールに入れて検索 cya 05/7/7(木) 11:04