[Resolvido]erro comando for

boa tarde

por favor, faz tempo que nao desenvolvo e estou com um problema simples no comando for, mas nao consigo achar.

tenho uma rotina abaixo num formulario com varios itens:


Private Sub Comando72_Click()

Dim i, strContar As Integer

'recebe a qtde de notas que contou
strContar = QTDE_NOTAS


'inicio do cursor
For i = 1 To strContar

'calcula
PRECO = PRECO + Texto70


DoCmd.GoToRecord , , acNext

Next

MsgBox "Documentos Processados com Sucesso...", vbInformation

'DoCmd.Close

End Sub



ele faz certinho, so que quando termino o ultimo registro, ele da erro:

erro em tempo de execucao 2105
voce nao pode ir para o registro especificado

mandar depurar e ao depurar mostra esta linha

DoCmd.GoToRecord , , acNext

obrigado

If not (i = strContar) then DoCmd.GoToRecord , , acNext

muito obrigado

O fórum agradece o retorno. Sucesso.