RecordSet Navigation

[rookery]

Can anyone tell me why the following deletion code seems to move me one record forward after deleting the said record? Is it something to do with the current pointer?

Dim myrs As Recordset

If MsgBox("Do You Want To Delete The Record?", 4, "Deletion?&quot = 6 Then
Set myrs = Me.RecordsetClone
With myrs

.Bookmark = Me.Bookmark
.Delete

End With
MsgBox "Record is Deleted!!", 64, "No Turning Back!!"
End If
myrs.MovePrevious
myrs.Close

 

[tman138]

You are confusing the recordset clone you are working on with the cursor on the form itself. In place of myrs.moveprevious use
DoCmd.GoToRecord acDataForm, "myForm", acPrevious
where my form is the name of the form you are calling the function from.
Hope this helps ...T

 

[rookery]

TMan thanks for your help. It works a treat! Out of curiousity I was under the impression that setting MyRs.Bookmark = Me.BookMark would synchronise the two Recordsets and thus move the pointer on the Form backwards, when instructed too. Can you shed any light...?