[Resolvido]Pesquisa Data e Nome

Olá

Amigos tenho estes dois códigos e funcionam, só me falta que ao filtrar por data ele mantenha a pessoa ou vice versa.
A ideia era pesquisar entre datas e depois pelo nome, mantendo a data que foi filtrada.

Primeiro código pesquisa o nome numa caixa de texto. Segundo código pesquisa data entre datas. Agora era a fixação da data enquanto se pesquisa pelo nome para dar o resultado dos registo entre as datas da pessoa pesquisada.

Código:

Private Sub btnFiltrarData_Click()
filtro = "[DataSIC] Between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

Me!NOVOSUBFORM.Form.Filter = filtro
Me!NOVOSUBFORM.Form.FilterOn = True
End Sub

Private Sub txtPesquisa_Change()
Dim strFiltro As String
strFiltro = "NomeUtente LIKE '*" & Me.txtPesquisa.Text & "*' "
Me.NOVOSUBFORM.Form.Filter = strFiltro
Me.NOVOSUBFORM.Form.FilterOn = True
End Sub

Obrigado

Olá Marcos,

Por gentileza, compartilhe seu bd (comente objetos envolvidos) para análise e solução.

Att,

FIM

Segue partes da bd. Obrigado.

form : NOVO e encontram-se os objectos campos e botões de filtragem.

Olá Marcos,

O formulário agora está com a pesquisa dinâmica, onde ele verifica se existe o preenchimento do campo de pesquisa e das datas também, e faz o filtro conforme os parâmetros informados,

Inclui também validações para preenchimento correto das datas

Fiz alguns ajustes no designer e inclui um botão de remover filtro também. Ficou assim:


É isso.
Segue versão do sistema.
Espero ter ajudado.

Boa sorte

[]'s

FIM

OK !
É isto mesmo. Obrigado

Ok Marcos...o fórum agradece !!!
Boa sorte e sucesso!!