[Resolvido]Ajuda com Caixa Listagem e cadastro

Boa tarde
No exemplo existe um form de nome exame físico que possui alguns botões, caixa de texto e uma listbox não acoplada.
A lista não acoplada busca seus dados numa consulta baseada na tabela processo.
O objetivo é quando clicarmos no nome contido na caixa, esta mostrará automaticamente o nome escolhido e o número do processo nas suas respectivas caixas de texto ao lado.
Usei o seguinte código:

Private Sub Form_Current()
' This statement synchronises the Go To record combo box with the form
   Me.Lista1.Value = Me.IdProcesso.Value
End Sub


Private Sub Lista1_AfterUpdate()
   On Error Resume Next
   Dim rst As Object
   Set rst = Me.RecordsetClone
   rst.FindFirst "[IdProcesso]=" & Me.Lista1.Value
   Me.Bookmark = rst.Bookmark
End Sub

Private Sub Lista1_LostFocus()
   DoCmd.RunCommand acCmdSaveRecord
   DoCmd.Requery "Lista1"
End Sub


A lista mostra os nomes, contudo quando clicamos não mostra.

Outra dúvida é que precisava seria quanto ao relacionamento, acredito que esteja dificultando o cadastro das informações quando navego pelos forms.
não consigo cadastrar os dados.
Obrigado.
Abs.

Bom como não trabalho e nem sei trabalhar com campos acoplados / assistentes. Senão fosse acoplado as textbox que receberiam os valores ficaria desta forma no evento ao clicar da lista.

Código:

 Me.IdProcesso = Me.Lista1.Column(0)
    Me.Nome = Me.Lista1.Column(1)

Mesmo o Campo sendo Acoplado o comando pelo VBA permanece o mesmo amigo...

Nunca consegui lançar dados num campo acoplado tipo o caso ai.

Opa amigo... Veja o Exemplo ...

https://www.dropbox.com/s/0w2l7jh9ksoz7tv/Exame.zip?dl=0

Bom dia.
Saindo do plantão e emendando com outro local.
A tardinha baixo e testo.
Obrigado.

Obrigado Fábio e Formiga 10x.
Caixa resolvida.
Quanto ao relacionamento para os cadastros, alguma dica?