Solved How to combine two option group to filter listbox

[SHANEMAC51]

No

Private Sub Frame155_AfterUpdate()
f_search
end sub
'''''''''''''''''''''''''''''''''''
Private Sub Frame173_AfterUpdate()
f_search
end sub
'''''''''''''''''''''''''''''''''''''
sub f_search()
dim s1,s2
s1=""
'''''''''''''''''''''''''''''''''''''''''''
If Frame155 = 2 Then
     s1=s1 & " and Query1.[Status]= 'Approved'"
ElseIf Frame155 = 3 Then
     s1=s1 & " and query1.[Status]= 'Pending'"
end if
'''''''''''''''''''''''''''''''''''''''
If Frame173 = 2 Then
    s1=s1 & " and Query1.[Dateorder]>=Date()-180"
ElseIf Frame173 = 3 Then
     s1=s1 & " and Query1.[DateOrder]>=Date()-30
end if
''''''''''''''''''''''''''''''''''''''''
if len(s1)>0 then
    me.filter= mid(s1,5)
    me.filteron=true 
else 
    me.filteron=false
end if
end sub

 

[Ihk]

Private Sub Frame155_AfterUpdate()
f_search
end sub
'''''''''''''''''''''''''''''''''''
Private Sub Frame155_AfterUpdate()
f_search
end sub
'''''''''''''''''''''''''''''''''''''
sub f_search()
dim s1,s2
s1=""
'''''''''''''''''''''''''''''''''''''''''''
If Frame155 = 2 Then
     s1=s1 & " and Query1.[Status]= 'Approved'"
ElseIf Frame155 = 3 Then
     s1=s1 & " and query1.[Status]= 'Pending'"
end if
'''''''''''''''''''''''''''''''''''''''
If Frame173 = 2 Then
    s1=s1 & " and Query1.[Dateorder]>=Date()-180"
ElseIf Frame173 = 3 Then
     s1=s1 & " and Query1.[DateOrder]>=Date()-30
end if
''''''''''''''''''''''''''''''''''''''''
if len(s1)>0 then
    me.filter= mid(s1,5)
    me.filteron=true
else
    me.filteron=false
end if
end sub

Your greatness, Previous code was working perfectly fine, without any problem, data is filtered immediately.
I said No to this comment

Is there a need for a requery when you change rowsource?

as I understood is , do I need an extra requery for this... so I said no