Delete in external database

[theosgood]

Hello,

I have the following code

If A then
DoCmd.RunSQL "DELETE * FROM " & "[tblActive Offer Listing-" & strDept & "]" & "IN '" & strPathxpt & "'"
else
DoCmd.RunSQL "DELETE * FROM " & "[tblActive Offer Listing-" & strDept & "]" & " Where [tblActive Offer Listing-" & strDept & "].[Offer Number] <= 499 " & "IN '" & strPathxpt & "'"


end if

where strPathxpt is an external database: T:\Business Analysis\DataSource\AnalystTables-Footwear.mdb

A works but when I add the <=499 condition I get the following error:

In operator without () in query expression. I've tried adding () in a couple of places and no success. Any suggestions?

Thanks

[ssanfu]

For debugging purposes, try this:

'Add this line
    Dim sSQL As String

    If A Then
        sSQL = "DELETE * FROM " & "[tblActive Offer Listing-" & strDept & "]" & "IN '" & strPathxpt & "'"
    Else
        sSQL = "DELETE * FROM " & "[tblActive Offer Listing-" & strDept & "]" & " Where [tblActive Offer Listing-" & strDept & "].[Offer Number] <= 499 " & "IN '" & strPathxpt & "'"
    End If

    Debug.Print sSQL
'open the Immediate window (Ctrl-G) to view the SQL string to see if it is a valid string.

    DoCmd.RunSQL sSQL

Post back with the results of the debug statement...


--------------------------
I don't use DoCmd.RunSQL because of the warnings that are displayed. To get rid of the warnings, you have to set warnings off, then remember to turn them back on.
I use:
CurrentDb.Execute sSQL, dbFailOnError

The "dbFailOnError" will notify you if there is an error.

[theosgood]

Thanks Steve,

I forgot to include the docmd.runsql in my example when I cut and pasted. However, I did find the solution a short time ago. It was in the syntax. I had the where clause in the wrong spot.

DoCmd.RunSQL "Delete [tblActive Offer Listing-" & strDept & "].[Offer Number] FROM [tblActive Offer Listing-" & strDept & "] IN '" & strPathxpt & "' WHERE ((([tblActive Offer Listing-" & strDept & "].[Offer Number]) <= 499))"

[ssanfu]