After delete "No current record" when EOF

[gdev]

Hi,

DoCmd.RunCommand acCmdDeleteRecord works fine except when the current record is the last record. I get a "no current record" error message.

I have tried rst.movefirst and rst.moveprevious after the command but I still get the error message.

Please tell me what I am doing wrong?


Thanks
Gwen

 

[HitechUser]

gdev ,

I am not sure, but try this..

' do this
  DoCmd.RunCommand acCmdSelectRecord
' Then do this
  DoCmd.RunCommand acCmdDeleteRecord

 

[RoyVidar]

I think it's only occuring when there's no record left, and perhaps due to the method of deletion, so I think I'd just handle it in the error handler.

[tt]on error goto myerr
' perform your delete

myexit:
exit sub
myerr:
if err.number<>3021 then
msgbox err.description
end if
resume myexit
end sub[/tt]

I e - just don't show the error message if it's the 3021...

Roy-Vidar