[Resolvido]Problema com filtros

Não estou conseguindo aplicar os filtros

Amigo, seu exemplo tem 13 Formulários e 4 Relatórios...

Onde nao esta conseguindo aplicar filtro?
Como deveria se comportar?

Com essas informações e impossível lhe ajudar!

Nos Ajude a lhe Ajudar!

Perdão
Coloquei no form principal abaixo as condições do filtro!

Amigo, antes de mudar o Codigo pelo que vou passar, faça esse Teste que vc descobrirá o motivo do Erro:

Coloque uma MSGBOX antes de aplicar o Filtro, para ver como esta sendo construido seu Filtor:

Me.Filter = Mid(strFiltro, 6)
MsgBox Mid(strFiltro, 6)
Me.FilterOn = True



Realizei uma Pequena mudança na sua função de Filtro, para filtrar entre as datas...

Atualize para:

Código:


Sub AplicaFiltro()
    Dim strFiltro As String
    strFiltro = ""
    If Not IsNull(Me.TxtDescricao) Then strFiltro = strFiltro & " and Descrição='" & Me.TxtDescricao & "'"
    If Not IsNull(Me.dtafinal) Then strFiltro = strFiltro & " and Vencimento between #" & Format(Me.dtaini, "mm/dd/yyyy") & "# and #" & Format(Me.dtafinal, "mm/dd/yyyy") & "#"
    If Not IsNull(Me.TxtStatus) Then strFiltro = strFiltro & " and Status='" & Me.TxtStatus & "'"

    Me.Filter = Mid(strFiltro, 6)
    MsgBox Mid(strFiltro, 6)
    Me.FilterOn = True
End Sub


Valeu Fabio!

Grato pelo Retorno! Até a Próxima se Deus quiser!


Obs: O Problema inicial do amigo, era que nas CBos de pesquisa, ambas tinham um valor padrão definido (A dica do campo, "Pesquisar em Observação"), dessa forma O campo não era nulo, e o Valor participaria do Filtro. Observação='Pesquisar em Observação'.