[Resolvido]auto preenche campos usando dlookup

Pessoal, Boa Noite!

Tenho uma tabela PlanoContas e um Formulario de Lançamentos de uma Livro Caixa, gostaria que ao selecionar na Caixa de listagem o numero da "Conta" ele retornasse com o resultado na caixa de texto "DescricaoConta", não tenho a minima ideia de como fazer isso, já tentei de todos os jeitos e não consigo.

em anexo o BD para melhor entendimento!

wdemelo@gmail.com

Cadê o banco de dados?

Pode usar o DPesquisa ou fazer uma consulta, dependendo da situação

Xoxe, Boa Noite!

Editei o post e coloquei o BD!
Veja se vc pode me ajudar

Terão contas repetidas ou serão valores unicos?

Serão únicas!

=Dpesquisa("[DescricaoConta]";"tbl_PlanoContas";"[Conta]=[Conta]")

insira isto em "Campo de controle" da caixa de texto do Tipo de despesa.

E faça uma alteração no campo da conta.
Em número de colunas coloque 2 e larguras das colunas 0cm;2cm apenas.

Verá o resultado em seguida!

Boa sorte

deu certo!!!!!!
Muito Obrigado pela ajuda.

Fiz a alteração, no entanto quando seleciono outra conta o campo "Descrição Conta" não atualiza com a descrição da conta referida!

Mas na tabela "tbl_PlanoContas" deverá ter o numero e descricao da conta


Melhore esse formulário!
Invés de macros, pode usar vba. Colocar as caixas de texto não acopladas.. Se for o caso, crie uma consulta

Xoxe,

Em anexo BD completo para seu analise.
Antecipadamente, fico muito agradecido pela ajuda!

Vamos fazer melhor..

Crie uma consulta e no modo sql cole esse código

Coloque o nome que quiser nesta consulta!

Código:

SELECT tbl_Lancamento.Conta, tbl_PlanoContas.DescricaoConta
FROM tbl_PlanoContas INNER JOIN tbl_Lancamento ON tbl_PlanoContas.Identificação = tbl_Lancamento.Conta
WHERE (((tbl_Lancamento.Conta)=[Formulários]![frm_Lancamento]![Conta]));


Depois vá na caixa de texto TipoDespesa e altere a fonte de controle para =DPesquisa("[DescricaoConta]";"NOME DA CONSULTA";"[Conta]=[Conta]")


E dentro de propriedades da caixa de texto Conta, vá em evento e onde diz "Ao alterar" coloque um =[refresh] para atualizar o campo

Funcionou, perfeitamente!!
Não é querendo abusar da sua boa vontade, mais não esta vinculando a tabela lançamentos o campo "DescricaoConta"
Como Corrigir isso????

Perdão... Não entendi!
Onde está esse campo DescricaoConta?

Perdão, o campo é TipoDespesas!

Pq está como consulta. Se voce quiser inserir o dado na tabela lançamento, sugiro que seja feito um update

Faça da mesma forma que anteriormente, crie uma consulta e no modo sql cole este código

Código:

UPDATE tbl_PlanoContas INNER JOIN tbl_Lancamento ON tbl_PlanoContas.Identificação = tbl_Lancamento.Conta SET tbl_Lancamento.TipoDespesa = [Formulários]![frm_Lancamento]![TipoDespesa]
WHERE (((tbl_Lancamento.Conta)=[Formulários]![frm_Lancamento]![Conta]));


Coloque o nome que quiser nessa consulta de update.

Logo em seguida, vá no campo Conta do formulário e na aba evento Ao alterar apague o =[Refresh] e clique nos ... ao lado e clica em construtor de código

Ao abrir o vba coloque o código

Código:

Private Sub Conta_Change()
Refresh
DoCmd.OpenQuery "NOME DA CONSULTA UPDATE CRIADA"
End Sub


E pronto!


veja se funcionou

Obrigado meu amigo, deu certo, Valeuuuuu!!!

Que ótimo!

Xoxe, Boa Noite!

Meu amigo, no forum vc havia me ajudado com o meu BD, no entanto a consulta parou de funcionar, fiz uma alteração no botão "Adicionar" e alterei todos os campos para não acoplado!
A minha duvida é o seguinte:

Gostaria que quando selecionado a conta escolhida e o mesmo retornasse com a descrição da mesma no campo "TipoDespesas" e o mesmo caso se repete com campo "Descricao" cujo o resultado deveria sair no campo "Tarefa", no entanto não esta funcionando.

Antecipadamente, meus agradecimentos!

Wagner de Melo

Fiz algumas alterações em suas tabelas!

Lembre-se, não faça Caixa de Combinação na tabela, deixe como Caixa de texto mesmo!

Verifique!

valeuuuu!!!!!