Update Issue

Hi everyone

I was having a problem with this code and was wondering if anyone can help???
Now when I click the Update command button and then move to another record and click update again I get the error msg > ( Run time error ‘3020’ ) (Update or CancelUpdate without AddNew or Edit)

Private Sub cmdUpdate_Click()
datEdgeCoarse.UpdateRecord
datToolOrgins.UpdateRecord
datEdgeCoarse.Recordset.Edit
datEdgeCoarse.Recordset.Fields("EDITDate") = Format(Date, "short Date")
datEdgeCoarse.Recordset.Fields("EditTime") = Format(Time, "hh:mm:ss AMPM")
cmdCreateLoad.Enabled = True
cmdCreateCEdge.Enabled = True
End Sub
Any help would be nice

Reston
:afrog:

Which line is causing the error to fire?

datEdgeCoarse.UpdateRecord is the first line in the click event for my command button

reston

tiguy


(Update or CancelUpdate without AddNew or Edit)

I don't see a AddNew or Edit anywhere do you??? But you are attempting to do the update. That would seem to be the problem from the message given.

What are you updating and what state is it in?