[Resolvido]Consulta em Tabelas diferentes

ThiagoFelipe 26/4/2013, 20:18

ThiagoFelipe: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 12
Registrado : 24/04/2013

Mensagem nº1

Consulta em Tabelas diferentes

Mensagem ThiagoFelipe 26/4/2013, 20:18

Boa tarde a todos,

Tenho duas tabelas: Plano de Contas e Lançamentos,

Na tabela Plano de Contas tem dois campos: Conta e Descrição.

Na tabela Lançamentos tem Conta, Valor, Data e Discrição.

Bom, no formulário de lançamentos, gostaria que quando a conta fosse Igual a conta de plano de contas, o campo discrição aparecesse automático, de acordo com a discrição da tabela plano de contas.

EX:

=> tabela plano de contas
codigo = 1
conta = 1.10.01
descrição = Teste

=> formulário lançamentos

código = 1
conta = 1.10.01
data = 26/04/2013
valor = 500,00
descrição = Teste (preenchimento automatico, de acordo com a tabela plano de contas)

Em anexo o BD,
Obrigado pela ajuda.

Anexos

Banco_de_Dados1.zip: Você não tem permissão para fazer download dos arquivos anexados.; (121 Kb) Baixado 5 vez(es)

Última edição por ThiagoFelipe em 26/4/2013, 21:25, editado 1 vez(es)

**Marcelo David** 26/4/2013, 21:14

Marcelo David

Marcelo David: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011

Mensagem nº2

Re: [Resolvido]Consulta em Tabelas diferentes

Mensagem Marcelo David 26/4/2013, 21:14

Amigo, sua modelação ao que parece não é
a indicada, mas vamos a sua solução.

Baixe o anexo e veja se é isso:

Anexos

Banco_de_Dados1_New_1.zip: Você não tem permissão para fazer download dos arquivos anexados.; (72 Kb) Baixado 11 vez(es)

.................................................................................

Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]

Access e VBA - Formulário Desacoplado - [Passo a passo]
[Resolvido]Consulta em Tabelas diferentes Yt_16x10

Conheça meu canal no Youtube e se inscreva.
[Resolvido]Consulta em Tabelas diferentes Marcel11

**Alexandre Neves** 26/4/2013, 21:17

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº3

Re: [Resolvido]Consulta em Tabelas diferentes

Mensagem Alexandre Neves 26/4/2013, 21:17

Boa noite, Thiago, e bem-vindo ao fórum
Leia as regras do fórum. Escrever em maiúsculas significa gritar, por isto, altere a mensagem
Para a sua dúvida, coloque no acontecimento AoSair do Controlo CpConta
Private Sub CpConta_Exit(Cancel As Integer)
If DCount("*", "[Plano de Contas]", "Conta='" & CpConta & "'") = 0 Then
CpDescrição = "Conta não existe."
Else
CpDescrição = DLookup("Descrição", "[Plano de Contas]", "Conta='" & CpConta & "'")
End If
End Sub

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo