[Resolvido]Busca Conforme O Tipo de Busca Escolhido

Caros Amigos,


Lá venho eu, com mais dúvida. Tenho um formulário que faz busca segundo um critério que deve ser escolhido em 3 checkbox:

Uma por Assunto
Uma por numero do protocolo 1
Uma por numero do protocolo 2

Todas utilizando a mesma textbox, pelo assunto sem estresse.

Quando clico no protocolo 1, por exemplo eu pensei que enquanto a pessoa digita fosse mantida a máscara e fizesse a busca:

Exemplo: xxxxx/aaaa (mácara)

Fizesse assim ao digitar o numero 00215: 00215/____ e conseguisse fazer a busca mesmo sem o restante da operação, se resolver esse o outro se resolve.
Estou usando assim:


Dim C As String, X As String
X = Me.TxtProcuraProcesso.Text


If OpSPW.Value = 1 Then  'Número do Processo SProWeb'
Me.TxtProcuraProcesso = Format(TxtProcuraProcesso, "000\.00000\.0000")
C = " where NrPSProWeb like '*" & X & "*'"
Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


ElseIf OpSSP.Value = 1 Then  'Número do Processo SSP'
Me.TxtProcuraProcesso = Format(TxtProcuraProcesso, "00000/0000\->AAA")

C = " where NrPSSP like '*" & X & "*'"
Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


Else 'If OpAssuntoSSP.Value = 1 Then 'Pesquisa por Assunto

C = " where AssuntoProcessoSSP like '*" & X & "*'"
Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


End If


Nota: Já fiz com imputmask

Não seria mais fácil você usar direto na consulta?

Tipo:

Código:


Como "*"+[Forms]![SeuForm].[SeuCampoDePEsquisa] & "*"