Select CASE para Períodos de DATA

Amigos,

Essa é pros profissionais, seguinte:

Tenho uma consulta retornando as seguintes colunas:

Tabela de Produção

Nome	Produto	Quantidade	Data	Tipo
Juliano Lima	Proposta	18	28/12/2012	1
Carlos Azevedo	Seguro	21	23/01/2013	2
Amanda Melo	Proposta	16	21/01/2013	1

Quero implementar a Criação de uma nova coluna no SQL que irá inserir o Valor "Mês" de acordo com um críterio de período.
Quando Tipo=1 e Data entre 26/12/2012 e 25/01/2013 então Mês = "Janeiro"
Quando Tipo=1 e Data entre 26/01/2013 e 25/02/2013 então Mês = "Fevereiro"
Quando........e Data entre 26/12/2013 e 25/01/2014 então Mês = "Janeiro"
Além de....
Quando Tipo=2 e Data entre 19/12/2012 e 18/01/2013 então Mês = "Janeiro"
Quando Tipo=2 e Data entre 19/01/2013 e 18/02/2013 então Mês = "Fevereiro"
Quando........e Data entre 19/12/2013 e 18/01/2014 então Mês = "Janeiro"

Faço isso em um SQL com o CASE ou procuro outra opção ?
Alguém tem uma sugestão ?

Não recomendo implementar o cálculo diretamente na consulta.
É melhor criar uma função que receba o Tipo e a Data e retorne o Mês.
Na consulta, o campo calculado ficaria simplificado dessa forma, por exemplo:

Mês: f_calcula_mes([Tipo]; [Data])

Com alguns If... Then... Else na função f_calcula_mês, consegue obter o resultado.

Em tempo: está usando várias palavras reservadas do Access como nomes de campos: nome, data, tipo e mês.
Recomendo trocar esses nomes, pode vir a ter problemas no sistema.

Cláudio Más não entendi

Na consulta, o campo calculado ficaria simplificado dessa forma, por exemplo:
Mês: f_calcula_mes([Tipo]; [Data])

Você diz criar uma função em um módulo que eu possa chamar na hora da consulta ?
Eu tentei fazer escrever essa função e não consegui


Avelino Sampaio entendi o que você pretende mas,

Mes: Format(forms!NomeForm!DataFinal;"mmmm")

Vai retirar o mês da Data no Formato "Janeiro", "Fevereiro"
Eai datas como 27/01 vão ser mostradas como Janeiro, no entanto essa data faz parte do período de 26/01~25/02 = Fevereiro

Eu preciso determinar os critérios que irão definir o valor "mês"

É basicamente isso:
Quando for TIPO = 1 e Período estiver entre 25/12/**** e 26/01/**** então Mês = "Janeiro"
Quando for TIPO = 1 e Período estiver entre 25/01/**** e 26/02/**** então Mês = "Fevereiro"
Quando for TIPO = 1 e Período estiver entre 25/02/**** e 26/03/**** então Mês = "Março"
Quando for TIPO = 1 e Período estiver entre 25/03/**** e 26/04/**** então Mês = "Abril"
Quando for TIPO = 1 e Período estiver entre 25/04/**** e 26/05/**** então Mês = "Maio"
Quando for TIPO = 1 e Período estiver entre 25/05/**** e 26/06/**** então Mês = "Junho"
Quando for TIPO = 1 e Período estiver entre 25/06/**** e 26/07/**** então Mês = "Julho"
Quando for TIPO = 1 e Período estiver entre 25/07/**** e 26/08/**** então Mês = "Agosto"
Quando for TIPO = 1 e Período estiver entre 25/08/**** e 26/09/**** então Mês = "Setembro"
Quando for TIPO = 1 e Período estiver entre 25/09/**** e 26/10/**** então Mês = "Outubro"
Quando for TIPO = 1 e Período estiver entre 25/10/**** e 26/11/**** então Mês = "Novembro"
Quando for TIPO = 1 e Período estiver entre 25/11/**** e 26/12/**** então Mês = "Dezembro"
Ou---------------------------
Quando for TIPO = 2 e Período estiver entre 19/12/**** e 18/01/**** então Mês = "Janeiro"
Quando for TIPO = 2 e Período estiver entre 19/01/**** e 18/02/**** então Mês = "Fevereiro"
Quando for TIPO = 2 e Período estiver entre 19/02/**** e 18/03/**** então Mês = "Março"
Quando for TIPO = 2 e Período estiver entre 19/03/**** e 18/04/**** então Mês = "Abril"
Quando for TIPO = 2 e Período estiver entre 19/04/**** e 18/05/**** então Mês = "Maio"
Quando for TIPO = 2 e Período estiver entre 19/05/**** e 18/06/**** então Mês = "Junho"
Quando for TIPO = 2 e Período estiver entre 19/06/**** e 18/07/**** então Mês = "Julho"
Quando for TIPO = 2 e Período estiver entre 19/07/**** e 18/08/**** então Mês = "Agosto"
Quando for TIPO = 2 e Período estiver entre 19/08/**** e 18/09/**** então Mês = "Setembro"
Quando for TIPO = 2 e Período estiver entre 19/09/**** e 18/10/**** então Mês = "Outubro"
Quando for TIPO = 2 e Período estiver entre 19/10/**** e 18/11/**** então Mês = "Novembro"
Quando for TIPO = 2 e Período estiver entre 19/11/**** e 18/12/**** então Mês = "Dezembro"
ou-----------
e por aí vai...


Agora imagina que tenha vários TIPOS em uma TABELA, ou que não seja "TIPOS", sejam Quando Produto = "Seguro"...
E que tenham 15 produtos com 15 PERÌODOS diferentes pros 12 meses do ANO
A minha dúvida é como implementar isso atráves de tabelas pra que:

1º Eu possa cadastrar mais Tipos / Produtos
2º Eu determine qual é o DIA INICIAL e FINAL/ Ou todos os períodos.
3º A Ideia é retornar uma consulta BASE que serve pra outra Consulta de Referencia Cruzada.

Sim, criar uma função em um módulo.

O mês vai depender de Tipo e Período, certo?
Se fossem poucas variações, conforme sua primeira mensagem, poderia resolver com alguns If... Then... Else.
Agora talvez seja melhor ter uma tabela de Tipo/Período/Mês, a ser pesquisada na função e retornado o mês de acordo com o Tipo e o Período passados para a função.

~Para mim continua confuso. Seria melhor anexar um exemplo da sua consulta e dos critérios.

O que vejo neste seus critérios ainda é simples relação com a data final

Quando for TIPO = 1 e Período estiver entre 25/12/**** e 26/01/**** então Mês = "Janeiro"
Quando for TIPO = 1 e Período estiver entre 25/01/**** e 26/02/**** então Mês = "Fevereiro"
Quando for TIPO = 1 e Período estiver entre 25/02/**** e 26/03/**** então Mês = "Março"
Quando for TIPO = 1 e Período estiver entre 25/03/**** e 26/04/**** então Mês = "Abril"
Quando for TIPO = 1 e Período estiver entre 25/04/**** e 26/05/**** então Mês = "Maio"
Quando for TIPO = 1 e Período estiver entre 25/05/**** e 26/06/**** então Mês = "Junho"
Quando for TIPO = 1 e Período estiver entre 25/06/**** e 26/07/**** então Mês = "Julho"
Quando for TIPO = 1 e Período estiver entre 25/07/**** e 26/08/**** então Mês = "Agosto"
Quando for TIPO = 1 e Período estiver entre 25/08/**** e 26/09/**** então Mês = "Setembro"
Quando for TIPO = 1 e Período estiver entre 25/09/**** e 26/10/**** então Mês = "Outubro"
Quando for TIPO = 1 e Período estiver entre 25/10/**** e 26/11/**** então Mês = "Novembro"
Quando for TIPO = 1 e Período estiver entre 25/11/**** e 26/12/**** então Mês = "Dezembro"
Ou---------------------------
Quando for TIPO = 2 e Período estiver entre 19/12/**** e 18/01/**** então Mês = "Janeiro"
Quando for TIPO = 2 e Período estiver entre 19/01/**** e 18/02/**** então Mês = "Fevereiro"
Quando for TIPO = 2 e Período estiver entre 19/02/**** e 18/03/**** então Mês = "Março"
Quando for TIPO = 2 e Período estiver entre 19/03/**** e 18/04/**** então Mês = "Abril"
Quando for TIPO = 2 e Período estiver entre 19/04/**** e 18/05/**** então Mês = "Maio"
Quando for TIPO = 2 e Período estiver entre 19/05/**** e 18/06/**** então Mês = "Junho"
Quando for TIPO = 2 e Período estiver entre 19/06/**** e 18/07/**** então Mês = "Julho"
Quando for TIPO = 2 e Período estiver entre 19/07/**** e 18/08/**** então Mês = "Agosto"
Quando for TIPO = 2 e Período estiver entre 19/08/**** e 18/09/**** então Mês = "Setembro"
Quando for TIPO = 2 e Período estiver entre 19/09/**** e 18/10/**** então Mês = "Outubro"
Quando for TIPO = 2 e Período estiver entre 19/10/**** e 18/11/**** então Mês = "Novembro"
Quando for TIPO = 2 e Período estiver entre 19/11/**** e 18/12/**** então Mês = "Dezembro"

Parece que depende da data inicial também.
Por exemplo:

Quando for TIPO = 1 e Período estiver entre 25/01/**** e 26/02/**** então Mês = "Fevereiro"

Nesse caso, o mês a ser retornado para a data 27/02/****, por exemplo, é março.
E os períodos variam de acordo com o Tipo.

EXATAMENTE, aí mora o problema.
Juro que não estou conseguindo fazer, eu realmente preciso de ajuda
Vou tomar um café e depois eu volto pra pensar kkkkkk

Para eu tentar implementar a solução sugerida, preciso da tabela com os campos Tipo/Período/Mês, com dois Tipos preenchidos seriam suficientes.
Pode enviar o banco de dados novamente, com essa tabela?

Cláudio, eu criei uma tabela chamada "CAD_TP_PARAM" com os registros que você pediu
Não sei se está no formato ideal

Avalie e me diga se preciso fazer algo mais

Juliano, não fiz muitos testes, mas deve ser mais ou menos isso.
Crie a função abaixo em um módulo, depois o campo calculado em uma consulta chamando a função, conforme minha mensagem anterior.

Código:

Public Function f_calcula_mes(t As String, d As Date) As String
't de tipo e d de data

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT Mês FROM cad_tp_param WHERE ((Mês <> 'Janeiro') AND (Tipo = '" & t & "') AND (#" & d & "# Between CDate(Format$([Inicio],'dd/mm/') & Year(#" & d & "#)) And CDate(Format$([Fim],'dd/mm/') & Year(#" & d & "#))))")

If rs.EOF Then
    f_calcula_mes = "Janeiro"
Else
    f_calcula_mes = rs!Mês
End If

rs.Close

End Function

Perai, voce não formatou a DATA Brasil para DATA Americana, assim ele vai Checar o "mês" analisando os 2 primeiros digitos:

LOGO 08/01/2013 = Agosto quando deveria ser Janeiro
Eu joguei o Format([Data];"mm/dd/yy")na formula: f_calcula_mes([Tipo];Format([Data];"mm/dd/yy"))

Cara, muito obrigado, funcionou perfeitamente, vou fazer mais um testes e alterar os nomes exclusivos
Vou criar uns índices pra facilitar a consulta e vou montar o resultado disso

Abraço

Valeu, Juliano.
Abraço

Claúdio, a formula ta apresentando um erro

Voce consegue identificar ?

Veja se a modificação atende. Rode a consulta Gerencial_Externo

Se vc vai rodar este seu projeto em rede, eu diria que esta função é um atentado ao desempenho do seu aplicativo. Eu atualmente não faço mais estas manobras, que obrigam a realizar milhares de requisições a tabela, como esta sendo neste seu exemplo. Usa ou não em rede ?

Não uso em rede, e não vou executar esta consulta desta forma...kkkkkk
Ainda não criei os índices e tem muita coisa pra melhorar o desempenho...

Vou ver como ficou

Juliano, a mensagem de erro leva a crer que o nome da função foi alterada no módulo, ou foi alterada a chamada no campo calculado na consulta.
Se isso não foi feito, só vou poder verificar com uma cópia do banco de dados.

Avalie a solução do Avelino. Adquiri o hábito da linguagem T-SQL em banco de dados cliente-servidor (SQL Server) e pode haver melhor resultado sem utilizar sub-consultas no Access. De qualquer maneira, não esqueça de usar os índices corretamente.

Avelino, acho que você enviou o arquivo errado, não tem nenhuma modificação na consulta Gerencial_Externo.

Se não usa em rede, tranquilo então.

Claudio, segue o arquivo com a correção.

Aguardo.

Ainda não... é o mesmo arquivo.

Que coisa louca (risos) pois eu baixo o arquivo e a consulta está com a sua função aplicada no campo "Mes"

Mes: f_calcula_mes([tipo];[data])

Juliano, vc também não consegue ver a função aplicada na consulta?

No aguardo

Veja se a modificação atende. Rode a consulta Gerencial_Externo

Avelino, desculpe. A sua modificação é sobre o erro que o Juliano citou, eu achei que você estaria enviando uma alternativa para obter o resultado sem utilizar sub-consultas.