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]Filtro entre Data em VBA

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Filtro entre Data em VBA

    Mensagem  MarceloSilva em 24/10/2012, 13:59

    Bom dia Amigos

    Estou com uma dúvida no código abaixo.
    Estou tentando efetuar um filtro entre s em formulário com subform folha de dados mas não tento sucesso.
    A Principio o código está certo,(não apresenta erros) mas não consigo alocar a final ao filtro.

    Por exemplo:

    Ao lançar nos campos ( Inicial = 01/10/2012 Final = 31/10/2012)

    me apresenta registros de 01/10/2012 à 29/10/2012.
    Os registros com 31/10/2012 não são apresentados na filtragem.

    Onde estou Errando?

    filtro As String
    filtro = filtro & " AND tbl_PedidoCompra.DataPedido Between >=#" & Format(Me!Inicial, "mm/dd/yyyy") & "# AND >=#" & Format(Me!Final, "mm/dd/yyyy") & "#"
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  HARYSOHN em 24/10/2012, 14:01

    Ja tentou modificar de mm/dd para dd/mm?


    Cumprimentos.
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  MarceloSilva em 24/10/2012, 14:16

    Agora Apresenta Erro 3075 de Sintaxe "Operador Faltando"

    Veja como está agora.....

    filtro = filtro & " AND tbl_PedidoCompra.DataPedido Between >=#" & Format(Me!DataInicial, "dd/mm/yyyy") & "# AND <=#" & Format(Me!DataFinal, "dd/mm/yyyy") & "#"
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  HARYSOHN em 24/10/2012, 14:18

    Poste o a parte do BD para que possamos ver.

    Cumprimentos.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 24/10/2012, 14:26

    Você não pode utilizar o >= com o Between

    Teste assim;

    filtro = filtro & " AND tbl_PedidoCompra.DataPedido >= #" & Format(Me!DataInicial, "dd/mm/yyyy") & "# AND tbl_PedidoCompra.DataPedido <= #" & Format(Me!DataFinal, "dd/mm/yyyy") & "#"



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  MarceloSilva em 24/10/2012, 14:44

    JPaulo......O erro foi solucionado, porem a DataFinal fica fora filtragem, conforme relatado acima.

    veja a instrução por completo:

    Private Sub btFiltrar_Click()
    Dim j As Boolean, filtro As String
    If IsNull(Me!CboSetor) Then j = True
    If IsNull(Me!DataInicial) Then j = True
    If IsNull(Me!DataFinal) Then j = True
    If j = True Then
    MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
    Me!CboSetor.SetFocus
    Exit Sub
    End If
    filtro = "CD_CadObra = " & CboSetor.Column(0)

    filtro = filtro & " AND tbl_PedidoCompra.DataPedido >= #" & Format(Me!DataInicial, "dd/mm/yyyy") & "# AND tbl_PedidoCompra.DataPedido <= #" & Format(Me!DataFinal, "dd/mm/yyyy") & "#"
    '--------------------------------------------------------------------------------------------------------------------
    subfrm_ResumoComp.Form.Filter = filtro
    subfrm_ResumoComp.Form.FilterOn = True
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 24/10/2012, 15:07

    Teste;



    Dim j As Boolean
    If IsNull(Me!CboSetor) Then j = True
    If IsNull(Me!DataInicial) Then j = True
    If IsNull(Me!DataFinal) Then j = True
    If j = True Then
    MsgBox "Preencha todos os campos...", vbInformation, "Aviso"
    Me!CboSetor.SetFocus
    Exit Sub
    Else
    Me.subfrm_ResumoComp.Form.Filter = _
    " DataPedido >= #" & Format(Me!DataInicial, "dd/mm/yyyy") & "#" _
    & "And DataPedido <= #" & Format(Me!DataFinal, "dd/mm/yyyy") & "#" _
    & " And CD_CadObra = " & CboSetor.Column(0)
    Me.subfrm_ResumoComp.Form.FilterOn = True
    End If



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  MarceloSilva em 24/10/2012, 16:55

    JPaulo...Ainda mantem o problema...

    Estranho....
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 24/10/2012, 16:56

    Não consigo testar sem o banco.

    Pode anexar aqui parte do seu banco, provavelmente terá de formatar a data para data americana.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 24/10/2012, 17:45

    Teste com a data americana, aqui funfou;


    Me.subfrm_ResumoComp.Form.Filter = _
    " DataPedido >= #" & Format(Me!DataInicial, "mm/dd/yyyy") & "#" _
    & "And DataPedido <= #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#" _
    & " And CD_CadObra = " & CboSetor.Column(0)
    Me.subfrm_ResumoComp.Form.FilterOn = True




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 25/10/2012, 10:48

    Marcelo fufou ae ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  MarceloSilva em 25/10/2012, 12:17

    Bom dia JPaulo

    Não tive sucesso...

    estou enviando meu BD anexo para dar uma olhadinha...

    Faça o seguinte teste:

    Escolha a Obra Havenna
    Data Inicio = 01/11/2012
    Data Final = 02/11/2012

    Verá que a data 02/11/2012 não aplica no filtro.....
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 25/10/2012, 13:09

    Veja;



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 28/02/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  MarceloSilva em 25/10/2012, 13:20

    Simples.....

    Vivendo e aprendendo...

    Obrigado JPaulo....
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 25/10/2012, 14:15

    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  HARYSOHN em 25/10/2012, 16:02

    Boas JP, podes postar o exemplo novamente?

    Abraços.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  JPaulo em 25/10/2012, 16:09

    Algo estranho se passou aqui com os anexos.

    O código ficou assim;


    Me.subfrm_ResumoComp.Form.Filter = _
    " DataPedido >= #" & Format(Me!DataInicial, "mm/dd/yyyy") & "#" _
    & "And DataPedido <= #" & Format(Me!DataFinal+1, "mm/dd/yyyy") & "#" _
    & " And CD_CadObra = " & CboSetor.Column(0)
    Me.subfrm_ResumoComp.Form.FilterOn = True



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtro entre Data em VBA Folder_announce_new Instruções SQL como utilizar...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  HARYSOHN em 25/10/2012, 16:27

    Ok, Grato.


    Cumprimentos.

    Conteúdo patrocinado

    [Resolvido]Filtro entre Data em VBA Empty Re: [Resolvido]Filtro entre Data em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:06