Filtros em Subform

Bom dia amigos,

Estou a tentar montar um form de pesquisa em subform com base em critérios...

O amigo Cassio ajudou-me, noutro post a criar a base e funciona lindamente.

Código:

Private Sub btnLocalizar_Click()
    If Not IsNull(cbxpesquisaentrada) = True Then
        strFiltro = "ID = '" & Me.cxPesquisaEntrada & "'"
        
        Me.subfrmCorrespondenciaEntrada.Form.Filter = strFiltro
        Me.subfrmCorrespondenciaEntrada.Form.FilterOn = True
        Me.subfrmCorrespondenciaEntrada.Requery
    Else
        Me.subfrmCorrespondenciaEntrada.Form.FilterOn = False
        Me.subfrmCorrespondenciaEntrada.Requery
    End If
End Sub

Mas eu queria replicar o código para ser usado com vários critérios ao mesmo tempo.
Por exemplo, se eu quiser filtrar pelo Campo ID e pela Data ao mesmo tempo.

Obrigado

Amigo, antes de uma pesquisada aqui no Fórum! Com certeza irá encontrar a sua duvida ja resolvida, pois existem varias questões sobre filtros/pesquisa.


No seu caso o que terá que fazer é Colocar as caixas de Texto, e verificar se elas contem dados... Se contiver vc irá acumulando o valor em uma Variável, e no Final basta aplicar o Filtro igual o código postado por vc...


If Not IsNull(Me.txtPesquisa1) then


F =F & "NomeCampo = '" & Me.txtPesquisa1 & "' AND "
end if


If Not IsNull(Me.txtPesquisa2) then


F = F & "NomeOutroCampo= '" & Me.txtPesquisa2 & "' AND "
end if

Esse é o Caminho...

verifique se o exemplo que eu coloquei no meu tópico "filtros em formulario e actualização de estado via ficheiro excel " ontem serve para o que você pretende.
se como eu pretender filtrar compôs em branco veja a solução que me foi proposta pois resolve.