why this code not working ???

[siamandm]

hello all

i have this code working fine on a form, i do the same exact thing now its not working and not giving any errors?!!!

Code: Select all

rivate Sub txtSearch_Change()
On Error GoTo Err_txtProperty_Change
Dim sql As String

sql = "Select Products.[Product Code], Products.[Product Name] from products" _
& " Where [Product Code] like '*" & Me.txtSearch .text& "*'"

Me.CustomerList.Form.RecordSource = sql
Me.CustomerList.Form.Requery


Me.lstCustomer.RowSource = sql
Me.lstCustomer.Requery
Err_txtProperty_Change:

End Sub

[HansV]

Insert an apostrophe ' before the line

On Error GoTo Err_txtProperty_Change

to make it a comment. Do you now get an error message?

[siamandm]

i even removed that line still not working:(

[HansV]

No error message?

[siamandm]

no !! its only not filtering my data i get blank list box!
but same code works in my backup database!!! i was expecting database damage but i did repair compact ... no luck

[HansV]

Above the line

Code: Select all

Me.CustomerList.Form.RecordSource = sql

insert

Code: Select all

Debug.Print sql

After the code has run, look at the Immediate window in the Visual Basic Editor. What do you see there?

[siamandm]

thank you very very much , through this little code i learned a big info,
i found the issue is from the space !!!! which i never expected that this will make issues , have a look on the screenshot after adding a space after double quotation the problem solved!

Capture.PNG

[HansV]

That's great!