Is this Update Statement correct?

[ravikode]

Is this Update Statement correct?

Dim rstEqpCtrlUpd As Recordset
Dim dbsUps As DAO.Database
Set dbsUps = CurrentDb()
ToDate = Now()

Set rstEqpCtrlUpd = dbs.OpenRecordset("Update ControlReportDate " & " SET Date =([ToDate]) WHERE ReportName = 'EuipControlReport';")

dbsUps.Close

 

[Corticus]

Hi ravikode,

But adjusting your code to the following (changing its function in no way):

Dim rstEqpCtrlUpd As Recordset
Dim dbsUps As DAO.Database
Set dbsUps = CurrentDb()
ToDate = Now()

Dim updSQL As String
updSQL = "Update ControlReportDate " & " SET Date =([ToDate]) WHERE ReportName = 'EuipControlReport';"

Set rstEqpCtrlUpd = dbs.OpenRecordset(updSQL)

dbsUps.Close

I was able to determine you're using this for your update SQL:
Update ControlReportDate SET Date =([ToDate]) WHERE ReportName = 'EuipControlReport';

There are 2 spaces between ControlReportDate (even though the post shows one) and SET for starters, I don't have your db so its hard to tell much more, looks like 'EuipControlReport' might be spelled wrong, not sure.

But by assigning your update SQl to a string variable, you can test it in a query builder and try to isolate what's going on.

Hope this helps,

 

[ravikode]

Thank You it worked