[Resolvido]Filtro em Formulário

Bom Dezembro para todos !

Estou tentando aplicar um filtro em um formulário, mas estou me perdendo nas aspas (simples e/ou duplas )  
espero que alguém possa me ajudar , segue o código  . . .


Private Sub cmd_AplFiltro_Click()
   ' aplica filtro
   
   'Extrusor --------------------------------------------
   If IsNull(cbx_FilExtrusor.Value) Then
       txt_FiltrarExtrusor.Value = "*"
   Else
       txt_FiltrarExtrusor.Value = cbx_FilExtrusor.Value
   End If
   'Desenhista -----------------------------------------
   If IsNull(cbx_FilDesenhista.Value) Then
       txt_FiltrarDesenhista.Value = "*"
   Else
       txt_FiltrarDesenhista.Value = cbx_FilDesenhista.Value
   End If
   ' Desenho Aprovado Cliente -----------------------------
   If IsNull(txt_FilDesAprovCliente.Value) Then
       txt_FiltrarDesAprovCliente.Value = "*"
   Else
       txt_FiltrarDesAprovCliente.Value = txt_FilDesAprovCliente.Value
   End If
   'Status ----------------------------------------------
   If IsNull(cbx_FilStatus.Value) Then
       txt_FiltrarStatus.Value = "*"
   Else
       txt_FiltrarStatus.Value = cbx_FilStatus.Value
   End If

   DoCmd.ApplyFilter , "cliCNPJ Like '" & Me.txt_FiltrarExtrusor.Value _
   & "' and Desenhista Like '" & Me.txt_FiltrarDesenhista.Value _
   & "' and Des_Aprov_Cliente Like '" & Me.txt_FiltrarDesAprovCliente.Value & "' or Des_Aprov_Cliente Null and Status Like '" & Me.txt_FiltrarStatus.Value & "'"
   
   txt_ContaRegistrosFiltrados.Value = Me.Form.Recordset.RecordCount
   txt_ContaRegistrosFiltrados.Visible = True
   lbl_ContaRegistrosFiltrados.Visible = True
   cx_Caixa.Visible = True

End Sub


Erro em tempo de execução '3075'
Erro de sintaxe (operador faltando) na expressão de consulta 'cliCNPJ Like '43.822.366/0001-59' and Desenhista Like '*' and Des_Aprov_Cliente Like '*' or Des_Aprov_Cliente is null and Status Like '*"



Desde já , muito Obrigado !

Boa noite
Tente

Código:


DoCmd.ApplyFilter , "cliCNPJ Like '" & Me.txt_FiltrarExtrusor.Value  & "' and Desenhista Like '" & Me.txt_FiltrarDesenhista.Value _
  & "' and Des_Aprov_Cliente Like '" & Me.txt_FiltrarDesAprovCliente.Value & "' or IsNull(Des_Aprov_Cliente) and Status Like '" & Me.txt_FiltrarStatus.Value & "'"


Muito Obrigado Alexandre Neves.
O problema das ( aspas ) foi resolvido, agora o código ao menos roda !
Mas o resultado não é o esperado.

Este campo Des_Aprov_Cliente é um campo do tipo Data, estou utilizando "*" para mostrar TUDO ou "IsNull" para vazio. Mas o filtro insiste em mostrar somente Tudo e ignora o que é vazio !
Por ser do tipo Data, teria outra forma de indicar "tudo" ou "vazio" para o filtro ??

Desde já Agradeço.

Boa noite
Para isso, tente

Código:

DoCmd.ApplyFilter , "cliCNPJ Like '" & Me.txt_FiltrarExtrusor.Value  & "' and Desenhista Like '" & Me.txt_FiltrarDesenhista.Value _
   & "' and Des_Aprov_Cliente Like '" & Me.txt_FiltrarDesAprovCliente.Value & "' and Status Like '" & Me.txt_FiltrarStatus.Value & "'"

Senhor Alexandre Neves, aqui um filho de uma Madeirense , agradece muito a sua ajuda !

 Consegui resolver o problema !
 Na verdade a minha logica estava errada, eu estava querendo algo impossível, então mudei a logica do questionamento e deu certo, segue o código que funcionou como deveria ...
Separando entre Datas com valores e Datas vazias, o resultado atende a solicitação.

Código:

   If txt_FiltrarStatus.Value = "Pendente" Then
        DoCmd.ApplyFilter , "cliCNPJ Like '" & Me.txt_FiltrarExtrusor.Value & "' and Desenhista Like '" & Me.txt_FiltrarDesenhista.Value _
        & "' and Status Like '" & Me.txt_FiltrarStatus.Value & "'"
    Else
        DoCmd.ApplyFilter , "cliCNPJ Like '" & Me.txt_FiltrarExtrusor.Value & "' and Desenhista Like '" & Me.txt_FiltrarDesenhista.Value _
        & "' and Des_Aprov_Cliente Like '" & Me.txt_FiltrarDesAprovCliente.Value & "' and Status Like '" & Me.txt_FiltrarStatus.Value & "'"
    End If

 Muito obrigado a você e a todos pela ajuda !