[Resolvido]Imprimir Último registro do Relatório

Boa Tarde a Todos!

Estou com um problema em um relatório, pois preciso que ele mostre o ultimo registro que foi salvo no formulário.
O esquema funciona da seguinte maneira, faço uma busca em um formulário com uma ListBox, pelo Nome ou cod_pessoa (que é a ID), quando encontra a pessoa na ListBox, Clico duas vezes no nome que desejo, Abre outro formulário com as informações da pessoa e em um Sub Formulário faço o registro de entrada dessa pessoa, salvo o registro e clico em um botão para gerar a ficha de entrada abrindo um relatório.
Aí e que está a questão! O Relatório quando é gerado e aparece todos os registros de entrada dessa pessoa, e gostaria que ele exibisse apenas o ultimo registro de entrada desta pessoa. Este é o Código que está no botão Gerar Ficha.
DoCmd.OpenReport "Rl_IdPessoaData", acViewReport, , "[cod_pessoa] = " & Me!cod_paciente
Já testei alguns exemplos que encontrei no aqui, porém não obtive sucesso.

Desde já agradeço a ajuda!

Eu uso este e funciona normal pra mim


Dim txtPegaMatricula As Double
txtPegaMatricula = Forms!Cadastro!MATRICULA
DoCmd.OpenReport "rtl_Cadastro_Treinamentos", acViewReport, , "[Matricula_Partic] = " & txtPegaMatricula

Muito Grato por sua atenção!

Infelizmente não funcionou.

Quem puder ajudar, segue o link com parte do Bd

https://drive.google.com/file/d/1sb_HTA9hE-CT9AYzaK8nMPc-cuoReSdf/view?usp=sharing

Desde já agradeço !

Bom dia AUGUSTO MORGADO

Então se queres mostrar o registo de entrada do SubFormulario tens de usar [Cod Entrada] do SubFormulario, e não [cod_paciente] do Formulario.

Código:

Private Sub Comando134_Click()
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenReport "Rl_IdPacienteData", acViewReport, , "[Cod Entrada] = " & Me![Cod Entrada]
End Sub


Novo codigo para o botão btnLimpar , do Formulario FrPesquisaArquivo

Código:

Private Sub btnLimpar_Click()
    Me.txt1 = Null: Me.txt2 = Null: Me.txt3 = Null: Me.txt4 = Null: Me.txt5 = Null: Me.txt6 = Null
    Me.ListaPaciente.RowSource = " SELECT * FROM Cs_ListBox"
    Me.txt2.SetFocus
End Sub


Junto o link Bd a funcionar

Abraço

Bom Dia!

Perfeito era isso mesmo!

Fico muito grato pela ajuda, e aprendo cada vez mais.

Um grande abraço!