In chapter 5 pg. 167, the code reads:
'move to the next record in the local record since the
'current one is being deleted
If Not rsContacts.EOF Then
   rsContacts.MoveNext
  'save the id of the current (next) record
  intCurContact = rsContacts!intContactId
End If

but if you delete the last record in the recordset you get and error:
Runtime Error: 3021
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.

Any idea on how to correct this.
Thanks

Again, this is an old post but I'll post an answer in hope of helping someone at a later date.

You can easily add an error handler and trap for error 3021 and then just exit the sub or function when you encounter it.

__________________
Thanks,

Bob Larson
Access MVP (2008-2010, 2011)
Free Access tutorials, samples, tools

What the solution to add / change codes to prevent it crash - how to do it

If Not rsContacts.EOF Then
rsContacts.MoveNext
'save the id of the current (next)record
intCurContact = rsContacts!PCNumber
End If

error didplay: runtime error 3021 - either BOF or EOF is TRUE or the current has been deleted

Hi, I was running the code using the example provided but I got this error.

See screen below, comparing with the code given is identical, I have to try to catch the error, but it doesn't have an idea what is going on.

Please provide some guidance.



Thanks.