[Resolvido]Consulta não funciona

Boa tarde
Preciso de um help.
Nesta aplicação com 3 tabelas e 1 form, A combo Lista1 busca valores pela consulta....

SELECT Tbl_Processo.IdProcesso, Tbl_Processo.NumeroProcesso, Tbl_Processo.NomeAvaliado FROM Tbl_Processo ORDER BY Tbl_Processo.IdProcesso;

Deveria preencher os campos IdProcesso, NumeroProcesso e NomeAvaliado.
Todavia so preenche o primeiro.

Usei...

Private Sub Lista1_AfterUpdate()
   Me.IdProcessoAso = Me.Lista1.Column(0)
   Me!Lista1 = ""
End Sub



Abaixo tenho uma outra combo LstGrupos que faz uma consulta....

SELECT Tbl_TodosCid10.ClassificacaoCid FROM Tbl_TodosCid10 GROUP BY Tbl_TodosCid10.ClassificacaoCid;

Objetivo...
Mostrar os grupos farmaco da tabela todoscid10.
Na elaboração do form...quando criamos funciona, só que quando testo o form propriamente dito não aparece nada..

O que preciso...
È que aparecesse para que possa escolher o farmaco na combo LstCid10, podendo ao final salvar o registro.

A rotina que usei para a combo LstGrupos mostrar na combo LstCid10 foi...

Private Sub LstGrupos_AfterUpdate()
' Define a caixa de Combinação Cid10 para ser limitada pelo Grupo escolhido
       Me.LstCid10.RowSource = "SELECT Tbl_TodosCid10.IdCid10, Tbl_TodosCid10.DescricaoCid FROM Tbl_TodosCid10 " & _
       " WHERE IdCid10 = " & Me.LstGrupos.Column(0) & _
       " ORDER BY DescricaoCid"
       Me.LstCid10 = Null
End Sub

A qual não pude testar.

Alguém poderia ajudar?
Obrigado


https://www.dropbox.com/s/ic9jt8yy0dpla2k/Cidteste1.zip?dl=0

Amigo, mude sua combo, na guia FOrmato>Numero de Colunas, Coloque = 3

No Evento apos atualizar coloque:

Me.IdProcessoAso = Me.Lista1.Column(0)
Me.NumeroProcesso = Me.Lista1.Column(1)
Me.NomeAvaliado = Me.Lista1.Column(2)
'Me!Lista1 = Null


Para aprender mais sobre esse tipo de preenchimento veja este Video que fiz:
https://www.youtube.com/watch?v=2M17fp8C7gM

Obrigado Fábio.
Gde Abs