Botão registo anterior

Boa tarde

O meu formulário esta desvinculado da tabela.
Criei um caixa de listagem que mostra todos os registos da tabela.
Ao clicar na cx de listagem o registo aparece nos campos para editar.
Também criei 4 botões para ir para o primeiro, ultimo, seguinte e anterior registo.
Nestes 4 botões consegui programar 3 no vb. Mas o botão de navegação de "registo anterior", não consegui.
O código que utilizei para o 3 botões de navegação foi:
Primeiro registo: Dmin
Ultimo registo: Dmax
Registo seguinte: Me.ID = DLookup("ID", "FERIAS", "ID>Forms![FERIAS]![ID]")
registo anterior: Não consegui.
Desde já obrigado.

MB

boa tarde amigo moises , coloque este código no Botão Registro Anterior.


DoCmd.GoToRecord , , acPrevious



abraço Nogaro !

Obrigado.

Mas como a tabela esta desvinculada esse código não funciona, já tentei.

Moises de uma olhada aqui é sobre o que precisa

https://www.maximoaccess.com/t2844-resolvidoform-desvinculado-pesquisa-avancar-retroceder
abraço Nogaro !

Utilizei este código, mas acho que falta alguma coisa que eu não adaptei bem.
Mais uma vez obrigado,

Nome bd: SP
tabela: Ferias
Campo: Id

Dim BD As DATABASE
Dim RS As Recordset

Set BD = CurrentDb()
Set RS = BD.openrecordset("Ferias")

Me.ID = RS![ID]

RS.moveprevious
Call [ID]

Ja consegui por o código a funcionar, nas ferramentas , referencias, Microsoft 3.6 Object Library.
Mas o resultado foi obter o primeiro registo e não o anterior.
Nesta expressão o que esta mal?


...
RS. Moveprevious
Call ID

Mas o vd ao compilar da erro, " Invalid use of prperty" corespondente a expressão "Call ID"

Alguma sugestão, Obrigado

boa tarde amigo Moises, tente postar seu aplicativo ou partes envolvidas, pois ficaria mais facil para qualquer dos amigos do fórum te ajudar .abraço Nogaro

Ok.
Obrigado