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 の様な命名規則を行っています。
1,255 hits

【11401】複数条件での抽出について教えて下さい ken 10/1/21(木) 10:45 質問[未読]
【11413】Re:複数条件での抽出について教えて下さい 小僧 10/1/22(金) 11:07 発言[未読]
【11419】Re:複数条件での抽出について教えて下さい ken 10/1/22(金) 13:32 回答[未読]
【11423】Re:複数条件での抽出について教えて下さい 小僧 10/1/22(金) 17:38 発言[未読]
【11426】Re:複数条件での抽出について教えて下さい ken 10/1/25(月) 11:45 回答[未読]
【11429】Re:複数条件での抽出について教えて下さい 小僧 10/1/25(月) 17:08 回答[未読]
【11431】Re:複数条件での抽出について教えて下さい ken 10/1/25(月) 18:34 質問[未読]
【11432】Re:複数条件での抽出について教えて下さい ken 10/1/25(月) 19:05 回答[未読]
【11433】Re:複数条件での抽出について教えて下さい ken 10/1/26(火) 8:57 お礼[未読]

1847 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078197
(SS)C-BOARD v3.8 is Free