[Resolvido]Multiplos filtros ao clicar em um botão ## Formulário contínuo##

Prezados boa tarde a todos.

Tenho os seguintes campos.

DI - data inicial.
DF- data final.

DenOculta - Caixa de texto.
POculta - Caixa de texto.
MudaStatusOculta - caixa de texto
***Em vermelho são caixas de texto que recebem os valores vindo de combobox

Abaixo, as tentativas frustradas e fracassadas de filtragem.

Private Sub bt_Pesquisa_Click()
Me.FilterOn = False
Dim Filtro$  
Filtro$ = "DentistaOculta like '*" & Me!DenOculta & "*' AND StatusOculta like '*" & Me!MudaStatusOculta & "*'  AND PlanoOculta like '*" & Me.POculta & "*' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"


'Filtro$ = "[DentistaOculta] = '" & Me.DenOculta & "' AND [StatusOculta] = '" & Me.MudaStatusOculta & "'  AND [PlanoOculta] = '" & Me.POculta & "' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

Me.Filter = Filtro$
Me.FilterOn = True
Me.DataAtendimento.BackColor = RGB(192, 230, 212)
Me.Requery

End Sub


Se algum dos colegas puderem me ajudar...agradeço.

Abraços a todos.

Olá Silvio, qual o erro apresentado???

Da forma como está, todos os Campos devem ser preenchidos...


Obs: Por coincidência, estou preparando uma Vídeo Aula sobre esse Assunto, se tudo ocorrer bem estará disponível no Fórum no Fim de semana!

olá,
Feliz 2018 a todos

Silvio, tente desmembrar desta forma

Código:

Dim strFiltro As String   
           
 strFiltro = "DataDaEmissao Between #" & Format(Me.cboDataInicial, "mm/dd/yyyy") & "# And #" & Format(Me.cboDataFinal, "mm/dd/yyyy") & "#"
           
If Not IsNull(Me.txtNomeCartao) Then strFiltro = strFiltro & " And NomeCartao LIKE '*" & Me.txtNomeCartao & "*'"
If Not IsNull(Me.txtTipoTranzacao) Then strFiltro = strFiltro & " And TipoTranzacao LIKE '*" & Me.txtTipoTranzacao & "*'"
If Not IsNull(Me.txtNomeBanco) Then strFiltro = strFiltro & " And CodBanco LIKE '*" & Me.txtNomeBanco & "*'"
                       
Me.Filter = strFiltro
Me.FilterOn = True
Me.Requery

Abraços

Boa tarde...

Vamos testar...vamos testar...

[ ] 's

Olá a todos,

Silvio, vou considerar que a dúvida está no filtro na instrução não comentada, teste assim:

Código:

filtro$ = "[DentistaOculta] like '*'" & Me!DenOculta & "'*' AND [StatusOculta] like '*'" & Me!MudaStatusOculta & "'*'  AND [PlanoOculta] like '*'" & Me.POculta & "'*' AND [Dataatendimento]  between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

Abraço a todos

Resolvido, mensagem 5

Olá a todos,

Silvio, obrigado pelo retorno.
O fórum agradece.

Abraço