Microsoft Access 掲示板

hatenaさんありがとうございます。

顧客ID：数値型
製品コード：テキスト型

コード提示いたします。

デバッグをしてみたところ、 Itmがemptyになっていることに気が付きました。
サブフォームになにも表示されなくなってしまう件と
なにか関係がありますでしょうか・・・？

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

    Dim strFilter As Variant 'フィルタ文字列
    Dim trFilter As Variant

    '製品用フィルター生成
    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) & ")"

    '顧客用フィルター追加
    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

End Sub‘‘‘