Printable View
Dim My_Query As String
My_Query = cbosearch & " " & Cbo_Operator & " " & txtsearch.Text & "'"
Data1.RecordSource = "SELECT * FROM General WHERE " & My_Query
Data1.Refresh
Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst
MsgBox Data1.Recordset.RecordCount & " matches found."
Exit Sub
Does anyone see a syntax error?
What is the error you are getting?
Error 3022 Syntax error in from statement.
What is the value of each of these when you get the error?
cbosearch
Cbo_Operator
txtsearch.Text
cbosearch is the name of a databse field like - Name and txt search is the name you are searching for the other combo box I deleted but set the value to Like.
It looks like you don't have your other single quote in from the the txtSearch.Text. You should have this and only this for alpa fields. If it is numeric take out the single quotes around txtSearch.text
My_Query = cbosearch & " " & Cbo_Operator & " '" & txtsearch.Text & "'"
I said from txtSearch.text, what I meant was in Front of txtSearch.text you need the other single quote
It is still giving the same error. I am just trying to search my database for a name or number from a textbox and display the results of the whole row in other textboxes.
Try this
Dim My_Query As String
'You missed out this (')
My_Query = cbosearch & " " & Cbo_Operator & " '" & txtsearch.Text & "'"
Data1.RecordSource = "SELECT * FROM General WHERE " & My_Query
Data1.Refresh
Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst
MsgBox Data1.Recordset.RecordCount & " matches found."
Exit Sub
You missed out (') in your code
Hope this helps
Spud
It still gives me the error but i think something else somewhere else in the code is causing the error, not the actual search part. But there are to many lines to post all the code.
[Edited by chongo 2002 on 09-08-2000 at 09:27 PM]
The General needs to be [General] for anyone who has this same problem.
Try:
Data1.RecordSource = "SELECT * FROM General WHERE Myfield = " & My_Query