[Resolvido]Função DLookup

Bom dia a todos, preciso de uma força na DLookup, nunca usei antes.

Tenho uma caixa de texto em um formulário e preciso que ela busque o valor referente a um serviço baseado num campo concatenado, exemplo:

Tabela: Serviços
Campo: Valor do Serviço
No formulário:
Critério = Concatenado
Onde quero o valor: caixa de texto "Valor do serviço"

Como será a expressão?

Obrigado

http://maximoaccess.forumeiros.com/t1533-funcao-dlookup-explicacao

http://maximoaccess.forumeiros.com/t160-resolvidofuncao-dlookup

http://maximoaccess.forumeiros.com/t1075-resolvidodlookup-com-dois-criterios

http://maximoaccess.forumeiros.com/t2298-resolvidodlookup-com-3-campos

Obrigado pelo interesse em ajudar, mas fiquei na mesma, eu nunca usei essa função, não entendo a sintaxe.

Amigo explique melhor o que pretende, não poupe nas palavras por favor.

Olá Vieira, fostes campeão junto com o Porto? Ou torce para outro plantel?
Vieira, eu queroa prender a montar a DLookup, de preferência na origem da linha da caixa de texto, para um critério apenas, já li uma resposta sua sobre o assunto, mas não consegui entender, pode detalhar mais um pouco?
Obrigado

Me![Valor do Serviço] = DLookup("[Valor do Serviço]", "Serviços", "CodServiço = '" & Critério & "'")

Boas Leandro

Fui campeão, embora o futebol não seja o meu prato favorito.

Qualquer um dos exemplos acima postados pelo Miguel exemplifica a função DLookup. Esta função deve ser colocada no evento afterupdate() ou ao sair(). Não existe muito mais para dizer DLookup é uma função que pesquisa numa tabela os valores que pretendemos e se existirem passam-nos para os campos respectivos:

Exemplo com uma combo

strFiltro = "Id = " & Me!Id

Me!Endereço = DLookup("Endereço", "cliente", strFiltro)
Me!Cpt = DLookup("Cpt", "cliente", strFiltro)
Me!Local = DLookup("Local", "cliente", strFiltro)
Me!Telefone = DLookup("Telefone", "cliente", strFiltro)
Me!Pagamento = DLookup("Pagamento", "cliente", strFiltro)
Me!Expedição = DLookup("Expedição", "cliente", strFiltro)

Pessoal, desculpem minha dificuldade, não sou muito bom com números e códigos, mas vou tentar mais uma vez.
Montei essa linha:

Private Sub RECURSOMANU_AfterUpdate()
Me.VALORSERVICOMANU = DLookup("[VALORSERVICOMAN]", "TABPRECOSMANUTENCAO", "[CODRECCONCATENADOMAN]=" & Me.CODRECCONCATENADOMANU & "")
End Sub

RECURSOMANU é o campo que será atualizado;
VALORSERVICOMANU é o campo do fomrulário onde quero que retorne o valor;
TABPRECOSMANUTENCAO é a tabela que contém os valores;
CODRECCONCATENADOMAN é o campo critério da tabela TABPRECOSMANUTENCAO;
CODRECCONCATENADOMANU é o campo do formulário

É possível atualizar o campo RECURSOMANU e mandar a retornar o valor no campo
VALORSERVICOMANU baseado no critério existente no campo CODRECCONCATENADOMANU?

O campo CODRECCONCATENADOMANU monta uma concatenação com os campos SERVICOMANU e RECURSOMANU que gera o critério existente na tabela TABPRECOSMANUTENCAO, onde estou errando?

Obrigado pela paciência...

Leandro

Este tópico parece que ficou esquecido entre os demais. Resolveste amigo?

Vieira, me esqueci de mencionar uma coisa, eu tenho que usar o form no modo folha de dados para não haver problemas com os usuários que tem preguiça de aprender e que nunca iriam assimilar a utilização por estarem usando no excel.

Esses dias consegui fazer uma DLookup sem entender direito mas funcionou, porém quando abri o form para lançamento constatei que ele lançava o resultado da pesquisa em todas as linhas, o que não pode ocorrer por se tratar de vários lançamentos, milhares, e cada um com sua particularidade.

Acabei resolvendo esse problema nas propriedades do form, linha "origem do registro".

O que tá pegando agora é que preciso relacionar algumas combobox com critérios bem distintos e acho que tem que ser em VBA por serem muuuuuuito distintos e não haver relação entre os mesmos.

Obrigado pela força!

Obrigado amigo e as minhas sinceras desculpas por ter deixado esquecido o seu tópico. Forte abraço