フォームにフィルタを追加

Public Sub prcAddFilterToAnyForm(frm As Form, strAdditionalFilter As String)
    Dim strCurrentFilter As String  ' 現在のフィルタ条件を格納

    ' 現在のフィルタを取得
    strCurrentFilter = frm.Filter

    ' 現在のフィルタが存在するかをチェック
    If strCurrentFilter <> "" Then
        ' 既存のフィルタに新しい条件を追加
        frm.Filter = strCurrentFilter & " AND " & strAdditionalFilter
    Else
        ' 新しい条件のみを設定
        frm.Filter = strAdditionalFilter
    End If

    ' フィルタを有効にする
    frm.FilterOn = True
End Sub