Solved How to combine two option group to filter listbox (1 Viewer)

SHANEMAC51

Active member
Local time
Today, 05:25
Joined
Jan 28, 2022
Messages
310
Code:
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
 
Last edited:

Ihk

Member
Local time
Today, 03:25
Joined
Apr 7, 2020
Messages
280
Code:
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
 

Users who are viewing this thread

Top Bottom