[Resolvido]Classificar consulta

Prezados do forum,

criei uma consulta que retorna datas de aniversários de cadstrados. Porém preciso que as datas sejam classificadas em ordem crescente. Atá aí beleza. Ela está classificando. Só que a classificação está sendo feita pelo ano e depois pelo dia e mês. Por ex. as datas
05/02/1945,
07/02/1956,
01/02/1965,
05/02/1944,
03/02/1958,
08/02/1975,
06/02/1945,
08/02/1945,
10/02/1944 e
11/02/1946,

estão sendo classificadas assim:
05/02/1944,
10/02/1944,
05/02/1945,
06/02/1945,
08/02/1945,
11/02/1946,
07/02/1956,
03/02/1958,
01/02/1965 e
08/02/1975.

Preciso que a classificação seja relaizada pelo dia do mês e não pelo ano, que no exemplo ficaria assim:
01/02/1965,
03/02/1958,
05/02/1944,
05/02/1945,
06/02/1945,
07/02/1956,
08/02/1945,
08/02/1975,
10/02/1944 e
11/02/1946.

Tentei utilizar a expressão Mês([tabela].[DATNASC]) na consulta mas não funcionou. Se alguém souber uma solução agradeço a ajuda.

Eu pensei assim:

Para classificar pelo dia:
Em um campo não acoplado na consulta: dia: Format([Dataex];"d")
Critérios: Crescente

Agora... se houver dois dias "10" um para o mes 02 e outro mes 03 ficará assim
DataEx dia
1/2/1965 01
3/2/1958 03
5/2/1945 05
5/2/1944 05
6/2/1945 06
7/2/1956 07
8/2/1975 08
8/2/1945 08
10/3/1957 10
10/2/1944 10
11/2/1946 11

Testei tambem da forma como Alexandre falou..

Mas ambos somente colocaram os dias em forma crescente, porem dando esta questao de dois dias 10 em datas diferente.

Cumprimentos.

Agradeço a atenção dos senhores,

caro Alexandre Neves, no sua sugestão eu teria que ter um campo para o dia, outro para o mês e outro para o ano, correto? Se eu estiver correto, o campo no qual deverá ser feita a classificação é único. Ou seja, a data de nascimento é digitada em um so campo e no formato dd/mm/yyyy. Se eu estiver errado, peço-lhe, por gentileza, que me corrija.

Caro Harysohn, eu criei dois campos não acoplados na tabela e coloquei a expressões Expr1: Formato([DataDeNascimento];"m") e Expr2: Formato([DataDeNascimento];"d"), mas não funcionou. Retorna erro ao executar.
Outro detalhe, Harysohn, esta consulta irá gerar um relatório e este será pelo mês. Assim, não terá o risco de meses diferentes no mesmo relatório e não acontecerá o verificado por você nas datas de exemplo 10/3/1957 10 e 10/2/1944 10.

Caro Norberto, na sua sugestão não teria que referenciar a tabela onde será excutada a consulta? Se tiver, eu já tentei usando a expressão Mês([tabela].[DATNASC]) em campo não acoplado mas não funcionou.

boas

Preciso que a classificação seja relaizada pelo dia do mês e não pelo ano, que no exemplo ficaria assim:
01/02/1965,
03/02/1958,
05/02/1944,
05/02/1945,
06/02/1945,
07/02/1956,
08/02/1945,
08/02/1975,
10/02/1944 e
11/02/1946.

amigo, desculpe a minha intervensão mas não vejo a razao porque necessita desta formatação.

o que o amigo provavelmente deve necessitar é uma consulta à tabela com filtro por mês, ou por hoje.

diga a razao porque necessita disto porque poderá haver formas diferentes de chegar ao resultado pretendido.

consultar por mês em campo desvinculado.
= "SELECT Data FROM tabela1 Where Month(Data) = 2;"
ou
= "SELECT Data FROM tabela1 Where Month(Data) = Month('" & me.campodata.text & "');"

esta consulta retorna o que você postou
= "SELECT Data FROM tabela1 Where Month(Data) = 2 ORDER BY Data DESC;"


cumps
acao

Colega Norberto, mais uma vez obrigado.
Não estou acostumado com consultas. Assim sendo, peço-lhe, se possivel, que me instrua.

Na grade da consulta em questão existem os seguintes campos acoplados a tabela Tbl_Geral:
Nome, Telefone e DataDeNascimento, nesta ordem. Se bem entendi o que você escreveu eu terei que inserir os campos
Dia([DataDeNascimento])
Mês([DataDeNascimento])
Ano([DataDeNascimento])
manualmente na grade da consulta, sem aclopá-los e antes do campo DataDeNascimento e as expressões Dia([DataDeNascimento]), Mes([DataDeNascimento])e Ano([DataDeNascimento]) seriam colocadas na linha "campo" da grade,correto?

Colega Acao,
a razão desta formatalçao é o fato de que é gerado um relatório no primeiro dia de todos os meses para que seja feito um contato telefônico com o aniversariante para felicitá-lo. Como o relatório gerado na situação em que está causa um certo trabalho tendo em vista que o usuário está tendo que percorrer linha a linha para saber se na data "x" tem mais de um aniversariante, até o ultimo dia do mês, caso se conseguir classificar pelo dia, não será nescessário verificar linha a linha as datas, certo? Esta é a razão. Caso tenha uma outra forma de solução, ficar-lhe-ei agradecido.

boas
a consulta é esta:

if day(vdataHoje) = 1 then
= "SELECT Data FROM tabela1 Where Month(Data) = Month('" & variavelDataHoje & "')order BY DAY(DATA);"
end if

veja isto
http://doutorexcel.wordpress.com/2011/04/24/funcoes-de-data-e-hora-no-vba-date-time-day-month-now-monthname-hour-datediff-dateadd-year-weekday-weekdayname/

Colega Acao, obrigado pela a atenção.

Na consulta existente já existe a instrução abaixo

SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado
FROM tbl_geral
WHERE (((tbl_geral.Afiliado)="1") AND ((Format([DataDeNascimento],"mm"))=[Digite o número do mês: 01, 02, etc]))
ORDER BY tbl_geral.NomeDoAfiliado;

Tentei inserir a sua instrução, mas não consegui. E o link sugerido para consulta não está abrindo.

Colega Norberto,

fiz o teste e não funcionou. Continua classificando pelo ano apesar da linha "classificação" está em branco em todos os campos exceto o criado "Campo Dia: Dia([DataDeNascimento])". Só usei um porque não necessito dos outros.

Norberto,
Abaixo a instrução após criar o campo dia sugerido por você.

SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, Day([DataDeNascimento]) AS [Campo Dia], tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado
FROM tbl_geral
WHERE (((tbl_geral.Afiliado)="1") AND ((Format([DataDeNascimento],"mm"))=[Digite o número do mês: 01, 02, etc]))
ORDER BY Day([DataDeNascimento]);

http://dl.dropbox.com/u/26441349/OlderiVG_20_05.rar

Cumprimentos.

Caro Norberto,

você esqueceu de uma instrução na consulta. Verifique a instrução SQL que postei.

SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, Day([DataDeNascimento]) AS [Campo Dia], tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado
FROM tbl_geral
WHERE (((tbl_geral.Afiliado)="1") AND ((Format([DataDeNascimento],"mm"))=[Digite o número do mês: 01, 02, etc]))
ORDER BY Day([DataDeNascimento]);
A consulta tem a instrução em vermelho a qual foi retirada.

Coloquei a consulta que você criou para abrir o relatório e não retornou nenhuma data de nascimento.
Coloquei na sua consulta a instrução que você retirou e retornou erro.

Em resumo: infelizmente não funcionou.

A expressão que você retirou é que abre a janela para o usuário digitar o número e o nome do mês (critérios)para executar a consulta.

Caro Harysohn,

a versão do access que utilizo é 2003. Portanto, não deu para ver seu exemplo. Mas lhe agradeço.

Percebi que estás a utiliza uma Imputbox da consulta para colocar o mes...

Porque nao faz um FOmulário com um subForm, com uma caixa para filtrar quando digita?

é melhor do que o usuário ter acesso a consulta.

Cumprimentos.

O nome correto é o que está na instrução SQL que lhe enviei. Ou seja DataDeNascimento.

Acrescentei a instrução que foi retirada na sua consulta e ficou como está abaixo:

SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, Month([DataDeNascimento]) AS CampoMês, Day([DataDeNascimento]) AS CampoDia, tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado, Format([DataDeNascimento],"mm") AS Expr1
FROM tbl_geral
WHERE (((tbl_geral.Afiliado)="1") AND ((Format([DataDeNascimento],"mm"))=[Digite o número do mês: 01, 02, etc]))
ORDER BY Month([DataDeNascimento]), Day([DataDeNascimento]);

E funcionou somente ao executar a consulta fora do relatório. Quando a consulta é executada na abertura do relatório é que não ocorre a classificação. Ou seja, no relatório não vem a classificação da consulta.
Então lhe pergunto: como se faz a referencia de classificação no relatório? Vi no design do mesmo que tem a opção de classificação, mas não estou sabendo como referenciá-la.

Quanto a sua consulta não retornar nenhuma data de aniversário foi porque você colocou o campo "Afiliado" como se fosse uma sequencia e não é. É um critério (1 ou 2). Mudei e funcionou.

Caso você possa me ajudar com relação ao relatório neste tópico, agradeço. Caso não, vamos abrir outro tópico.

Porque nao nos envia os objetos relacionados para que possamos ver?

Prezado Norberto,

coloquei o critério como instruiu e funciona. Mas mesmo assim somente na consulta. No relatório não.

No relatório as opções de Classificado por e Classificado por ativado estão, respectivamente, "em branco" e "Não". Quanto a opção Classificar/agrupar que você cita, não achei nas propriedades do relatório.
O fato de ter sido criado novos campos na consulta não implica em criar novo relatório?
Realmente, não quer funcionar de maneira alguma a classificação no relatório.

Colega Harysohn,
quanto a sua sugestão de criar Formulários com subformulários, estive olhando o exemplo indicado pelo Norberto e penso que os usuários não irão querer desta forma. Este relatório é para impressão e da forma que foi criado é mais funcional para o
uso rotineiro. E os usuários não acessam a consulta. Somente o relatório. Mas agradeço a sua sugestão.


Prezados Norberto e Harysohn.

Agradeço a ambos pela a ajuda. Consegui fazer funcionar.

Como escrevi linhas acima, foi só criar um novo relatório com a consulta modificada que funcionou legal. A classificação funciona no novo relatório.
Obrigado aos senhores e até a próxima.

Não abriu apareceu o "Resolvido" no post anterior.

Ok, Norberto. Localizei.


Funfou legal. Desta forma vai me economizar tempo.

Obrigado

boas
amigo, tive que sair e agora constatei que já resolveu seu problema.

Na consulta existente já existe a instrução abaixo

SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado
FROM tbl_geral
WHERE (((tbl_geral.Afiliado)="1") AND ((Format([DataDeNascimento],"mm"))=[Digite o número do mês: 01, 02, etc]))
ORDER BY tbl_geral.NomeDoAfiliado;

Tentei inserir a sua instrução, mas não consegui.

seria assim colocado num evento

if DAY(now) = 1 then
= "SELECT tbl_geral.Afiliado, tbl_geral.NomeDoAfiliado, tbl_geral.DataDeNascimento, tbl_geral.TelefoneResidencial, tbl_geral.TelefoneCelularAfiliado
FROM tbl_geral
WHERE tbl_geral.DataDeNascimento = Month(now) ORDER BY DAY(tbl_geral.DataDeNascimento);"

em vez do «now» também pode usar o «date», escolha.
assim não necessita de input, ele faz tudo automaticamente.

todos os dias 1 de cada mes faz isto.
cumps
acao

Colega Acao,
obrigado pela sua atenção e empenho. Não desprezarei a sua sugestão.