MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Pesquisa entre datas SQL

    avatar
    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 Empty [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 HARYSOHN (https://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)
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pesquisa entre datas SQL Empty 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") & "#)"
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Pesquisa entre datas SQL Empty 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
    avatar
    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 Empty 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: 22/10/2020, 01:05