Show in a listbox a query filtered by 2 or more textboxes

[Batraul]

Hi all!

I'm a newbie in access a wanted to do some start with programming.
I've created a form with two textboxes and a listbox. What I want to do is to show in the listbox the registers filtered by the 2 textboxes. But I would like that the listbox refreshes while typping in the textboxes.

It was no problem to do filtering with only one textbox. The rowsource of the listbox is a query in which I set in the criteria Like "*" & [Forms]![Form1]![Textbox1].[Text] & "*"
Then I write the code for the change event of the Textbox1:


Private Sub Textbox1_Change()
Listbox1.Requery
End Sub


With this I have no problem. The problem is when using the 2 textboxes. I write the same in the criteria, Like "*" & [Forms]![Form1]![Textbox2].[Text] & "*", on another field but it doesn't work.
I also write the code for the second textbox:
Private Sub Textbox2_Change()
Listbox1.Requery
End Sub

The listbox doesn't filter with both textboxes. When you type in one of them, the listbox filters from it, but when you type in the other textbox, the listbox shows the whole table filtered with the characters of the second textbox.

What am I doing wrong?

Thank you in advance.

Regards.

[amrut]

When you are applying filter, you are using the criteria in text box you are typing in but ignoring the other text box. So, to filter the listbox based on criteria in both the textboxes, the filter should be build using both textboxes. Write a sub routine that will create filter using both the text boxes and call it in the text box change events.

Sub ApplyFilter()
'Apply filter using both the text boxes
Me.ListBox1.Requery
End Sub
Private Sub Textbox1_Change()
Call ApplyFilter
End Sub
Private Sub Textbox2_Change()
Call ApplyFilter
End Sub

[Batraul]

When you are applying filter, you are using the criteria in text box you are typing in but ignoring the other text box. So, to filter the listbox based on criteria in both the textboxes, the filter should be build using both textboxes. Write a sub routine that will create filter using both the text boxes and call it in the text box change events.

Sub ApplyFilter()
'Apply filter using both the text boxes
Me.ListBox1.Requery
End Sub
Private Sub Textbox1_Change()
Call ApplyFilter
End Sub
Private Sub Textbox2_Change()
Call ApplyFilter
End Sub

Hi amrut,

Thank you very much for your answer.
At first I though it worked well, but then I realized that it only respect the characters you're typing in the current textbox but it doesn't respect the characters already typed of the other textbox.

Regards.