[Resolvido]Filtro entre Data em VBA

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") & "#"

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


Cumprimentos.

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") & "#"

Poste o a parte do BD para que possamos ver.

Cumprimentos.

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") & "#"

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

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

JPaulo...Ainda mantem o problema...

Estranho....

Não consigo testar sem o banco.

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

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

Marcelo fufou ae ?

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

Veja;

Simples.....

Vivendo e aprendendo...

Obrigado JPaulo....

Obrigado pelo retorno o fórum agradece.

Boas JP, podes postar o exemplo novamente?

Abraços.

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

Ok, Grato.


Cumprimentos.