MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Data maior e igual

    Compartilhe

    LucianoSilva43
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/01/2017

    [Resolvido]Data maior e igual

    Mensagem  LucianoSilva43 em 1/7/2017, 04:32

    Boa Noite e todos,

    Estou fazendo uma consulta por um formulario para gerar um relatório tipo extrato, mas na hora de ele consultar os dos ultimos 15 dias estou tento problemas, gostaria de uma ajuda!

    Estou colocando da seguinte maneira:
    Código:
    Private Sub Ext15days_Click()
    Dim NomeFormAbert, Criterio As String
    NomeFormAbert = "extrato"
    Criterio = "Data = >Date()-15"
    DoCmd.OpenReport NomeFormAbert, acViewReport, , Criterio
    End Sub

    Estou querendo colocar a data maior do que 15 dias atras... essa seria minha consulta

    Teria como alguém me ajudar?? O que eu fiz errado??


    Última edição por LucianoSilva43 em 1/7/2017, 19:06, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Data maior e igual

    Mensagem  FabioPaes em 1/7/2017, 05:02

    Qual o problema que esta acontecendo amigo?

    Experimente assim:

    "[Data] =>Date()-15"


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

    LucianoSilva43
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/01/2017

    Re: [Resolvido]Data maior e igual

    Mensagem  LucianoSilva43 em 1/7/2017, 12:44

    Obrigado!

    Deu certo!

    O código ficou assim:
    Código:
    Private Sub Ext15days_Click()
    Dim NomeFormAbert, Criterio As String
    NomeFormAbert = "extrato"
    Criterio = "[Data] >=Date()-15"
    DoCmd.OpenReport NomeFormAbert, acViewReport, , Criterio
    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Data maior e igual

    Mensagem  FabioPaes em 1/7/2017, 18:52

    Grato pelo retorno.
    Se a duvida foi solucionada por favor marque obtopico como Resolvido!

    Ate a proxima 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!

      Data/hora atual: 14/11/2018, 11:50