Microsoft Access 掲示板

コードに下記のようにデバッグ用のコードを埋め込んでください。

その後、フォームを開いて、リストボックスでリストを複数選択して、フィルタ適用ボタンをクリックします。

次に、Ctrl+G でイミディエイトウィンドウを開いて、そこに出力されているテキストをコピーしてここに貼り付けてもらえますか。

Private Sub フィルタ適用ボタン_Click()

    Dim strFilter As String 'フィルタ文字列

    Debug.print "選択数: " & Me![製品リストbox].ItemsSelected.Count '※デバッグコード

    '製品用フィルター生成
    Dim Itm As Variant
    For Each Itm In Me![製品リストbox].ItemsSelected
        strFilter = strFilter & ",'" & Itm & "'"
    Next

    If strFilter = "" Then
        MsgBox "製品をリストから選択してください。"

        Exit Sub
    End If

    strFilter = "製品コード In (" & Mid(strFilter, 2) & ")"

    Debug.print "strFilter: " & strFilter '※デバッグコード

    '顧客用フィルター追加
    If Me!コンボID <> "" Then
            trFilter = "顧客ID=" & Me!コンボID & " AND " & strFilter
    End If

    If strFilter <> "" Then
        Me![販売実績サブ].Form.Filter = strFilter
        Me![販売実績サブ].Form.FilterOn = True
    End If

    Debug.print "Form.Filter: " & Me![販売実績サブ].Form.Filter '※デバッグコード

End Sub