[Resolvido]Último registro

Private Sub btProximo_Click()
On Error GoTo TrataErro
DoCmd.GoToRecord acActiveDataObject, , acNext
sair:
    Exit Sub
TrataErro:
    If Err.Number = 2105 Then
        MsgBox "Este é o último registro ...", vbInformation, "Aviso"
    Else
        MsgBox Err.Description
    End If
    Resume sair
End Sub

Private Sub btProximo_Click()
On Error resume next
DoCmd.GoToRecord acActiveDataObject, , acNext
end sub

If Me.Recordset.RecordCount - 1 > Me.Recordset.AbsolutePosition Then
   ' >>> aqui a função de limpar campos
    DoCmd.GoToRecord acActiveDataObject, , acNext
Else
    MsgBox "Este é o último registro ...", vbInformation, "Aviso"
End If