[Resolvido]Num formulário continuo, visualizar 4 últimos registros apenas

Boa tarde

Tenho um form continuo que tem imensos registos.
Queria ao abrir o form ver só os últimos quatro ( 4 ) registos.

Bom domingo

Obrigados

Já tentou algo assim no evento "Ao carregar" do formulário?

DoCmd.GoToRecord, , acLast - 4

Crquio

Não funciona.
O form não é de introdução de dados, e é alimentado por uma consulta que tem um critério para filtar outro campo
Obrigado

E que tal nessa consulta em descending aplicar o Select TOP 4

Funfa JPaulo

Mas.... fico restrito e esses 4 registos.
A ideia era ter acesso a todos os registos, indo para os mais recentes, pois o form tem só barra de rolagem vertical, e como se trata de uma conta corrente, com saldo acumulado, com a barra de rolagem vejo todo o histórico.
Mas ao abrir seria otimo ir para os ultimos movimentos.

Obrigado

Certo;

O formulario continuo é sozinho ou é subformulario continuo dentro de num formulario normal ?

É que se for sozinho, no evento ao carregar poderia fazer algo assim;

Private Sub Form_Load()
    DoCmd.GoToRecord , , acLast 'ultimo registro
    DoCmd.GoToRecord , , acPrevious 'envia o foco para um registro para trás do ultimo
    DoCmd.GoToRecord , , acPrevious 'envia o foco para dois registros para trás do ultimo
    DoCmd.GoToRecord , , acPrevious 'envia o foco para três registros para trás do ultimo
    'totaliza 4 registros visiveis
End Sub

Se quiser mais elaborado, aqui vai;

Private Sub Form_Load()
 Dim IntPosicao As Long

   DoCmd.GoToRecord , , acLast
   IntPosicao = Me.CurrentRecord
   IntPosicao = IntPosicao - 3
   
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, IntPosicao
End Sub

Obrigado JPaulo

Funfa dieitinho ..... como sempre

Obrigado

Obrigado pelo retorno o forum agradece.

JPaulo

Esta função de sua autoria funfa perfeito, se o form for aberto sozinho.
-----------------------------------------
Dim IntPosicao As Long
DoCmd.GoToRecord , , acLast
IntPosicao = Me.CurrentRecord
IntPosicao = IntPosicao - 3
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, IntPosicao
-------------------------------------
Mas tenho outro form que tem uma caixa de combinação, para chamar o form que tem a função e esta deixa de funfar.
Portanto é um form com subform, e o sub form é que tem de ter a função
Será que dá para dar um jeito?

Obrigado

Teste por favor;

Este código tem de estar no formulario e não no subformulario;

Dim IntPosicao As Long
Me.SeuSubForm.SetFocus
DoCmd.GoToRecord , , acLast

IntPosicao = Forms!SeuForm!SeuSubForm.Form.CurrentRecord
IntPosicao = IntPosicao - 3
DoCmd.GoToRecord acActiveDataObject, , acGoTo, IntPosicao

JPaulo

Perfeito

Obrigado

Resolvido a dobrar

Valew.

Bom dia JPaulo

Desculpe voltar ao assunto, mas já apliquei a função em diversos BDs, mas neste exemplo a função teima em não funcionar:

Porque ?
Obrigado

Ola;

Repare que está a funcionar sim, eu acrescentei o SetFocus para o campo data mudar de cor, apenas para você ver que funciona.

Agora, para lhe mostrar apenas os ultimos 4, só se a tabela tiver mais registros que o proprio formulario suporte, essa é a vantagem deste código;

Private Sub Form_Load()
Dim IntPosicao As Long
    DoCmd.GoToRecord , , acLast
    IntPosicao = Me.CurrentRecord
    IntPosicao = IntPosicao - 3
    DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, IntPosicao
    Me.Data.SetFocus
    Me.Data.BackColor = vbRed
End Sub

Obrigado JPaulo

Até funfa mais simplificado;

Eu adicionei ao seu exemplo 15 registros e só mostrou os ultimos 4 assim;

Private Sub Form_Load()
    DoCmd.GoToRecord , , acLast
    DoCmd.GoToRecord , , acGoTo, Form.Recordset.RecordCount - 3
End Sub