MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    ID Duplicado Access

    avatar
    iack
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 04/06/2012

    ID Duplicado Access Empty ID Duplicado Access

    Mensagem  iack em 25/11/2019, 17:03

    Prezados Amigos

    Eu estou fazendo a consulta abaixo mas eu necessitava que a contagem do campo RH_QUADRO_MILITAR.PES_IDENTIFICADOR_COD (Veja 2a. Linha do codigo) somente contasse os distintos.

    Obrigado

    Cleber

    SELECT Year([DT_CONCLUSAO]) AS Turma,
    Count(RH_QUADRO_MILITAR.PES_IDENTIFICADOR_COD) AS
    ContarDePES_IDENTIFICADOR_COD

    FROM RH_QUADRO_MILITAR_TURMA INNER JOIN ((RH_QUADRO_MILITAR INNER JOIN
    RH_QUADRO_MILITAR_CURSO ON RH_QUADRO_MILITAR.PES_IDENTIFICADOR_COD =
    RH_QUADRO_MILITAR_CURSO.MIL_PES_IDENTIFICADOR_COD) INNER JOIN
    RH_QUADRO_CURSO_DGP ON RH_QUADRO_MILITAR_CURSO.CUR_CODIGO = RH_QUADRO_CURSO_DGP.CODIGO) ON
    RH_QUADRO_MILITAR_TURMA.MIL_PES_IDENTIFICADOR_COD =
    RH_QUADRO_MILITAR.PES_IDENTIFICADOR_COD

    WHERE (((RH_QUADRO_CURSO_DGP.NC_COD_NAT_CURSO)="13") AND
    ((RH_QUADRO_MILITAR.QQ_COD_QAS_QMS) Between "7000" And "7999")) OR
    (((RH_QUADRO_CURSO_DGP.NC_COD_NAT_CURSO)="14 - 13" And
    (RH_QUADRO_CURSO_DGP.NC_COD_NAT_CURSO)="14") AND
    ((RH_QUADRO_MILITAR.QQ_COD_QAS_QMS) Between "7000" And "7999"))

    GROUP BY Year([DT_CONCLUSAO]), RH_QUADRO_MILITAR.STATUS,
    RH_QUADRO_MILITAR.MIL_TYPE

    HAVING (((Year([DT_CONCLUSAO]))=1992) AND ((RH_QUADRO_MILITAR.STATUS)="1") AND
    ((RH_QUADRO_MILITAR.MIL_TYPE)="1"))

    ORDER BY Year([DT_CONCLUSAO]);
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    ID Duplicado Access Empty Re: ID Duplicado Access

    Mensagem  Alexandre Fim em 25/11/2019, 18:45

    Olá Cleber,

    Na 1a. linha, mude para:

    SELECT DISTINCT Year([DT_CONCLUSAO]) AS Turma,

    Acredito que irá funcionar.

    Boa sorte.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    iack
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 04/06/2012

    ID Duplicado Access Empty Re: ID Duplicado Access

    Mensagem  iack em 25/11/2019, 19:02

    Prezado Alexandre Fim

    Primeiramente quero agradecer a sua ajuda, mas embora  esta alteração não apresente erros de compilação, o resultado se mantem.

    Somente queria salientar que as turmas já são distintas, mas dentro de cada turma quando eu faço esta consulta por exemplo de quem tem Mestrado aparecem mais de uma vez a mesma pessoa (Mais de um Mestrado). Desta forma eu tenho que o campo RH_QUADRO_MILITAR.PES_IDENTIFICADOR_COD (Identidade da pessoa) somente conte uma vez ou seja distinto.

    Desde já agradeço

    Cleber Iack
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    ID Duplicado Access Empty Re: ID Duplicado Access

    Mensagem  Alexandre Fim em 25/11/2019, 19:09

    Ola Cleber,

    Se possível, envie um exemplo do seu banco de dados (somente partes envolvidas) para análise.

    Grato.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    iack
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 04/06/2012

    ID Duplicado Access Empty Re: ID Duplicado Access

    Mensagem  iack em 25/11/2019, 19:48

    Prezado Alexandre Fim

    A Base de Dados é bem grande e com dados confidenciais, mas filtrarei da melhor maneira possível e devo te retornar amanhã.

    Mais uma vez, muito obrigado.

    Cleber Iack
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    ID Duplicado Access Empty Re: ID Duplicado Access

    Mensagem  Alexandre Fim em 25/11/2019, 20:08

    Ok Cleber,
    Uma base com os objetos envolvidos (tabelas, consultas, forms e etc.) e dados fictícios apenas.

    Grato

    Abraço


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 23/10/2020, 09:02