access コンボボックスによるフィルタリングの汎用関数

Question

ACCESSでグラフを表示するための、分割フォームを作っています。

###　課題

分割フォームを利用して、右側のテーブル　＝　左側のフォーム上のグラフを連動させたいと思っています。

###質問内容

複数のフィルタリング条件が考えられるため、ＡＮＤ条件の検索が必要です。
使用するユーザーが動的にコンボボックスを追加できるように、
コンボボックスのコントロールソースから、フィルタ条件を関数で作成してフィルタをかけています。

データのフィルタリングはまでは、できてはいるのですが、
この先のやり方が見えずに、今の方法に疑問を感じています。

もっとほかに、かしこいやり方があったら教えて欲しいのでしょうか？
（以上で、だいたいの私のやりたいイメージをお伝えできていると思いますが・・・）

フォームのフィルタ条件

 [グラフデータ].Pad='167_169' AND  [グラフデータ].試験名='サーマルサイクル(TC)' AND  [グラフデータ].NO='101'

各コンボボックスの値ソース

SELECT [グラフデータ].Pad FROM グラフデータ; 
SELECT [グラフデータ].試験名 FROM グラフデータ GROUP BY [グラフデータ].試験名; 
SELECT [グラフデータ].NO FROM グラフデータ GROUP BY [グラフデータ].NO; 

フォームモジュール

Option Compare Database
Option Explicit

Private Sub CmbNo_AfterUpdate(): GoFilter: End Sub
Private Sub CmbPad_AfterUpdate(): GoFilter: End Sub
Private Sub CmbTest_AfterUpdate(): GoFilter: End Sub

Sub GoFilter(): Set_Fileter Me: End Sub

標準モジュール

Option Compare Database
Option Explicit



Public Sub Set_Fileter(Form As Variant)
Dim key
Dim filt: filt = ""
Dim obj
Dim i: i = 0

For Each obj In Form.Controls
    With obj
    If .ControlType = acComboBox Then
    Debug.Print .RowSource
    
    key = Replace(Replace(正規表現(.RowSource, "SELECT .+ FROM").Item(0).Value, " FROM", ""), "SELECT ", "")
    If Not IsNull(.Value) Then filt = filt & " " & key & "='" & .Value & "' AND "
    i = i + 1
    End If
    End With
Next

Form.Filter = Left(filt, Len(filt) - 5)
Debug.Print Form.Filter

Form.FilterOn = True

End Sub



Function 正規表現(msg As String, strPattern As String) As Object
    Dim RE As Object
    Set RE = CreateObject("VBScript.RegExp")
    With RE
        .Pattern = strPattern       ''検索パターンを設定
        .IgnoreCase = True          ''大文字と小文字を区別しない
        .Global = True              ''文字列全体を検索
        Set 正規表現 = .Execute(msg)
    End With
End Function

Answer 1

アクセスのグラフに関しては、WINDOWSのGRAPHコンポーネントとの連携が悪いため、あきらめることにしました。この点では、EXCELの方に軍配が上がる結果となりました。

Answer 2

しかしながら、うまく動いてくれません。

具体的に求める結果とその相違を示さないと分かりませんよ。

１）分割フォームのフィルタ式は、これで間違っていませんでしょうか？

フィルターが適用されていないならFilterOnプロパティがTrueになっていないからではないでしょうか。

ただ、そもそも分割フォームはデータシートビューがフィルターの役割です。
意図した動作になるかは言及できません。

２）もっとマシな方法はありませんでしょうか？

分割フォームではなくて、サブフォームを使用する方が目的に合いそうな気がします。