Обработка ошибки

[vlkr]

Всем доброго дня!
Я хочу обработать ошибку так:

On Error Resume Next
F_General_Sub.Form.Recordset.MoveLast
End Sub

Эта ошибка будет появляется, когда субформа не имеет записей но такая конструкция не работает.
А везде пишут что должна. Скорее всего я что-то не понимаю.

Я сделал так:

sw = F_General_Sub.Form.Recordset.RecordCount
If sw > 0 Then F_General_Sub.Form.Recordset.MoveLast

Посоветуйте какой вариант лучше?

Всем спасибо!

[Teslenko_EA]

Здравствуйте vlkr.
Конечно правильнее не получать ошибку, а заранее предусмотреть её возможность, например так:

With F_General_Sub.Form.Recordset
    If Not .EOF Then .MoveLast
End With

так потому, что нет подсчёта кол-ва записей (RecordCount), их может быть много и зачем их считать.
Евгений.

[vlkr]

Спасибо так и сделаю.