filtering with VBA code

[smht]

hi
I have a Query and a form that I would like to design a button to apply the filter based on a text box to the query and show the filtered query
would you please help me how to do that?
what's the code for that?

[ranman256]

use the AFTERUPDATE event to filter...

sub txtFind_Afterupdate()

if isNull(txtFind) then
   me.filterOn = false

else
   me.filter = "[field]='" & txtFind & "'"
   me.filterOn = true
end if