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


    [Resolvido]Form para impressao puxando dados de consulta uniao

    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Form para impressao puxando dados de consulta uniao Empty [Resolvido]Form para impressao puxando dados de consulta uniao

    Mensagem  lpdias 2/9/2023, 12:16

    Bom dia a todos!

    Estou com dúvidas em como visualizar um relatório a partir de um formulário ligado à uma consulta UNION.
    O resultado que quero obter é que ao selecionar o número do mês em uma cx de texto e apertar o botão visualizar, ele mostre os resultados de uma consulta união.

    Agradeço desde já

    Segue minha consulta união:

    SELECT tblLojaCadObreiros.Nome, tblLojaCadObreiros.Data_nascimento, tblLojaCadObreiros.parentesco, tblLojaCadObreiros.idobreiro, tblLojaCadObreiros.Nome, Format([Data_nascimento],"mm") AS Mês, "NASCIMENTO" AS Tabela
    FROM tblLojaCadObreiros
    WHERE Format([Data_nascimento],"mm")=[Qual mês deseja consultar?]
    ORDER BY tblLojaCadObreiros.Nome;

    UNION SELECT tblLojaDependentes.Nome, tblLojaDependentes.DataNasc, tblLojaCadParentesco.Parentesco, tblLojaDependentes.idmovimentacaoDependentes, tblLojaCadObreiros.Nome, Format([DataNasc],"mm") AS Mês, "NASCIMENTO" AS Tabela
    FROM tblLojaCadParentesco INNER JOIN (tblLojaCadObreiros INNER JOIN tblLojaDependentes ON tblLojaCadObreiros.idobreiro = tblLojaDependentes.idmovimentacaoDependentes) ON tblLojaCadParentesco.idParentesco = tblLojaDependentes.Parentesco
    WHERE (((Format([DataNasc],"mm"))=[Qual mês deseja consultar?]))
    ORDER BY tblLojaCadObreiros.Nome;

    UNION SELECT tblLojaCadObreiros.Nome, tblLojaCadObreiros.Iniciacao, tblLojaCadObreiros.parentesco, tblLojaCadObreiros.idobreiro, tblLojaCadObreiros.Nome, Format([iniciacao],"mm") AS Mês, "INICIAÇÃO" AS Tabela
    FROM tblLojaCadObreiros
    WHERE (((Format([iniciacao],"mm"))=[Qual mês deseja consultar?]));


    UNION SELECT tblLojaCadObreiros.Nome, tblLojaCadObreiros.elevacao, tblLojaCadObreiros.parentesco, tblLojaCadObreiros.idobreiro, tblLojaCadObreiros.Nome, Format([elevacao],"mm") AS Mês, "ELEVAÇÃO" AS Tabela
    FROM tblLojaCadObreiros
    WHERE Format([ELEVACAO],"mm")=[Qual mês deseja consultar?]


    UNION SELECT tblLojaCadObreiros.Nome, tblLojaCadObreiros.exaltacao, tblLojaCadObreiros.parentesco, tblLojaCadObreiros.idobreiro, tblLojaCadObreiros.Nome, Format([exaltacao],"mm") AS Mês, "EXALTAÇÃO" AS Tabela
    FROM tblLojaCadObreiros
    WHERE Format([EXALTACAO],"mm")=[Qual mês deseja consultar?]


    UNION SELECT tblLojaCadObreiros.Nome, tblLojaCadObreiros.instalacao, tblLojaCadObreiros.parentesco, tblLojaCadObreiros.idobreiro, tblLojaCadObreiros.Nome, Format([instalacao],"mm") AS Mês, "INSTALAÇÃO" AS Tabela
    FROM tblLojaCadObreiros
    WHERE Format([INSTALACAO],"mm")=[Qual mês deseja consultar?];
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Form para impressao puxando dados de consulta uniao Empty Re: [Resolvido]Form para impressao puxando dados de consulta uniao

    Mensagem  lpdias 2/9/2023, 17:26

    Para conhecimento...

    Resolvi fazendo uma nova consulta com base na consulta união.
    Depois montei o Form e fiz as devidas ligações.

      Data/hora atual: 8/11/2024, 01:11