Object Required 1

[lars7]

HI Guys,

I'm getting an "Object Required " error message with the last part of the code:

Dim strSQL As Variant

strSQL = "DELETE tblQuery.EnQuiryID, tblQuery.RecordId, * " & _
"FROM tblQuery " & _
"WHERE tblQuery.EnQuiryID =" & [Forms]![formQuerymain]![FormQueries]![Text3] And tblQuery.RecordId = " & [Forms]![formQuerymain]![FormQueries]![Text3]"

CurrentDb.Execute strSQL, dbFailOnError

Can anyone see why.

 

[Golom]

Quotes in the wrong place

"WHERE tblQuery.EnQuiryID =" & [Forms]![formQuerymain]![FormQueries]![Text3] & " And tblQuery.RecordId = " & [Forms]![formQuerymain]![FormQueries]![Text3]

 

[lars7]

Thanks Golom,
Your code worked fine.

Dim strsql As Variant

strsql = "DELETE tblQuery.EnQuiryID, tblQuery.RecordId, * " & _
"FROM tblQuery " & _
"WHERE tblQuery.EnQuiryID =" & [Forms]![formQuerymain]![FormQueries]![Text3] & " And tblQuery.RecordId = " & [Forms]![formQuerymain]![FormQueries]![Text4]

CurrentDb.Execute strsql, dbFailOnError

and it was text4 not text3 for the last control :~/