[Resolvido]text box para visualizar nome de uma relação de um para muitos em uma combo

Senhores,

Tenho uma tabela com o nome assessor, com uma relação de um para muitos com a tabela empresa.
Tenho um formulário com uma combo que mostra todas as empresas.
Como faço para colocar uma textbox, ao atualizar a combo com as empresas mostra o assessor da respectiva empresa.

Obrigado.

Bom dia, fabio

Ao sair da caixa de combinação, utilize a função Lookup para, a partir do valor da caixa, localizar o assessor.

Alexandre, obrigado por responder.

no evento ao sair da combo eu uso Lookup, e depois colocar o resultado no textbox?

como faço a expressão?

Obrigado.

Olá

Minha sugestão é que vc já traga na propria combobox o nome do assessor. Faça uma consulta envolvendo as duas tabelas relacionadas e use então os campos. Use esta consulta como origem para a combobox. Vc até pode manter a coluna que possui o nome do assessor oculta(comprimento zero). Quando então selecionar a Empresa, basta usar o evento "Após atualizar" para preencher o campo texto da seguinte forma:

me!NomeCampoTexto = me!NomeCombobox.column(1)

o Dlookup(), sugerido pelo amigo Alexandre, também funciona muito bem

Sucesso!

Avelino, obrigado por ajudar.
Eu tenho este código que preenche a combo:

Dim strSQL As String

strSQL = "SELECT CodEmpresa, NomeDaEmpresa, CodAnalista FROM TblEmpresa WHERE CodAnalista= " _
& Forms!ffiltros!combAnalista & " ORDER BY TblEmpresa.NomeDaEmpresa;"
Me.combEmpresa.RowSource = strSQL

Me.Texto126 = Me.combEmpresa.Column(2)

Mostra o id do Analista, conforme Sql.
Quando tiro o CodAnalista e troco por NomeDoAnalista, não funciona, mesmo fazendo uma intrução inner join.

Faça então como o Alexandre sugeriu.

Me.Texto126 = Dlookup("NomeDoAnalista","NomeDaTabelADoAnalista","codAnalista =" & Me.combEmpresa.Column(2))

Sucesso!

Apareceu uma mensagem com erro de sintaxe, operador faltando. Eu tentei fazer algumas combinações, mas, não funcionaram.

fabio,
Não indicou as tentativas que fez.
Todos supõem que o codAnalista seja número. Se for texto, utilize
Me.Texto126 = Dlookup("NomeDoAnalista","NomeDaTabelADoAnalista","codAnalista ='" & Me.combEmpresa.Column(2) &"'")

Desculpe, as tentativas que eu fiz foi tirar aspas, acrescentas aspas, tirar &, adicionar&...
O codAnalista é número mesmo.

Obrigado.

Rapaz, escreva exatamente como vc está fazendo!! Assim podemos observar a sua escrita e dar um palpite melhor. No escuro fica difícil!

Aguardamos

Estou colocando exatamente assim:

Me.Texto121 = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" & Me.combEmpresa.Column(2))

fabio,

Só tentou dessa forma?
Em que coluna da caixa de combinação se encontra o código do analista?
Que tipo de dados é o campo codAnalista?
Nomeie os controlos de acordo com padrão generalizado: Txt..., Cxc..., Cmd..., Rtl..., ...

Só tentou dessa forma?
As formas anteriores que eu tentei foram:

Me.Texto121 = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" & Me.combEmpresa.Column(2)&)
Me.Texto121 = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" " & Me.combEmpresa.Column(2)&")
Me.Texto121 = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" Me.combEmpresa.Column(2))
Me.Texto121 = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" " Me.combEmpresa.Column(2)")

Em que coluna da caixa de combinação se encontra o código do analista?
Terceira coluna,ou seja, Column(2).

Que tipo de dados é o campo codAnalista?
número.

Nomeie os controlos de acordo com padrão generalizado: Txt..., Cxc..., Cmd..., Rtl..., ...
Peço desculpas pela falta do padrão.

A forma que dizia estar a fazer exactamente, não aparece nas listadas agora!
Coloque, AoSair ou AoAlterar da caixa de combinação combEmpresa:
Me.TxtNomeAnalista = Dlookup("NomeDoAnalista","TblAnalista","CodAnalista =" & Me.combEmpresa.Column(2))

Agora funcionou perfeitamente, muito Obrigado.

Viva Portugal!!!!!!!