Private Sub cmdGenerate_Click()
Dim PriorityFilter As String
Dim AssetClassFilter As String
Dim ImpactedRegionFilter As String
Dim ImpactTypeFilter As String
Dim StatusFilter As String
Dim TotalFilter As String
If Me.cboPriority <> "All" Then
TotalFilter = "[Priority] = '" & Me.cboPriority & "'"
Else
TotalFilter = "([Priority] Is Null Or [Priority] Like '*')"
End If
If Me.cboAssetClass <> "All" Then
TotalFilter
= TotalFilter & " And ([Asset Class] = 'All Asset Classes' Or
[Asset Class] Like '*" & Me.cboAssetClass & "*')"
Else
TotalFilter = TotalFilter & " And ([Asset Class] Is Null Or [Asset Class] Like '*')"
End If
If Me.cboImpactedRegion <> "All" Then
TotalFilter
= TotalFilter & " And ([Impacted Region] = 'All Regions' Or
[Impacted Region] Like '*" & Me.cboImpactedRegion & "*')"
Else
TotalFilter = TotalFilter & " And ([Impacted Region] Is Null Or [Impacted Region] Like '*')"
End If
If Me.cboImpactType <> "All" Then
TotalFilter = TotalFilter & " And [Impact Type] = '" & Me.cboImpactType & "'"
Else
TotalFilter = TotalFilter & " And ([Impact Type] Is Null Or [Impact Type] Like '*')"
End If
If Me.cboStatus <> "All" Then
TotalFilter = TotalFilter & " And [Status] = '" & Me.cboStatus & "'"
Else
TotalFilter = TotalFilter & " And ([Status] Is Null Or [Status] Like '*')"
End If
DoCmd.ApplyFilter , TotalFilter
Forms![SF Data and Technology Priorities].OrderBy = Me.cboSort
Forms![SF Data and Technology Priorities].OrderByOn = True
End Sub
