DoCmd.SetWarnings False
Dim sSQL As String
sSQL = "UPDATE tblTempResults SET JobID = 2 where SerialID = 2"
DoCmd.RunSQL sSQL
DoCmd.SetWarnings True
will fail.DoCmd.SetWarnings False
Dim sSQL As String
sSQL = "UPDATE (select * from tblTempResults) SET JobID = 2 and SerialID = 2"
DoCmd.RunSQL sSQL
DoCmd.SetWarnings True
and it will then succeed