Microsoft Access 掲示板

下記のような仕様だと仮定した場合のコード例

顧客を選択するコンボボックス
名前 cb顧客
連結しているフィールド 顧客ID（数値型）

Private Sub フィルタ適用ボタン_Click()
    Dim strFilter As String 'フィルタ文字列

    '製品用フィルター生成
    Dim Itm As Variant
    For Each Itm In Me![リスト].ItemsSelected
        strFilter = strFilter & ",'" & Itm & "'"
    Next
    If strFilter = "" Then
        MsgBox "製品をリストから選択してください。"
        Exit Sub
    End If
    strFilter = "製品コード In (" & Mid(strFilter, 2) & ")"
    
    '顧客用フィルター追加
    If Me!cb顧客 <> "" Then
        strFilter = "顧客ID=" & Me!cb顧客 & " AND " & strFilter
    End If
    
    If strFilter <> "" Then
        Me![販売実績サブ].Form.Filter = strFilter
        Me![販売実績サブ].Form.FilterOn = True
    End If

End Sub