[Resolvidos]Extrair-preencher-autocompletar o nome do mês baseado na data por select case

Olá amigos bom dia a todos.


No decorrer do meu aprendizado me deparei com a seguinte questão:

Tenho um BD onde a data esta dividida em três campos [dia]; [mes] e [ano]
e assim tenho conseguido fazer quase todas as consultas referentes a data.
Quase todas, menos consulta por período, ex> entre 01/01/2010 e 03/03/2010.

O que já tentei:
1- concatenei os três campos no formato 01-dez-2010 e na propriedade do campo setei para data geral, mas não funfou porque o access entende que aquele campo não é uma data.

desde já agradeço a atenção de todos,


Irailson

Amigo

Defina na Tabela o campo como data abreviada, pois é assim que tem ser e não dividir a data em 3 campos, Aí o seu problema está resolvido.

Olá Vieira, tudo bem?

Já fiz isso: criei um campo data, concatenei os outros já preenchidos e transferi de um para o outro, resolvendo o problema, mas...

1- Minha pergunta baseia-se na curiosidade didatica porque já vi vários sites utilizando este formato de data (inclusive o da Exercito Brasileiro)

Vieira aproveitando o ensejo como faço para extrair do campo data o mês no formato "JAN" ou "FEV" etc... No momento so consigo extrair em numero 1, 2 com código: MesFato:Mês([Data])

Obrigado

Para obter por extenso deverá ter uma função assim:


Function MesExtenso(Mes as Integer)As String
Select Case Mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"

até ao mês 12

Vieira,


Este código e colocado na SQL ou no form? não sei implementá-lo ainda.

como faço?

Coloque num módulo do vba a função

depois chame a função assim:


O campo Mês = MesExtenso(Month(SuaData))

Vieira,


Valeu pela atenção vou testar depois retorno,


Grato


Irailson

Olá Vieira e amigos do forum,


Coloquei o codigo, mas não funfou.

Amigo

Esse é o único que eu conheço, o que não implica a existência de outros.
Agora, você também pode formatar na tabela o campo da data para>Data normal e este aparece como:20/Nov/2010. Uma solução bem simples.

Valeu Vieira,

Vou retestar o código que voce encaminhou e vou buscar outras alternativas


depois retorno,

Obrigado

Amigo irailson

Ontem não pude testar o código. Hoje já arrangei tempo e funciona perfeito.

1- Abra um Módulo vba e cole o código:

Function MesExtenso(Mes As Integer) As String
Select Case Mes
Case 1
MesExtenso = "Janeiro"
Case 2
MesExtenso = "Fevereiro"
Case 3
MesExtenso = "Março"
End Select
End Function


Feche e guarde o Módulo

No formulário por baixo do seu campo que recolhe a data, coloque uma caixa de texto

e na Origem do Controle digite:

=MesExtenso(Mês([seucampodata]))

Olá Vieira, bom dia..


Inflezmente não consegui implantar o código

Será que você poderia mandar o exemplo para analisar,

obrigado pela atenção,

Irailson

Amigo:

Aqui vai:

http://dl.dropbox.com/u/8157744/IRL.mdb

Olá Vieira,

Obrigado pelo exemplo, ele me fez entender como funciona ocodigo select case em questão.

Fico muito agradecido pela ajuda, espero poder retribuir...

Abraço,

Irailson

Esqueci do resolvido

Valeu amigão, obrigado pelo retorno