[Resolvido]Erro em tempo de execução "2105'

Bom dia Srs.

Tenho um formulário que criei um botão de seta para voltar ao registro anterior,

Na função ao clicar nele coloquei:
Private Sub Comando356_Click()

DoCmd.GoToRecord , , acPrevious

If Me.NewRecord Then
     DoCmd.GoToRecord , , acPrevius
     
     
     
End If
End Sub


ocorre que quando se está no 1º registro do formulário e se clica nele(botão seta para voltar) dá o erro:

Erro em tempo de execução "2105'
Você não pode ir para o registro especificado.

Tem como tirar esse aviso
e continuar funcionando normalmente?

Bom dia,

Substitua o código por esse:

Código:


Private Sub Comando356_Click()
On Error GoTo trata_erro

    DoCmd.GoToRecord , , acPrevious
    Exit Sub

trata_erro:
    If Err.Number = 2105 Then Resume Next

End Sub



Use essa mesma rotina para os demais botões de navegação também.

É isso

Att,

Alexandre Fim

Muito obrigado, resolvido.
Funcionou.

Valeu Cecel !!!
O forum agradece.
Sucesso