Access VBA質問箱 IV

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

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


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

1847 / 9994

←次へ　｜　前へ→


	【11429】Re:複数条件での抽出について教えて下さい

小僧 - 10/1/25(月) 17:08 -


	引用なし

	パスワード

▼ken さん：こんにちは。 > 抽出用にフォームヘッダーに > Field_Aに対応したコンボボックスと > Filed_Bの抽出条件を決定するためのオプショングループを配置かしこまりました。その様な条件ですと、初めに投稿されたコードでほぼ問題ないですね。申し訳ないです。 Option Compare Database Option Explicit Const strWordB = "語句B" Const strWordC = "語句C" Const strWordD = "語句D" Sub FormFilter() Dim strFilter As String 　　If Not IsNull(Me.TextA.Value) Then 　　　　strFilter = " AND [Field_A] ='" & Me.TextA.Value & "'" 　　End If 　　　　Select Case Me.Ck1.Value 　　　　Case 1 　　　　　　strFilter = strFilter & " AND (" _ 　　　　　　　　　　　　　　　　　　& "　　[Field_B] ='" & strWordB & "'" _ 　　　　　　　　　　　　　　　　　　& " OR [Field_B] ='" & strWordC & "'" _ 　　　　　　　　　　　　　　　　　　& ")" 　　　　　　　　Case 2 　　　　　　strFilter = strFilter & " AND (" _ 　　　　　　　　　　　　　　　　　　& "　　[Field_B] ='" & strWordB & "'" _ 　　　　　　　　　　　　　　　　　　& " OR [Field_B] ='" & strWordC & "'" _ 　　　　　　　　　　　　　　　　　　& " OR [Field_B] ='" & strWordD & "'" _ 　　　　　　　　　　　　　　　　　　& ")" 　　　　Case Else 　　　　　　　　　　End Select 　　If strFilter = "" Then 　　　　MsgBox "全件出力" 　　Else 　　　　Me.Filter = Mid(strFilter, 5) 　　　　Me.FilterOn = True 　　End If End Sub の様に記述し、Text_A や Ck1 の更新後処理に Private Sub TextA_AfterUpdate() 　　　　Call FormFilter End Sub とする事でお望みの様な動作ができるかと思われます。 ※この様な掲示版にご質問される際や ken さん以外の方がこのAccessをメンテナンスする場合、 > TextAのコンボボックス　 > Ck1はオプショングループという命名規則は混乱を招く場合がありますので元のコントロールが想像しやすい名前に変えておいた方が無難かもしれません。以下蛇足です。 Accessが初期で付けるオプショングループ名は「フレーム1」ですが、これをFrm_Aなどと省略すると「FormA」の略と混同される可能性がある為、当方は Grp_A の様な命名規則を行っています。