Почитайте хелп по EOF. Так и должно быть

могу только повторить, что все инструкции работают, как надо. Покажите код, который вы используете, расскажите, как вы считаете он должен работать и то как он себя ведет на самом деле, тогда можно о чем-то говорить.

Private Sub Кнопка4_Click()
Do While Me.CurrentRecord <> Me.Recordset.RecordCount
DoCmd.GoToRecord , , acNext
If Me.CurrentRecord = 3 Then
MsgBox "Last"
End If
Loop
End Sub

код, который я привел, я протестировал(громко звучит) в mdb и adp. Он работает правильно.
Удаление записей в форме ни как не влияет на опрос рекордсета на предмет RecordCount.
Да, действительно, после удаления записи рекордсет теряет текущую запись, но RecordCount получить можно все равно.
Что происходит у вас - не понято. Может у вас Access битый, может ADO/DAO, или не все условия, в которых это происходит вы изложили(удаление через форму или рекордсет, mdb/adp, версия Access, источник данных родной/нет, и т.д.).

А вообще, непонятна идея такого шагания по форме, зачем носиться туда сюда по форме, когда можно использовать Clone, так хоть форма дергаться не будет. И еще, ну вот вы узнали, что после удаления записи рекордсет теряет текущую запись. Ну и что страшного? Нет текущей, так сделайте текущую, станьте куда-нибудь в конце концов. А если будет использовать клон, то проблемы вообще отпадут, потому как получив ссылку на клон вы сразу окажетесь на первой записи и можете без ошибок выполнить ваше шагание, не смотря на то, было удаление в форме или нет перед этим.

Мастер, создающий кнопку с кодом на удаление не создает код, подобный тому, что вы привели:
Docmd.RunSQL "DELETE...".

Это уже восемнадцатый топик по счету, а до сих пор не сделали того, что должны были в самом начале - ПОКАЗАТЬ ВАШ КОД.
Вопрос 2*2=? не может занимать 18топиков. Я на этом откланиваюсь

Откланялся я то, откланялся, да вот вдруг увидел, что случайно привел не тот код. Правильная редакция:

Private Sub Кнопка9_Click()
Do While Me.CurrentRecord <> Me.Recordset.RecordCount
DoCmd.GoToRecord , , acNext
If Me.CurrentRecord = Me.Recordset.RecordCount Then
MsgBox "Last"
End If
Loop
End Sub

ну код мастера на удаление:

Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка8_Click:
Exit Sub

Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click

End Sub

Все работает.
Вот теперь откланялся