Access VBA質問箱 IV

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

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


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

5843 / 9994

←次へ　｜　前へ→


	【7363】抽出（部分一致）

しゅう - 06/2/23(木) 10:29 -


	引用なし

	パスワード

コンボ77に入力された値を含むものを抽出したいのですが、
完全一致は下のようなコードでできたのですが、
部分一致の検索はどのようにすればよいのでしょうか？
宜しくお願いします。

Private Sub コマンド76_Click()
　　If IsNull(Me!コンボ77) = True Then
　　MsgBox "抽出するエリアを入力して下さい。", vbOKOnly + vbInformation
　　Me!コンボ77.SetFocus
　　Exit Sub
　　End If
　　Me.Filter = " 設置エリア = '" & Me!コンボ77 & "'"
　　Me.FilterOn = True
　　If Me.Recordset.RecordCount = 0 Then
　　MsgBox "抽出条件に入力されたエリアは不正です。", vbOKOnly + vbInformation
　　Me!コンボ77.SetFocus
　　End If
End Sub

341 hits

▼

【7363】抽出（部分一致） しゅう 06/2/23(木) 10:29

≪