Como extrair o texto de uma caixa de combinação com Dlookup

Olá, amigos.

Por exemplo: se o campo 'Nome' fosse uma combobox com 2 colunas (código e funcionário) e a coluna acoplada fosse 'funcionário', o código DLookup("Nome","Funcionário"...) retornaria a primeira coluna. Como extrair o texto dessa combo numa caixa de texto de formulário?


Grato

Olá,
Quer fazer um consulta (DLookup) à caixa de combinação?
Não será fazer o mesmo que à origem dos dados dessa mesma caixa de combinação (combobox)!

Ou pretende obter a linha selecionada?
Caso seja esta última é NomeDaCombo.Column(0)
Nota 0 é a primeira coluna, mesmo que oculta e assim sucessivamente 0,1,2,...,n

Abraço

ahteixeira, obrigado pela ajuda.

Não dá pra fazer dessa forma. Já tentei algo parecido, dessa forma:
Me.Resumo = DLookup("[Nome].Column(1)","Funcionário"...)

Dá erro na linha.

Olá, acho que não.
Repare que a caixa de tem uma origem de dados.
Se pretende o dlookup, efetue à mesma origem de dados.
Se pretende uma pesquisa na caixa, será seek.
Estou no celular, efetue uma busca.
Abraço

Não funciona. Só busca a 1ª coluna, mas preciso que busque a 2ª, onde contem o texto da combo.

No formato DLookup("Nome","Funcionário"...) só busca a primeira coluna (código). Se for dessa forma DLookup("[Nome].Column(1)","Funcionário"...) dá erro na linha.

Quanto ao uso da função seek, não compreendi bem.

Olá,
Se pretende pelo DLookup, será:

xNome = DLookup("Nome","Funcionário"...)
xMorada = DLookup("Morada","Funcionário"...)
xTelefone = DLookup("Telefone","Funcionário"...)

Se a combo já tem os dados (vamos imaginar Nome,Morada,Telefone), então será

xNome = NomeDaCombo.Column(0)
xMorada = NomeDaCombo.Column(1)
xTelefone = NomeDaCombo.Column(2)

Abraço

Olá, quanto ao Seek, não é o que queria dizer, mas veja exemplo que fiz em cima do joelho.
https://www.maximoaccess.com/t29281-localzar-em-caixa-de-listagem
Abraço

O que acontece é o seguinte: a tabela da qual busco as informações possui uma combo com origem noutra tabela.

Meu código é esse exatamente: Me.Resumo = DLookup("[Entidade] & '" & vbCrLf & "' & [FormaDePagamento] & '" & vbCrLf & "' & Format([ValorTotal],'Currency') & '" & vbCrLf & "' & [Observações]", "Lançamentos", "Código=" & Me.CódigoDespesa)


Minha combo é o campo Entidade. É aí que não consigo pegar uma parte específica da combo.

O código acima funciona direitinho, só o texto da combo que preciso que apareça.

Boa noite!

Pelo que entendi, você quer pegar o valor da segunda coluna da combo para usar em condição WHERE para fazer uma busca em uma outra tabela usando o DLookup, certo?

Então, deve ser assim: DLookup("cmpResultado","tblPesquisa","cmpPesquisa =" & Me.Resumo.Collumn(1))

cmpResultado --> Nome do campo da tabela que retornará o valor.
tblPesquisa -----> Tabela onde será feita a pesquisa.
cmpPesquisa ---> Nome do campo onde será feita a pesquisa para retornar o valor.

OBSERVAÇÃO: Eu montei a pesquisa considerando que o valor da coluna que escolheu seja um valor numérico. Se não for, então deverá colocar desta forma a condição WHERE: "cmpPesquisa ='" & Me.Resumo.Collumn(1) & "'"

Abraços.

Bom dia, Julio

Não é por aí. Resumo não é combobox, mas apenas uma caixa de texto que irá exibir um resumo quando clicar num determinado campo.
Como expliquei antes, a combo é o campo Entidade:

Me.Resumo = DLookup("[Entidade] & '" & vbCrLf & "' & [FormaDePagamento] & '" & vbCrLf & "' & Format([ValorTotal],'Currency') & '" & vbCrLf & "' & [Observações]", "Lançamentos", "Código=" & Me.CódigoDespesa)

Você pode perceber que são vários campos concatenados; preciso que retorne a 2ª coluna, nesse caso, do campo Entidade nesse mesmo código.

Olá Jonatan,
Antes de tudo acho melhor apertar a ajuda do Access com a palavra DLookup e verificar.
Se já tem algo a funcionar e pretende alterar, poste a base de dados com os objectos envolvidos e explique melhor.
Assim fica mais fácil para compreendermos e poder ajudar.
Abraço