[Resolvido]Avançar e recuar registro

Ola, neste exemplo em anexo, ao rodar o Form, consigo normalmente avanca e recuar um registro.
Porem se eu selecionar algum produto na caixa de listagem, e depois tentar avancar ou retroceder u produto, nao e aceito.
Como posso resolver esse problema ?

Na caixa de listagem click por exemplo no item 3 ( Maca ), ao precionar anterior ou proxino.

MensageM: Voce nao pode ir para o registro especificado

Grato

Andre

Veja as alterações realizadas nos códigos dos botões de navegação

Ola Gilberlanio.

Ficou um Bug, veja que ele sempre retorna ao registro 2. Vamos que eu tenha 100 itens, ele vai sempre retornar ao registro 2 neste modelo,

Exemplo, cliquei na caixa de listagem no item 99, ao dar proximo, ele cai no registro 2. O certo seria cair no registro 99 ou 98 , dai dando proximo de novo se inicia em 98 ou 99.

Se puder estou no aguardo.

Grato

Andre

DEixo aqui em aberto ainda, pois nao foi possivel corrigir 100% o problema, como relatado acima.

Grato

Andre

Bom dia André,

Dê uma olhada no anexo.

Amigo Livio, muito obrigado, , funcionou certinho mas bati aqui cabeça um pouco, mas so alterei uma coisa e acresentei outra.

Dim nCod As Variant 'Long
nCod = Me.lista.Column(0)

Me.txtCodigoBarra.Enabled = True

DoCmd.GoToControl "txtCodigoBarra"
DoCmd.FindRecord nCod, , False, , True

Vi tb a outrra modificao que vc fez no botao avancar.

De novo meu muito obrigado.

Andre

Muito bom.

Se tiver resolvido, só fechar o tópico!


Sds

joia