[Resolvido]Busca dados em consulta

Bom dia

Tenho uma consulta com o nome "Dividas" com 3 campos

PacienteCodigo - tipo numero
Paciente - Tipo Texto
Deve - Tipo Moeda

Consulta é assim:
100 Assis 20,00€
102 Carlos 30,00€

Queria num form com uma caixa de combinação Chamada "Paciente" onde estão os nomes ao selecionar o Assis preencher um campo independente chamado "Divida" com o valor 20,00€, se selecionar Carlos o campo seria preenchido com o valor 30,00€
Tentei assim no evento " Depois de actualizar" e não resultou

Divida = DLookup("[Deve]", "Dividas", "[PacienteCodigo]= '" PacienteCodigo "'")

Obrigado

Try;

Me.Divida.Value = DLookup("[Deve]", "Dividas", "[PacienteCodigo]='" & Me.PacienteCodigo & "'")

Se esse PacienteCodigo for numerico, não necessita das aspas simples.

Bom dia JPaulo
Não resultou
Obrigado

Bom dia Assis, segue um exemplo para ti. É só adaptá-lo as tuas necessidades.

Esta no formato A2003.

Abraços.

Obrigado Silvio
Mas a origem de dados é muito diferente
Na minha eu seleciono o nome do paciente numa tabela, que tem que ir buscar o valor do paciente uma consulta.

Assis, bom dia,
Baixe e teste por favor.

Assis eu disse-lhe acima como fazer, mas você não teve em consideração as aspas simples que só servem para texto.

Só assim e já funfa;

Me.Dividas.Value = DLookup("[Deve]", "Dividas", "[PacienteCodigo]=" & Me.Paciente.Column(1) & "")

E aproveitando, também já lhe recomendei, que uma boa modelagem de dados, é não utilizar palavras reservadas do Access bem como nomes de tabelas ou campos iguais.

Por exemplo, neste seu Me.Dividas.Value, poderia ser Me.txtDividas.Value, porque Dividas é o nome da sua consulta, embora esteja referenciando já com o Me.

Obrigado Amigos
Marcelo
JPaulo

Basta selecionar o campo "Dividas" e nas propriedades: formato, por como Euro.
Não esqueça de seguir as recomendações do JPaulo, são primordiais para o bom funcionamento do banco de dados.
Na solução segui a mesma idéia do Jpaulo com uma pequena diferença:

Me.Dividas = DLookup("Deve", "Dividas", "[PacienteCodigo]=" & Me.Paciente.Column(1))

Gratos pelo retorno.