Filter List Box Using text boxes

[Shamli]

Hello Everyone,


I am trying to filter the list box using text boxes.
I was able to accomplish filtering the listbox using one text box.
I wanted to filter it with two more text boxes.

Text Box After update Event:

Private Sub txtSearch_AfterUpdate()
DoCmd.ApplyFilter "", "[Employee_T].FullName like '*" & [txtSearch] & "*' "
DoCmd.Requery
[Forms]![TaskOrder]![lstEmployee].Requery
End Sub

And in the list box I Used,

Is Not Null And Like "*" & IIf([forms]![TaskOrder]![txtSearch]<>"",[forms]![taskOrder]![txtSearch],"") & "*"

This is working!
I have following fields in the list box :
EmployeeID, FullName, TO Start Date, TO End Date, Active


The above code helps in filtering the FullName.
Now I wanted to filter the TO STARt Date, Enddate and active.


can anyone help me with this.

[ranman256]

sub txtBox_Afterupdate()
If IsNull(txtBox) Then
   lstBox.rowsource = "qsAllRecs"
Else
   lstBox.rowsource = "qsFilterRecs"
End If
end sub

the query: qsFilterRecs
which would use the text box:
select * from table where [Lastname] like "*" & forms!myForm!txtBox & "*"