Having difficulty with button to apply multiple filters

[templeowls]

I have a DB full of customer complaints and I am trying to use a button to filter down to a certain subset of entries in a form. I want the button to filter to "in progress" complaints, along with entries from two specific categories. My code is below:

Private Sub btnFilter_Click()    Me.Filter = "[Status]= 'In Progress'"
    Me.Filter = [Category]= 'Billing' or [Category] = 'Cleanliness'"
    DoCmd.SetOrderBy "[ComplaintDate] ASC"
    Me.FilterOn = True
End Sub

Using the above code does not apply the 'status' filter. Any suggestions on how to retool this?

[Gicu]

Could you please try this:

Private Sub btnFilter_Click()
Dim sFilter as string
sFilter="[Status]= 'In Progress' AND [Category] IN ('Billing','Cleanliness')"    
'Me.Filter = "[Status]= 'In Progress'"
'Me.Filter = [Category]= 'Billing' or [Category] = 'Cleanliness'"
DoCmd.SetOrderBy "[ComplaintDate] ASC"
Me.Filter=sFilter    
Me.FilterOn = True
End Sub

Cheers,

[ranman256]

sub btnFind_click()
sWhere = "1=1"
if not isnull(cboState) then   sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then    sWhere = sWhere & " and [Name]='" & txtName & "'"
if not IsNull(cboGender) then    sWhere = sWhere & " and [Gender]='" & cboGender & "'"

 'then filer
if sWhere = "1=1" then
   me.filterOn = false
else
   me.filter = sWhere
   me.filterOn = true
endif
end sub

[templeowls]

Could you please try this:

Private Sub btnFilter_Click()
Dim sFilter as string
sFilter="[Status]= 'In Progress' AND [Category] IN ('Billing','Cleanliness')"    
'Me.Filter = "[Status]= 'In Progress'"
'Me.Filter = [Category]= 'Billing' or [Category] = 'Cleanliness'"
DoCmd.SetOrderBy "[ComplaintDate] ASC"
Me.Filter=sFilter    
Me.FilterOn = True
End Sub

Cheers,

That worked!! Thank you!!

[Gicu]

[Micron]

So what if you later decide you want to add more status' or categories - more buttons?
At that point, might be better to use combos or listboxes, depending on the number of options and combinations you want to create.