[Resolvido]Consulta para trazer registros exclusivos

Bom dia prezados,

Gostaria de uma ajuda, se possível. Tenho uma consulta para um relatório que está quase funcional:

SELECT DISTINCT CIDADE_CREDENCIAMENTO, UF_CREDENCIAMENTO, CLASSIFICACAO_CIDADE, BENEF_ATIVOS FROM fCREDENCIAMENTO " _
& " WHERE [REATIVACAO?] = FALSE" _
& " AND MONTH(DATA_INCLUSAO) = " & mesComissao _
& " AND YEAR(DATA_INCLUSAO) = " & anoComissao

O problema dessa consulta é que eu sempre atualizo a quantidade de beneficiários ativos e eu eu preciso que a consulta me retorne apenas a ultima correspondência. Os outros campos tem que ser exclusivos.

Bom dia,

Por gentileza, compartilhe uma copia do bd para analise e solução do problema.
Desta forma, fica mais rápido te ajudar.

Valeu

Att,

Alexandre Fim

Infelizmente não estou conseguindo anexar o banco pq é muito grande, mas consegui incluir uma planilha importada diretamente da minha base. Os meses de referência que ele pega ali nos critérios, são campos de um formulário que eu utilizo para abrir o relatório através de 1 botão e quando ele abre o relatório, o código em questão está no evento "Ao Carregar" declarado como uma váriavel "String" conforme a atualização abaixo:

Dim strNewRecord As String

strNewRecord = "SELECT DISTINCT CIDADE_CREDENCIAMENTO, UF_CREDENCIAMENTO, CLASSIFICACAO_CIDADE, BENEF_ATIVOS FROM fCREDENCIAMENTO " _
       & " WHERE [REATIVACAO?] = FALSE" _
       & " AND MONTH(DATA_INCLUSAO) = " & mesComissao _
       & " AND YEAR(DATA_INCLUSAO) = " & anoComissao
   
   Me.RecordSource = strNewRecord
   DoCmd.SetOrderBy "CIDADE_CREDENCIAMENTO ASC"

Não é necessário enviar o bd completo.
Crie um bd novo e importe somente os objetos (tabelas/consultas/relatorios/formulários/modulos) pertinentes ao problema, e compartilhe aqui.

Att

Alexandre Fim

Segue para análise.

Bom dia Francisco,

Conforme exemplo que vc enviou, a instrução SQL contém a clausula DISTINC, que visa eliminar repetições dos dados, mas na imagem abaixo todos os campos são distintos, gerando uma repetição de dados:


Qual seria o registro exclusivo pra sair no relatório?

Att,

Alexandre Fim

Eu gostaria que a consulta desconsiderasse a quantidade de beneficiários para a duplicidade, pois eu atualizo essa quantidade de forma recorrente, e que me trouxesse apenas o ultimo valor informado para esse campo, que é o valor mais atualizado.

Fazendo uma comparação apenas de uma cidade, no caso PIRASSUNUNGA, seria o correto trazer somente o registro com base na ultima alteração?


Att,

Alexandre Fim

Não. Pirassununga, nesse exemplo, eu preciso que me traga as duas correspondências, pois a cidade mudou de classificação. Um exemplo melhor seria Recife, que a cidade não mudou de classificação, mas tem 2 valores diferentes para o campo Benef_Ativos.
A referencia para ultima correspondência seria o CodCREDENCIAMENTO que é o índice automático que é gerado ao criar o registro.

Olá,

1 - Faça o seguinte ajuste na tabela:




2 - Crie uma nova consulta e no Modo SQL cole a instrução abaixo:

UPDATE fCREDENCIAMENTO SET fCREDENCIAMENTO.BENEF_ATIVOS = 0
WHERE (((fCREDENCIAMENTO.BENEF_ATIVOS) Is Null));

Em seguida, clique no botão Executar.

OBS: Esta instrução vai atualizar a coluna BENEF_ATIVOS para 0 onde for NULO


3 - Crie uma nova consulta e no Modo SQL cole a instrução abaixo:

SELECT fCREDENCIAMENTO.CIDADE_CREDENCIAMENTO, fCREDENCIAMENTO.UF_CREDENCIAMENTO, fCREDENCIAMENTO.CLASSIFICACAO_CIDADE, fCREDENCIAMENTO.BENEF_ATIVOS
FROM fCREDENCIAMENTO
WHERE (((fCREDENCIAMENTO.[REATIVACAO?])=False) AND ((Month([DATA_INCLUSAO]))=4) AND ((Year([DATA_INCLUSAO]))=2024))
GROUP BY fCREDENCIAMENTO.CIDADE_CREDENCIAMENTO, fCREDENCIAMENTO.UF_CREDENCIAMENTO, fCREDENCIAMENTO.CLASSIFICACAO_CIDADE, fCREDENCIAMENTO.BENEF_ATIVOS;

Em seguida, clique em Executar e veja se o resultado atende suas expectativas.


Att,

Alexandre Fim

Obrigado pelo retorno Alexandre, mas está me trazendo o mesmo resultado de antes.

O que eu preciso é o seguinte:



Na imagem acima, Pirassununga/SP tem que me trazer os dois registros, pois a classificação da cidade é diferente.



Já nessa outra imagem, eu preciso que me traga apenas o ultimo registro de São Paulo/SP, pois a classificação da cidade é igual, apesar da quantidade de beneficiários ser diferente.

Não sei se fui claro, mas estou a disposição para tentar esclarecer melhor o que eu preciso.

Bom dia Francisco,
Sim, entendido, e neste caso tem que ser via VBA.
Vou criar um formulário com uma rotina onde o sistema vai gravar o resultado outra tabela, conforme as condições informadas.
Esta tabela será tipo "temporária" e que servirá apenas de repositório para gerar o relatório.
Toda execução para gerar o relatório, o sistema limpa esta tabela para inclusão de novos dados.

Ate +

Att,

Alexandre Fim

Perfeito Alexandre, fico no aguardo!

Eu consegui um resultado próximo do que eu preciso buscando apenas os nomes das cidades e a classificação na tabela fCREDENCIAMENTO e buscando o valor de beneficiários de outra tabela que eu mantenho atualizada (conforme código abaixo). Não é o ideal, mas me atende por enquanto.

SELECT DISTINCT fCREDENCIAMENTO.CIDADE_CREDENCIAMENTO, fCREDENCIAMENTO.UF_CREDENCIAMENTO, fCREDENCIAMENTO.CLASSIFICACAO_CIDADE, CARTEIRA.BENEFICIÁRIOS FROM fCREDENCIAMENTO INNER JOIN CARTEIRA ON fCREDENCIAMENTO.UF_CREDENCIAMENTO = CARTEIRA.UF AND fCREDENCIAMENTO.CIDADE_CREDENCIAMENTO = CARTEIRA.MUNICIPIO " _
& " WHERE [REATIVACAO?] = FALSE" _
& " AND MONTH(DATA_INCLUSAO) = " & mesComissao _
& " AND YEAR(DATA_INCLUSAO) = " & anoComissao

Boa noite Francisco,

Criei um formulário para geração dos dados e também para visualização do relatório. Ficou assim:


Após informar o mes e o ano, o sistema grava os dados na tabela "TB_TMP_REL" e em seguida abre o relatório baseado nesta tabela. Ficou assim:


OBS: Defini o modo padrão do relatório para "Visualização de Impressão", onde é possível utilizar os recursos desta visualização, como imprimir, exportar para varios formatos e etc.

Nota: Abra o código do formulário e verifique os comentários sobre o que cada rotina executa, para melhor entendimento.

Segue versão do sistema.

É isso

Espero ter ajudado.

Att,

Alexandre Fim

Perfeito Alexandre, vai funcionar perfeitamente para o que eu preciso aqui.

Muito obrigado e até a próxima.

Valeu, Francisco !!!
O fórum agradece.
Sucesso !!