MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Consulta em Tabelas diferentes

    avatar
    ThiagoFelipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consulta em Tabelas diferentes Empty 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
    [Resolvido]Consulta em Tabelas diferentes AttachmentBanco_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
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Consulta em Tabelas diferentes Empty 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
    [Resolvido]Consulta em Tabelas diferentes AttachmentBanco_de_Dados1_New_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 11 vez(es)


    .................................................................................
    [Resolvido]Consulta em Tabelas diferentes Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Consulta em Tabelas diferentes Favicon-16x16   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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Consulta em Tabelas diferentes Empty 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
    avatar
    ThiagoFelipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consulta em Tabelas diferentes Empty Re: [Resolvido]Consulta em Tabelas diferentes

    Mensagem  ThiagoFelipe 26/4/2013, 21:35

    Alexandre...

    coloquei em Ao Sair o código que você me indicou, mas nao acontece nada!

    em anexo com o código.
    Anexos
    [Resolvido]Consulta em Tabelas diferentes AttachmentBanco_de_Dados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (133 Kb) Baixado 5 vez(es)
    avatar
    ThiagoFelipe
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Consulta em Tabelas diferentes Empty Re: [Resolvido]Consulta em Tabelas diferentes

    Mensagem  ThiagoFelipe 26/4/2013, 21:39

    deu certo alexandre...

    Tinha esquecido de um detalhe.

    Obrigado

    Conteúdo patrocinado


    [Resolvido]Consulta em Tabelas diferentes Empty Re: [Resolvido]Consulta em Tabelas diferentes

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:00