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