Formulario com caixa de listagem que abre um relatorio com um registro especifio

Bom dia

Tenho um formulário de pesquisa com uma caixa de texto e uma caixa de listagem, ao digitar na caixa de texto ele vai filtrando os dados que aparecem na caixa de listagem, ok,perfeito.

Tenho também um relatório que mostra os dados do paciente e todos os medicamentos dele, ou seja pelo nome do paciente consigo ver todos os medicamentos que lhe foram atribuídos ao longo do tempo, ok perfeito.

O que eu queria agora era, no meu formulário de pesquisa ao filtrar o nome, clicar nele (na caixa de listagem)e abrir o relatório só com os dados desse paciente.
Ai fiz o seguinte:

Private Sub Lista_Click()

   DoCmd.OpenReport "Rt_Total_MedPaciente", acViewReport, "[Nome Paciente]=[Reports]![Fm_Pesquisa_Pacientes]![Nome Paciente]", "[Nome Paciente]=[Reports]![Fm_Pesquisa_Pacientes]![Nome Paciente]", acWindowNormal

End Sub

Aparece-me a janela para escrever o valor do parâmetro, neste caso o nome do paciente, e depois devolvendo-me o relatório só do paciente digitado.


O que é que estou a fazer de errado ? o que falta para ser de uma forma automática ?

Obrigado

Bom dia Amigo

Na consulta que vc preeenche o relatorio, terá de estar referenciado o formulario que contem a lista com os dados para filtrar o relatório.

A lista do formulario tem de conter T_Pendência.[Número registro]

Ex: SELECT T_Pendência.[Número registro], T_Pendência.Equipamento, T_Pendência.Tipop, T_Pendência.Data, T_Pendência.[Serviço pendente]
FROM T_Pendência
WHERE (((T_Pendência.[Número registro]) Like [Formulários]![Formulário1]![Lista0]))
ORDER BY T_Pendência.Data DESC;

Bom dia José

Desculpe a demora em responder, mas ando meio corrido.
Obrigado pela ajuda, mas como sou novato nisto, e pouco ainda percebo de vba, não consegui entender a sua explicação.
Poderia ser um pouco mais simples e claro.

Obrigado

Mande uma copia do Arquivo zipado.zip