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]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

    entre data - [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

    entre data - [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

    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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 : 10605
    Registrado : 04/11/2009

    entre data - [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

    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    entre data - [Resolvido]Filtro entre Data em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    entre data - [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

    entre data - [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.

      Data/hora atual: 27/11/2020, 08:04