Pessoal, antes de abrir este tópico, pesquisei bastante aqui, mas não encontrei nada que respondesse à minha dúvida.
Tenho no rodapé do meu projeto, os quatro botões de navegação padrão(First, Previous, Next e Last), cada qual com o respectivo código adaptado à sua função:
Private Sub btnProximo_Click()
If Me.Nome.Enabled = True Then
MsgBox "Salve ou cancele as alterações primeiro!", vbInformation, "Atenção"
Exit Sub
Else
DoCmd.RunCommand acCmdRecordsGoToNext
Me.Recalc
End If
End Sub
Ocorre que ao chegar no fim ou início, dependendo para qual lado está clicando, da lista de registros aberto, aparece a mensagem de erro da imagem em anexo.
Existe um método simples de evitar este erro impedido o acesso quando chegar nos registros das extremidades?
Tenho no rodapé do meu projeto, os quatro botões de navegação padrão(First, Previous, Next e Last), cada qual com o respectivo código adaptado à sua função:
Private Sub btnProximo_Click()
If Me.Nome.Enabled = True Then
MsgBox "Salve ou cancele as alterações primeiro!", vbInformation, "Atenção"
Exit Sub
Else
DoCmd.RunCommand acCmdRecordsGoToNext
Me.Recalc
End If
End Sub
Ocorre que ao chegar no fim ou início, dependendo para qual lado está clicando, da lista de registros aberto, aparece a mensagem de erro da imagem em anexo.
Existe um método simples de evitar este erro impedido o acesso quando chegar nos registros das extremidades?