[Resolvido]Filtro duas datas

Olá pessoal,

Tenho uma data "DataAdmissao: Ativo: Sim/Não" e outra "DataDemissao: Demitido:Sim/Não".
Estou usando este codigo para filtrar em duas consultas diferentes.
Como posso filtrar ambas das datas em uma única consulta?

Dim filtro As String
If Len(Me!CboCliente & "") > 0 Then filtro = "Ano = '" & CboCliente.Column(0) & "'"
If Len(Me!DataInicial & "") > 0 And Len(Me!DataFinal & "") > 0 Then
If filtro = "" Then
filtro = "Consulta1.DataAdmissao Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"
Else
filtro = filtro & " AND Consulta1.DataAdmissao Between #" & Format(Me!DataInicial, "mm/dd/yyyy") & "# AND #" & Format(Me!DataFinal, "mm/dd/yyyy") & "#"

End If
End If


sfrmConsulta.Form.Filter = filtro
sfrmConsulta.Form.FilterOn = True

End Sub

Att,

Fabiano

Olá Fabiano,

Eu entendi a sua necessidade, mas gostaria de ter a sua base de dados para entender como a sua consulta está construída. Você pode enviá-la?

Julio,

Segue a base de dados.

Att,

Fabiano

Resolvido