Errorcode 3065

[kmrowlan]

Need some help! I'm getting this error:

Run-time error '3065': Cannot execute a select query.

Here is the code:

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("cmTable", dbOpenDynaset)

Dim strSQL As String
Dim strQuoteID As Long
strQuoteID = Text2
If Nz(Rep.Column(0), 0) = 0 Then
MsgBox "You must Select A Rep"
Exit Sub
Else
End If

strSQL = "SELECT * From cmTable " & _
"WHERE (((cmTable.QuoteID) = 724));"

CurrentDb.Execute strSQL, dbFailOnError
DoCmd.Close acForm, "CopyQuote_Header", acSaveYes

I know it is an issue of data but not sure how to solve it.
Any help would be greatly appreciated! Thanks

 

[boblarson]

Well, you definitely have space problems and single quotes where there shouldn't be any (the red is where I found spaces missing between the two items in red) .

Here it is corrected:

strSQL = "INSERT INTO cmTable ( PanelType, Thick, Sqft, [Line], Location, Price, TotalCost, LPrice, NPrice, QuoteID, Mult, Description, TimeFrame) " & _
"SELECT cmTable.PanelType, cmTable.Thick, cmTable.Sqft, cmTable.[Line], cmTable.Location, cmTable.Price, cmTable.TotalCost, cmTable.LPrice, cmTable.NPrice, '" & strNewQuoteID & "', cmTable.Mult, cmTable.Description, cmTable.TimeFrame " & _
"FROM cmTable " & _
"WHERE (((cmTable.QuoteID) Like '*" & strQuoteID & "*'));"

 

[jasmith4]

Make sure "*722*" has quotes on both sides -- your last post has one missing from the right side.

 

[boblarson]

Make sure "*722*" has quotes on both sides -- your last post has one missing from the right side.

??? where are you seeing that?

EDIT: (Never mind, I see where you saw it). There was more to it that just that, just like I said - missing quotes and spaces.

 

[kmrowlan]

Thank you Bob.
That did it. Sorry to bother you on Syntax.
Should have worked thru that myself.