"Update Or CancelUpdate Without...." When Find Code Used 1

[dominicdunmow]

When I open my database I can update the forms no problem.

But when I open the database and search for a particular record using the code below:-

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Opp_ID_Search], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

and try and update the record, I get an error message reading:-

"Update Or CancelUpdate Without AddNew or Edit"

Can anyone help me please?

Thanks

 

[RoyVidar]

Could it be that the current record contains unsaved changes? Try one of the save commands prior to this code, for instance:

[tt]if me.dirty then
docmd.runcommand accmdsaverecord
end if[/tt]

Roy-Vidar