[Resolvido]Perder o foco ou função

Bom dia

como eu faço para inserir ao comando abaixo, que ele perca o foco ao chegar no final da lista e não aparecer mensagem de erro.

Private Sub proximo_Click()
DoCmd.GoToRecord , , acNext

Desde já agradeço.

boa tarde,

Experimenta:

Private Sub proximo_Click()
docmd.setwarning false
DoCmd.GoToRecord , , acNext
Docmd.setwarning true


Abraço...

Código:

Private Sub proximo_Click()
On Error GoTo 1
    DoCmd.GoToRecord , , acNext
1:
If Err.Number = 2105 Then
    MsgBox "Você Encontrou o último registro", 16, "Atenção"
End If
End Sub

Já existe uma função ao clicar
eu gostaria de saber se existe outra por exemplo
eu clico para próximo e quando chega no final da uma mensagem de erro.

O meu código é:
Private Sub proximo_Click()
DoCmd.GoToRecord , , acNext
If txtbloqueio.Value = -1 Then
Me.DataVenda.Enabled = False
Me.DataVenda.Locked = True
Me.txt_Nome.Enabled = False
Me.txt_Nome.Locked = True
Me.txt_desconto.Enabled = False
Me.txt_desconto.Locked = True
Me.FORM_VENDASUB.Enabled = False
Me.FORM_VENDASUB.Locked = True
Else
Me.DataVenda.Enabled = True
Me.DataVenda.Locked = False
Me.txt_Nome.Enabled = True
Me.txt_Nome.Locked = False
Me.txt_desconto.Enabled = True
Me.txt_desconto.Locked = False
Me.FORM_VENDASUB.Enabled = True
Me.FORM_VENDASUB.Locked = False
End If
End Sub

Tem como eu acrescentar mais um código para o mesmo comando?
É que eu não quero que apareça aquela mensagem de erro e sim apenas um aviso sonoro.

Obrigado.

Boa tarde,

Experimente os codigos abaixo em cada botao.

Private Sub BotaoNext_Click()
If Me.CurrentRecord < Me.Recordset.RecordCount Then
DoCmd.RunCommand acCmdRecordsGoToNext
If txtbloqueio.Value = -1 Then
Me.DataVenda.Enabled = False
Me.DataVenda.Locked = True
Me.txt_Nome.Enabled = False
Me.txt_Nome.Locked = True
Me.txt_desconto.Enabled = False
Me.txt_desconto.Locked = True
Me.FORM_VENDASUB.Enabled = False
Me.FORM_VENDASUB.Locked = True
Else
Me.DataVenda.Enabled = True
Me.DataVenda.Locked = False
Me.txt_Nome.Enabled = True
Me.txt_Nome.Locked = False
Me.txt_desconto.Enabled = True
Me.txt_desconto.Locked = False
Me.FORM_VENDASUB.Enabled = True
Me.FORM_VENDASUB.Locked = False
End If
End If
End Sub

Private Sub BotaoPreviu_Click()
If Me.CurrentRecord = 1 Then
ElseIf Me.CurrentRecord <= Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acPrevious
If txtbloqueio.Value = -1 Then
Me.DataVenda.Enabled = False
Me.DataVenda.Locked = True
Me.txt_Nome.Enabled = False
Me.txt_Nome.Locked = True
Me.txt_desconto.Enabled = False
Me.txt_desconto.Locked = True
Me.FORM_VENDASUB.Enabled = False
Me.FORM_VENDASUB.Locked = True
Else
Me.DataVenda.Enabled = True
Me.DataVenda.Locked = False
Me.txt_Nome.Enabled = True
Me.txt_Nome.Locked = False
Me.txt_desconto.Enabled = True
Me.txt_desconto.Locked = False
Me.FORM_VENDASUB.Enabled = True
Me.FORM_VENDASUB.Locked = False
End If
End If
End Sub

Bom dia,

Este seu problema está resolvido?
Se sim, não se esqueça de marcar tópico como [Resolvido]

Abraço...

Problema resolvido