Forum Discussion
Run-time Error '3340'
I am having trouble with access. I use it every day and need it to work. please help me.
I have this Access error. I have Office 365 and I have followed the suggestion to update my Office version within Access. I have done this and now have version 1910 Build 12130.20410 Click-to-Run. This is the latest update. The error still persists. Please help !!!
CaptainTall45 I had the same issue crop up
The problem code was a docmd.runsql "Update Table Set field1 = #" & now() & "# Where ID = " & str(intID)
I changed it to
dim wrst as recordset
set wrst = currentdb.openrecordset("SELECT * FROM Table WHERE ID = " & str(intID))
if not wrst.eof then
wrst.edit
wrst("field1") = now()
wrst.update
end if
wrst.close