[Resolvido]Digitar quantidade em consulta para Relatório

Boa noite a todos,

Depois de várias buscas no Fórum não achei nada semelhante ao que preciso que seria:

Tenho 1 Relatório baseado em 1 Consulta que lista as 100 maiores empresas Devedoras agrupadas pela soma do total de cada uma delas, no entanto, gostaria de mudar isso, ou seja, criar uma condição que ao clicar no botão para imprimir esse Relatório fosse perguntado qual a quantidade que deseja imprimir, ou seja, pode ser as 10 maiores, as 30 maiores, as 50 maiores, etc., utilizando a consulta abaixo:

A consulta no modo SQL está assim:
SELECT TOP 100 Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

** Uso Access 2003

Onde:
1) Uso 2 campos da Tabela: T16_Expedientes: ValAtualizado (Critério: >0) e NrSaldoAtual (Critério: ="D") *Saldo Devedor
2) Uso 1 campo da Tabela: T15_Empresas: RazaoSocial (*Para mostrar o nome da Empresa)

Uma ideia seria você colocar um campo no formulário para digitar a quantidade e um botão programado para verificar se o campo não está vazio e se tem um número maior que zero, alem de atualizar a lista. No lugar do 100 você passa o nome do form com o nome do campo.

Fiz conforme sua sugestão e ficou assim:

1) O formulário é: F00_RelatoriosSistema
2) Criei um controle não-acoplado: QteRanking
- para testar digitei: 20

E na consulta no modo SQL digitei assim:

SELECT TOP [Formulários]![F00_RelatoriosSistema]![QteRanking] Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

Mas, ao clicar em exibir para Modo Design na Consulta, ficou assim:

SELECT TOP Form!F00_RelatoriosSistema!QteRanking Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

com a seguinte mensagem de erro: "A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta".

Se alguém mais puder ajudar nessa questão, além do Criquio, fique a vontade e agradeceria muito.

Bem, colegas, vou dar mais este Up neste tópico para tentar mais uma ajuda.

Boa tarde, vileman
Utilize
SELECT TOP Forms!F00_RelatoriosSistema!QteRanking Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

Boa noite, Alexandre

Segui sua orientação, então estou enviando em anexo 2 Print dos procedimentos feitos para ver se estou fazendo da forma correta, ok?

1º Print: Imagem1 - Sugestao Alexandre = não funcionou
2º Print: Imagem2 - Consulta Vileman = não funcionou. Pois ao executar a consulta como mostrado nesse Print ele pede para inserir o Valor do parametro, entao digitei 50, (mesmo já tendo um valor previamente digitado no campo não-acoplado "QteRanking" no Formulário "F00_RelatoriosSistema") mas mesmo assim o resultado da consulta mostra os 100 maiores valores, pois na Consulta no modo SQL ficou assim:

SELECT TOP 100 [Forms]![F00_RelatoriosSistema]![QteRanking] AS RANKING, Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial, T08_ComarcasMP.NomeMunicipio
FROM T08_ComarcasMP INNER JOIN (T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa) ON T08_ComarcasMP.CodMunicipio = T16_Expedientes.IDComarcaSit
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial, T08_ComarcasMP.NomeMunicipio
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

Mesmo no modo SQL quando retiro esse valor "100" e tento passar para o Modo Design aparece a mensagem: "A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta" e tenho que cancelar pois não funciona.

Caro Alexandre, como tentei anexar os 2 arquivos e não estou visualizando vou tentar novamente, colocando como .zip, caso não apareça novamente, pode fornecer um e-mail para enviar direto para você? Mais uma vez, obrigado.

Bom dia, vileman
Só pela imagem não dá para testar.
1º
Disse que este código funciona
SELECT TOP 100 Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

2º se o código anterior funciona, o código a seguir deve funcionar, desde que o formulário se mantenha aberto
SELECT TOP Forms!F00_RelatoriosSistema!QteRanking Sum(T16_Expedientes.ValAtualizado) AS SomaDeValAtualizado, T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
FROM T15_Empresas INNER JOIN T16_Expedientes ON T15_Empresas.CodEmpresa = T16_Expedientes.IDEmpresa
GROUP BY T16_Expedientes.NrSaldoAtual, T15_Empresas.RazaoSocial
HAVING (((Sum(T16_Expedientes.ValAtualizado))>0) AND ((T16_Expedientes.NrSaldoAtual)="D"))
ORDER BY Sum(T16_Expedientes.ValAtualizado) DESC;

Alexandre, boa noite

Já havia tentado fazer dessa forma também, ou seja, o formulário tem que permanecer aberto no momento em que abre o Relatório, no entanto, mesmo assim a rotina não obedece a quantidade que foi digitada como Ranking, e com relação a Consulta, realmente como disse em uma das mensagens anteriores a dificuldade está justamente quando tento retirar esse valor de "100" no modo SQL da Consulta e dá a mensagem de erro já mencionado.

Tentei criar uma consulta nova desde o início sem o valor de "100", deixando a própria Consulta criar a instrução SQL conforme os parâmetros passados nos critérios, e também acrescentando os comandos que você havia me passado, mas mesmo assim não funcionou de nenhuma das 2 formas, embora o formulário estivesse aberto.

Então fiz outro tipo de teste:
1) Na tabela T16_Expedientes criei o campo "Ranking" (Número/Inteiro longo)
2) Classifiquei esta tabela em ordem Decrescente pelo campo "ValAtualizado"
3) Neste novo campo numerei manualmente na sequencia de 1 até 1150 que é a quantidade de registros da Base de Dados.

Em resumo: A partir de então tenho o Ranking "numerado" dos Valores em ordem decrescente baseado no campo "ValAtualizado", no entanto, essa ordem de ranking é dinâmica pois os valores podem mudar a qualquer momento, visto que algum registro pode ser atualizado a qualquer momento, mudando inclusive o valor no campo "ValAtualizado" e também o tipo de Saldo Devedor (D) para Saldo Credor (C) ou vice-versa, dependendo de determinada situação do Expediente. (Lembrando que na Consulta são filtrados apenas os Saldos como "D"-Devedor).

Então, gostaria que se fosse possível que toda vez que clicasse no botão de comando que abre o relatório do Ranking que por sua vez seria baseado em uma Consulta que "lesse" a ordem do Ranking na Tabela T16_expedientes e listasse a quantidade informada dentro de 2 parametros: Ranking inicial e Ranking Final eu teria o Relatório da forma que é necessária com mais essa opção de selecionar a quantidade entre 2 intervalos, que aliás, já me pediram para fazer dessa forma, estou apenas aproveitando este tópico que está em aberto e trata desse mesmo assunto.

O teste que fiz, alterando de forma manual o campo "Ranking" conforme acima explicado, e mais o Relatório funcionaram perfeitamente, mas é humanamente impossível fazer isso de forma manual todas as vezes que um Relatório for solicitado.

O problema: É que eu não sei como tornar isso para que fique de forma automática, ou seja, fazer que a cada vez que a consulta fosse executada para apenas esse Relatório, o campo "Ranking" fosse automaticamente renumerado na Tabela T16_Expedientes baseando-se na ordem Decrescente do campo "ValAtualizado" e assim poder emitir o Relatório de forma satisfatória; pensei em usar Tabelas temporárias, mas não sei como aplicar, nesse caso em questão.

Em sendo possível tornar essa rotina automatizada como acima ou de outra forma, gostaria de saber se quando essa Rotina fosse rodada poderia trazer algum prejuízo ao BD, visto que é usado em Rede com BE e FE por 4 usuários.

Caso queira, posso enviar o arquivo com o teste acima citado.

Bom dia,
Pode disponibilizar a bd
Sobre o desempenho em rede, não lhe sei informar

Bom dia, Alexandre

Vou preparar a BD e lhe envio, favor aguarde.

Bom dia, Alexandre

Segue o arquivo em anexo.

Veja se é isto que pretende
https://dl.dropbox.com/u/24017093/MaximoAccess/VILEMAN.rar

Boa noite, Alexandre

Copiei o arquivo acima, mas está igual ao arquivo que enviei para você, talvez na hora de copiar para o Dropbox trocou o arquivo pelo que eu havia enviado. Aproveitando a ocasião esqueci de mencionar para os testes a serem realizados que na tabela T16_Expedientes fizesse algumas alterações de valores no campo "ValAtualizado" para justamente testar a ordem do Ranking, pois na tabela eu digitei o Ranking manualmente de 1 até 200, conforme explicado no Formulário do arquivo enviado. Outro teste que poderias fazer é de incluir mais alguns registros nesta mesma tabela com valores e ver como fica no Ranking, pois como disse neste tópico, os valores podem mudar a qualquer momento assim como a situação passar de Devedor (D) para Credor (C) e assim por diante.

Bom dia, vileman
Parece-me que entendemos coisas diferentes.
Falou em Ranking e isto costuma ser o resultado duma consulta de cláusula TOP. Na bd, verifiquei que tem um campo chamado Ranking e fui por aí. Não devia ter chamado Ranking ao campo ou não ter chamado Ranking à ordenação
Esclareça: Quer pelo campo Ranking ou pelo campo ValAtualizado?

Bom dia, Alexandre

Tens razão como estamos falando de Ranking, então prefiro por este campo - Ranking - visto que o mesmo já traz a ordenação pelo maior valor do campo ValAtualizado, esclarecendo ainda que acrescentei esse campo Ranking que foi digitado manualmente a sua ordem pelo campo ValAtualizado, por não saber fazer da forma automática, e após várias tentativas frustadas tentando usar o TOP na Consultra, ou seja, era minha idéia que fosse assim, porisso acrescentei, se não for necessário a inclusão do mesmo pode exclui-lo, visto que os valores do campo ValAtualizado podem ser alterados a qualquer momento, então naturalmente o ranking sofrerá mudança na sua ordenação, espero está sendo mais claro agora, pois como bem disseste parece que entendemos coisas diferentes, mas chegaremos lá, com certeza e com sua boa vontade.

Boa tarde, vileman
Veja https://dl.dropbox.com/u/24017093/MaximoAccess/VILEMAN.rar

Boa noite, Alexandre

Ficou perfeito, houve mais algumas alterações na consulta, mas vou tentar adaptar seguindo seu raciocínio.

Muito obrigado.