MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

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

    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

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

    Mensagem  darlansandro 12/3/2017, 21:25

    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,
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

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

    Mensagem  philipp.moreira 13/3/2017, 01:24

    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 ?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 13/3/2017, 02:20

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

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

    Mensagem  darlansandro 13/3/2017, 17:16

    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,
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 13/3/2017, 18:07

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:04