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


2 participantes

    [Resolvido]Data maior e igual

    avatar
    LucianoSilva43
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data maior e igual Empty [Resolvido]Data maior e igual

    Mensagem  LucianoSilva43 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)
    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]Data maior e igual Empty Re: [Resolvido]Data maior e igual

    Mensagem  FabioPaes 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!
    avatar
    LucianoSilva43
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data maior e igual Empty Re: [Resolvido]Data maior e igual

    Mensagem  LucianoSilva43 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
    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]Data maior e igual Empty Re: [Resolvido]Data maior e igual

    Mensagem  FabioPaes 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!

    Conteúdo patrocinado


    [Resolvido]Data maior e igual Empty Re: [Resolvido]Data maior e igual

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:17