error expected end of statement 1

[primerov]

I am trying to build a function that refers to the table instead to the form. I think i should use the DLookup function, i do not know any other way.
However, i receive the error "Expected : end of statement"
Can i refer to a table at all in the function mentioned below and where might the error
be in this function ?

Public Function RemoveBefore()
Dim SqlRemoveFromOrders As String
SqlRemoveFromOrders = " DELETE DISTINCTROW orders.orderdate AS Expr1 " & _
" FROM orders " & _
" WHERE orders.orderdate < DLookUp("[CutDate]";"TblCutDate")"
CurrentDb.Execute SqlRemoveFromOrders
End Function

 

[DeanWilliams]

Hi,

Your syntax is slightly off with you SQL. You also should have a comma instead of a semi-colon:

SqlRemoveFromOrders = "DELETE DISTINCTROW orders.orderdate  AS Expr1  " & _
" FROM orders " & _
" WHERE orders.orderdate < [COLOR=red]"[/color] & DLookUp("[CutDate]"[COLOR=red],[/color]"TblCutDate")

HTH,
Dean

 

[PHV]

And what about something like this ?
SqlRemoveFromOrders = "DELETE FROM orders " & _
" WHERE orderdate<(SELECT CutDate FROM TblCutDate);"
You may need a where clause in the subquery.


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244