[Resolvido]Problemas com a Função Dlookup

Olá a todos

Já verifiquei em outros tópicos sobre a função Dlookup mas não consigo descobri o que estou fazendo de errado. Peço ajuda.
A questão é a seguinte: tenho um BD (já em funcionamento e com vários registros) onde tenho:
Tabela = Ficha de Triagem com: Código(Nº automt), Nome (Texto), valor a ser pago (Moeda) e Aluno (Combox)

Formulário = Guias com: Cod da Guia (Nº automt), Cod do cliente (Combox), Nome (Texto),Aluno (combox) e Valor Unit (moeda)

Gostaria de que ao digitar e escolher o Cod do Cliente no formulário de Guias, fossem preenchidos os campos: Nome, Aluno e Valor Unit da Guia (estes dados estão na tabela Ficha de Triagem.

Estou utilizando a formula abaixo e não dá certo. Podem me dizer onde estou errando??

Private Sub Cod_do_cliente_AfterUpdate()
Me.Nome = DLookup("Nome", "Ficha de Triagem", "Cod do Cliente=" & Me.Código)
Me.Aluno = DLookup("Aluno", "Ficha de Triagem", "Cod do Cliente=" & Me.Código)
Me.Valor Unit = DLookup("Valor Unit", "Ficha de Triagem", "Cod do Cliente=" & Me.Código)
End Sub

Obrigado

Dê uma lida nesse pequeno artigo:
http://maximoaccess.forumeiros.com/t1162-dicas-para-iniciantes-nomear-campos-e-elementos-de-um-sistema-em-access?highlight=iniciantes

Pelo que vi dos nomes dos campos, talvez possa estar aí a questão.

Criquio

Valeu pela dica do texto!
Realmente eram os nomes que estavam "feios" rsrs

Se não for pedir d+ gostaria de sua ajuda para fechar!
Preciso colocar o campo "Total' do Formulário de Guias para multiplicar os valor pela Quantidade a formula que uso é esta:

Campo Total / Fonte de controle: =[Valor]*[Quant]

Mas não dá certo quando busco os dados com a função Dlookup.
Agradeço

É formulário simples ou contínuo? Talvez dê certo se colocar na mesma rotina e logo após o DLookup:

Me.NomeCampo = Me.CampoDoValor * CampoDaQuantidade

É form. simples.

Não deu certo.
A função DLookup funcional perfeito mas o campo total não dá nada:

Tentei variações da formula mas nada...

Private Sub IDtbltriagem_AfterUpdate()
Me.Nome = DLookup("txtNome", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Aluno = DLookup("txtAluno", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Valor = DLookup("txtValor", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Total=Me.Valor*Quant
End Sub

teste por favor;


Private Sub IDtbltriagem_AfterUpdate()
Me.nome = DLookup("txtNome", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.Aluno = DLookup("txtAluno", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Value = DLookup("txtValor", "tbltriagem", "IDcliente=" & Me!IDtbltriagem)
Me.valor.Requery
Me.Total.Value = Nz(Me.valor, 0) * Nz(Me.Quant, 0)
End Sub

JPaulo

Não dá erro como nos outros e aparece R$ 0,00, mas quando coloco a quantidade não muda nada.

Ainda não dá certo. Outra dica??

Olá Pessoal
Estive fora por um tempo mais estou de volta com o mesmo problema.

O Campos toral de meu formulário não soma como descrito acima.

Se alguém tiver alguma dica por favor me digam.....

Aguardo

Pessoal
Quero agradecer a todos (JPaulo e Criquio), que se dispuseram a me ajudar.
Estive afastado de meus projetos como podem ver nos contatos.

Só agora retomei e com novo gás consegui encontrar a solução para este tópico.

Além de refazer todo o projeto com novos nomes para os objetos (Tabelas, Formulários...) também mudei os nomes dos campos como indicado pelo mestre criquio.

ao final deu certo assim:


Private Sub CodCliente_AfterUpdate()
Me.NomeCliente = DLookup("Nome", "tblFichaTriagem", "Cod=" & Me!CodCliente)
Me.Profissional = DLookup("Profissional", "tblFichaTriagem", "Cod=" & Me!CodCliente)
Me.ValorUnit = DLookup("ValorSessao", "tblFichaTriagem", "Cod=" & Me!CodCliente)
End Sub

Esta função chama os dados e no campo "TOTAL" que não estava fazendo a multiplicação funcionou perfeitamente agora: No item "Fonte de controle" digitei: =[ValorUnit]*[Quantidade]

Espero que esta informação ajude alguem.

Abraço

Boa noite,

Ok. Obrigado pelo aviso.