[Resolvido]Filtrar dados por três TextBox em formulario.

Prezados, boa noite,

Localizei no fórum um exemplo mestre JPaulo para filtro em um formulário continuo.
Minha duvida é a seguinte: Como eu posso realizar o filtro com mais de um campo não acoplado no formulário?

Como adaptei o exemplo do mestre JPaulo ao meu projeto e uso como filtro o campo não acoplado txtFiltro; gostaria de saber se é possível acrescentar os campos txtData e txtConvenio grifado em azul no formulário.

Ou seja, o usuário pode preencher um ou preencher os três campos e clicar em pesquisar para filtrar os dados.

Link: https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0

Grato,

Quando uso o filtro: DoCmd.ApplyFilter , "[txtConvenio] = '" & Me.Campo1 & "'"
no evento AfterUpdate e marco o campo como acoplado o registro me retorna o filtro que preciso.

Já quando deixo o campo não acoplado o filtro não retorna os dados filtrados.

Aguardo uma sugestão dos amigos do forum.

Atenciosamente,

Consegui fazer o filtro de forma individual em cada campo não acoplado com o código:

DoCmd.ApplyFilter , "[txtConvenio] = '" & Me.Texto44 & "'" 'Campo texto onde digito nome do Convenio
DoCmd.ApplyFilter , "[txtDataDoc] = #" & Me.Texto42 & "#" 'Campo data abreviada onde digito a data do documento


Estou com duvida em como fazer para juntar essas duas expressões?

Ou seja, tenho os dados abaixo em um form para filtrar e me retornar o registro:

Unimed - 01/01/2014
Unimed - 01/02/2014
Unimed - 01/03/2014

Ex: se eu digitar no textBox Unimed ele me retorna os registros e se eu filtrar a Data 01/02/2014, ele me retorna Unimed - 01/02/2014.

Up.

Up!

Consegui resolver adaptando desta forma:

Dim parteNome As String
Dim parteCidade As String
Dim parteEstado As String

parteCidade = Me.Texto44.Text
If parteCidade <> "" Then
Me.Form.Filter = " txtConvenio like '" & parteCidade & "'"
Me.Form.FilterOn = True Or _
Me.Form.Filter = " txtConvenio like '*" & parteCidade & "'"
Me.Form.FilterOn = True Or _
Me.Form.Filter = " txtConvenio like '*" & parteCidade & "'"
Me.Form.FilterOn = True
Else
Me.Form.FilterOn = False
End If