[Resolvido]Função Format para uso com datas

Olá,

Tenho um formulário que envia uma informação para uma consulta para impressão em um relatório. A informação é enviada pelo formulário através de uma variavel. A informação é do tipo data. O access não apresenta erro de estrutura ou código, mas não filtra a informação por mês e ano, que é o objetivo da consulta. Abaixo segue as informações.

1 . Formulário:

Código:


Private Sub btn_imprimir_Click()
  Dim Filtro As String
    Filtro = Format(Me!txtCompetencia, "mm/yyyy")
    'Atribuir às variáveis globais os valores
    GBL_ID = Me.txtId
    GBL_Filial = Me.txtFilial
    GBL_Date_Inicial = Filtro
   
   
    'fechar form
    DoCmd.Close
   
    'abrir report
    DoCmd.OpenReport "rtlProtocolo", acViewPreview


2. Na Consulta usei a expressão abaixo:

Código:


periodo: (Format([data];"mm"" /""yyyy"))


No critério da consulta usei a expressão

Código:


GetGBL_Date_Inicial()


3. No Módulo uso uma função pública para gravar as informações no momento que a janela do formulário fechar:

Código:


Public Function GetGBL_Date_Final()
  GetGBL_Date_Final = GBL_Date_Final
End Function


Disponibilizei o banco e vídeo demonstrando do que estou precisando. Agradeço desde já a ajuda.

Link: 1drv.ms/f/s!AgHCWa12NNUWgdE39vGY6NGFL6D6BQ

Por favor copia e colar o link no navegador, pois de acordo com as regras do forum não são permitidos links externos.

Grato,

Darlansandro, boa noite!

+Vendo o vídeo, lendo e relendo seu descritivo, o que me ocorreu foi  (No passo 2):

- Devido o campo da tabela ter nome [data], talvez, o access esteja confundindo com a função/tipo Date/Data e ao invés do valor da tabela esteja estabelecendo como critério e formatando a data do computador no dia em que a consulta esta sendo feita;
- Por curiosidade e aprendizado, por que uso format, assim:

Código:


periodo: (Format([data];"mm"" /""yyyy"))


E Não assim ?

Código:


periodo: (Format([data];"mm/yyyy"))


+ Não entendi, no passo 3 qual o objetivo de citar ela ? O que ela influi no fluxo de processamento desta funcionalidade ?

Nao entendi essa formatação do passo 2...

Me diga, há mesmo a necessidade de dar toda essa volta para imprimir esse relatório, filtrando dados?

Porque não cria o relatório exibindo todos os registros... Porem no botão do formulário para visualizar o relatório, e que manda abrir e aplica o Filtro.

Nao pude baixar seu projeto hj...

Olá gente,

Consegui resolver o problema. Então vamos as respostas:

1. philipp.moreira: Quanto a questão do uso da função "Format" da forma apresentada. Originalmente o uso do Format quando executado por padrão no access 2010 é executado desta forma: Format(GBL_Date_Inicial, "mm"" '""yyyy"). Trabalho muito com relatórios os quais constam graficos e neles uso uma opção chamada "Tabela com Referencia Cruzada", eventualmente, e por padrão o access sempre me retorna a variavel desejada, somente quando o format esta na forma anteriormente descrita. Testei algumas vezes com outros códigos, e ao que me parece, quando filtramos desta forma o access 2010, ganha em velocidade de processamento.

2. FabioPaes: Trata-se de um serviço de protocolo, nele preciso adicionar novos registros para o atual mês e simultaneamente buscar os registros que constam no banco para o mês anterior. Desta forma, criei um campo chamado competência (data), aonde o usuário coloca a competência desejada para o banco adicionar os documentos do mês anterior ao o mês do cadastro. Lembre-se que trata-se de um serviço de protocolo contábil.

3. Resposta: Usei dois filtros no formulário e na consulta. O primeiro somente para o mês e o segundo somente para o ano.

1. Formulário:

Código:



GBL_Date_Inicial = Format(Me!txtCompetencia, "m")
GBL_Date_Final = Format(Me!txtCompetencia, "yyyy")


2. Consulta:

Código:


mes: Mês([data])
ano: Ano([data])


Grato pela ajuda de todos,

Grato pelo retorno amigo, até a próxima se Deus Quiser!