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]Pesquisa entre datas SQL

    Compartilhe

    kleyton_mendes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011

    [Resolvido]Pesquisa entre datas SQL

    Mensagem  kleyton_mendes em 26/4/2017, 13:49

    Prezados

    Estou tentando montar um codigo para meu BD para a exportação de um relatório para o excel.

    O relatório devera ser exportado com base em uma consulta e filtrado por dois campos entre datas, o di que é a data inicial do filtro e df data final do filtro.

    O codigo para exportar para o excel eu testei sem tentar colocar o filtro e funcionou bem, porém de diversas forma aplicar o filtro usando between entre outras pesquisas aqui no forum porem nao funcionou, por ultimo tentei a sugestão do [Você precisa estar registrado e conectado para ver este link.] (http://www.maximoaccess.com/t4001-resolvidosql-com-filtro-entre-datas), se alguém puder me ajudar segue a minha proposição:

    Private Sub btexcel_Click()
    Dim objAPP As Object
    Dim objwk As Object
    Dim objSh As Object
    Dim Rs As DAO.Recordset

    Set rst = CurrentProject.Connection.Execute("SELECT *,'cstl_RelMASU' FROM cstl_RelMASU WHERE cstl_RelMASU.data = " & And (data >=#" & Format(Me.di, "mm/dd/yyyy") & "# And data <= #" & Format(Me.df, "mm/dd/yyyy") & "#)"

    Set objAPP = CreateObject("Excel.application")

    objAPP.Workbooks.Open Me.local

    Set objwk = objAPP.Workbooks.Add

    Set objSh = objwk.ActiveSheet

    Set Plan = objAPP.Worksheets(1)

    objAPP.Visible = True

    objAPP.Workbooks.Open Me.local

    objAPP.Sheets("DEMANDAS").SELECT

    objAPP.Cells(4, 3).CopyFromRecordset rst

    End Sub


    Última edição por kleyton_mendes em 31/7/2017, 14:26, editado 1 vez(es)
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Pesquisa entre datas SQL

    Mensagem  philipp.moreira em 26/4/2017, 15:14

    Bom dia!

    Veja se alterando para o trecho abaixo, se dar certo! ;)

    Código:
    "SELECT *, 'cstl_RelMASU' FROM cstl_RelMASU WHERE (cstl_RelMASU.data >= #" & Format(Me.di, "dd/mm/yyyy") & "# And cstl_RelMASU.data <= #" & Format(Me.df, "dd/mm/yyyy") & "#)"
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7030
    Registrado : 05/11/2009

    Re: [Resolvido]Pesquisa entre datas SQL

    Mensagem  Alexandre Neves em 11/6/2017, 20:03

    Boa tarde,
    Porque ainda não respondeu ao colega?
    Veja se serve
    Set rst = CurrentProject.Connection.open("SELECT * FROM cstl_RelMASU WHERE data between #" & Format(Me.di, "mm/dd/yyyy") & "# And #" & Format(Me.df, "mm/dd/yyyy") & "#)"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    kleyton_mendes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011

    Re: [Resolvido]Pesquisa entre datas SQL

    Mensagem  kleyton_mendes em 31/7/2017, 14:25

    prezados,

    Desculpe a demora em responder...

    Topico resolvido

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