[Resolvido]Filtrar dois campos datas em subForm a partir de um combo.

Boa noite galera.
Estou com um problema que está tirando meu sono.
No anexo, tenho um form com um combo que exibe os contratos existentes.
Preciso escolher um contrato e fazer com que o sistema filtre somente os contratos com as respectivas datas escolhidas.
Criei os filtros mas não acontece nada.
Fico no aguardo de uma resposta.
Obrigado

Olá claudio!
Seu problema esta na forma como construiu a Função!

Veja so:

If Me.FiltroPeriodoInicial <> "" Then
F1 = "[Periodo_Inicial] Like '*" & Me.FiltroPeriodoInicial & "*'" 'Busca Campo1
F1 ="[Periodo_Final] Like '*" & Me.FiltroPeriodoFinal & "*'" 'Busca Campo1
F1 = "AND [Contrato] Like '*" & Me.FiltroContrato & "*'" 'Busca Campo

Observe que a variável F1 assume o valor do Periodo inicial, mas logo em seguida e perdido esse valor e assume o valor do periodo Final, mas logo em seguida perde o valor e assume o valor do Contrato... De forma que ao Final a variavel F1 terá somente o Numero do COntrato.
Veja:



Terá que acumular o valor...
F1= abc
F1= F1 & def
F1= F1 & Ghi

Ao final F1 estara com valor de "abcdefghi"

Bom dia migo.
Entendi mais ou menos, poderia ser mais explícito?
Ou um exemplo?
Obrigado

Então, o filtro que precisa construir deve ser aplicado em 3 Campo, certo?


Da forma como você fez, ele aplica os valores na variável 3x, mas sempre sobrescreve o valor que ja tem na variável... Dessa forma ao final a variável F1 so terá o valor de um único Campo que no caso é o Contrato... ja que ele é o ultimo a ser enviado.


Veja um exemplo de aplicação de filtro no seu caso...
Obs: Fiquei perdido quanto as datas... estou partindo da ideia que quer que o Período Inicial seja entre as duas datas e o Período Final também!

Coloque no evento Apos atualizar da sua comboBox:

Código:


Private Sub EsolheFiltroPeriodo_AfterUpdate()
Dim F As String
F = "[Periodo_Inicial] between #" & Format(Me.EsolheFiltroPeriodo.Column(1), "mm/dd/yyyy") & "# AND #" & Format(Me.EsolheFiltroPeriodo.Column(2), "mm/dd/yyyy") & "# "
F = F & "AND [Periodo_Final] between #" & Format(Me.EsolheFiltroPeriodo.Column(1), "mm/dd/yyyy") & "# AND #" & Format(Me.EsolheFiltroPeriodo.Column(2), "mm/dd/yyyy") & "# "
F = F & "AND [Contrato] Like '*" & Me.EsolheFiltroPeriodo.Column(0) & "*'"
Me!FICHA_FINANCEIRA_SUB.Form.Filter = F
Me!FICHA_FINANCEIRA_SUB.Form.FilterOn = True
End Sub



Observe que para cada campo a variável F assume o valor dela mesmo (para acumular os valores)

Ja lhe adianto, dessa forma não terá o resultado esperado:
"[Periodo_Inicial] Like '*" & Me.FiltroPeriodoInicial & "*' pois como terá a data completa o * antes e depois * não adianta, entao o resultado será o mesmo que se colocar Periodo_Inicial=xxxx

Perfeito Fábio!



Muito obrigado mesmo.  

PS: Como nunca sabemos tudo... Se um dia precisar e eu puder ajudar, estarei a disposição.
Abraços

Grato pelo retorno Claudio!

Mas, você entendeu o porque de ter que Acumular o valor na Variável?

Terá que acumular o valor...
F1= abc
F1= F1 & def
F1= F1 & Ghi

Ao final F1 estara com valor de "abcdefghi"

Outra coisa que não podemos esquecer é que data deve ser formatada para formato mm/dd/yyyy e ficar entre o #dataaqui#.

Até a Próxima se Deus quiser!

Bom dia.
Claro amigo.
Obrigado pelas dicas.
Fique com Deus sempre!