Boa tarde a todos, preciso de uma ajuda de vocês, estou usando os comandos abaixo para avançar ou retroceder um registro (cadastro de produto), até ai tudo bem funciona bem, quando eu abro a tela de cadastro de produtos e clico nos botões porem nessa mesma tela tenho um botão para pesquisar produtos onde é aberto um novo form para selecionar o produto pesquisado e ao clicar no produto desejado o sistema reabre a tela de cadastro de produtos com o produto desejado porem se eu tentar clicar nos comandos avançar ou retroceder depois desse processo, não funciona, fala que eu alcancei o primeiro ou ultimo registro.
Pesquisei pra caramba aqui no forum e no google não achei, tentei vários códigos e nada
Avançar
Retroceder
Pesquisei pra caramba aqui no forum e no google não achei, tentei vários códigos e nada
Avançar
- Código:
On Error GoTo Err_Btn_Proximo_Click
DoCmd.GoToRecord , , acNext
Me.Refresh
Exit_Btn_Proximo_Click:
Exit Sub
Err_Btn_Proximo_Click:
MsgBox "Você alcançou o último registro", vbInformation, ""
Resume Exit_Btn_Proximo_Click
Retroceder
- Código:
On Error GoTo Err_Btn_Anterior_Click
DoCmd.GoToRecord , , acPrevious
Me.Refresh
Exit_Btn_Anterior_Click:
Exit Sub
Err_Btn_Anterior_Click:
MsgBox "Você alcançou o primeiro registro", vbInformation, ""
Resume Exit_Btn_Anterior_Click