Private Sub cmd_apply_filter_Click()
On Error GoTo Err_cmd_apply_filter_Click
Dim strFilter As String
strFilter = “”
If Me.lst_portfolio.ListIndex <> -1 Then
strFilter = “Prj_Prog_Id = “ Str(Me.lst_portfolio.Value)
End If
If Me.Lst_prj_name.ListIndex <> -1 Then
If strFilter <> “” Then
strFilter = strFilter & “ and “
End If
strFilter = strFilter & “Prj_Name = ‘” Me.Lst_prj_name.Value & “’ “
End If
If Me.lst_prj_status.ListIndex <> -1 Then
If strFilter <> “” Then
strFilter = strFilter & “ and “
End If
strFilter = strFilter & “Prj_Status = ‘” Me.lst_prj_status.Value & “’ “
End If
If Me.lst_prj_sponsor.ListIndex <> -1 Then
If strFilter <> “” Then
strFilter = strFilter & “ and “
End If
strFilter = strFilter & “Prj_Sponsor = ‘” Me.lst_prj_sponsor.Value & “’ “
End If
If Me.lst_prj_pm.ListIndex <> -1 Then
If strFilter <> “” Then
strFilter = strFilter & “ and “
End If
strFilter = strFilter & “Prj_PM = ‘” Me.lst_prj_pm.Value & “’ “
End If
If strFilter <> “” Then
Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = “”
Me.Filter = False
End If
Exit_cmd_apply_filter_Click:
Exit Sub
Err_cmd_apply_filter_Click:
MsgBox Err.Description
Resume Exit_cmd_apply_filter_Click
End Sub