Database Search filter

[dada]

Hi! I'm totally new to microsoft access, I'm doing a simple search engine in my form.. that onchange of the textbox value, it will filter the result without pressing any button. anyone can help me with this function? thanks in advance!

here is the scene of my form: i have a textbox and has the label named title.. below the textbox is a subform/subreport that displays all the values in the table..

[ajetrumpet]

how do the search results relate to what is entered in the box?

what do you want to search?

titles that match exactly?

where titles in the table are LIKE what is entered?

[dada]

umm.. i'm actually trying to make a simple search engine about employee's record to be filtered by id. so if the user type the exact id in the textbox, it will show all the result in a subform/subreport. please help..

[ajetrumpet]

i'm not able to gather what I need from your description. I would take a look at your file if you want to upload it here.

[dada]

here is the file.. run the form DTR.. what i'm trying to do is Afterupdate of the textbox, the subreport/subform will then become visible and will only show the exact barcode typed in the textbox, if the barcode has no match, i will not show any results or will just show a message box that it's invalid.

here:
Attachment 1581

[maximus]

Plz see Form1 here I have a TextBox Text0 and a List box List2. The List2 displays the Records in tblEmployee. In the Rowsource Query of the list Box I have put this criteria in the BarCode Field:

[Forms]![Form1]![Text0]

This will ensure that data in the List Box will be displayed that of the particular BarCode entered in Text0. But to do this we need to Requery the list Box which I have done using the code attached in the AfterUpdate event of the Text box. The list Box is visible only when data is found to be displayed other wise u get a msg prompt invalid Barcode and a label is also displayed on the form no data found.

The code attached is as follows:

Dim intRecordCount As Integer
intRecordCount = IIf(IsNull(DCount("[EmployeeId]", "tblEmployee", "[BarCode]='" & Me.Text0 & "'")), 0, DCount("[EmployeeId]", "tblEmployee", "[Barcode]='" & Me.Text0 & "'"))
If intRecordCount = 0 Then
Me.Label4.Visible = True
Me.List2.Visible = False
MsgBox "Invalid Employee Code"
Else
Me.Label4.Visible = False
Me.List2.Visible = True
End If
Me.List2.Requery

I am attaching the sample please check Form1.

Note. After entering the barcode in the text box press enter to trigger the afterupdate event code.

[dada]

awesome!!!!!! you nailed it! thank you so much!!! i have one last question, i'll make use of your time while your online.. hehe... thank you so much sir maximus!

[maximus]

No problem mark the thread solved
Glad to help.