[Resolvido]Localiza e Filtra por varios parametros

Amigos do Maximo ,tenho uma tabela e precisava filtrar ao digitar em uma caixa de texto de um formulario por qualquer parametro dos campos escolhidos e o exemplo abaixo do Mestre Jpaulo me serve bem , porem quando tento adapta lo para mais de uma tabela encontro dificuldade pois da erro 3075.
Tabela em uso dando certo CAD
Gostaria de acrescentar as tabelas FINANCEIRO E ATENDIMENTO

Teria que modificar o codigo para funcionar?

Private Sub LocalizaFacil()
'By JPaulo ® Maximo Access
'pode pesquisar por uma ou mais letras, e para devolver todos os
'registro, basta digitar um asterisco * e bater Enter


'se a caixa de texto estiver vazia, termina o processo de filtragem
   If Me.Texto55 = "" Then Exit Sub

   Dim strSQL As String
   Dim strConta As Integer
'coloca a tabela pretendida no sql
   strSQL = "SELECT *FROM CAD "
'inicia o contador a zeros
   strConta = 0
'se a caixa de texto não estiver vazia, monta o sql
   If Not IsNull(Me.Texto55) Then
       strSQL = strSQL + " WHERE "

       Dim ctl As Control
       For Each ctl In Me.Controls
'percorre todas as caixas de texto do formulario
           If ctl.ControlType = acTextBox Then
'se os campos tiverem vinculados e não bloqueados continua a montar o sql para a pesquisa
               If Len(ctl.ControlSource) > 0 And ctl.Locked = False Then
                   If strConta > 0 Then strSQL = strSQL + " OR "
                       strSQL = strSQL + "(" + ctl.ControlSource + " Like '*' & """ + TodosAcentos(Me.Texto55) + """ & '*') "
'faz a soma dos registros encontrados
                       strConta = strConta + 1
               End If
           End If
       Next
   
   End If
'monta a origem do formulario para a pesquisa
Me.Form.RecordSource = strSQL
Me.Recalc
End Sub

strSQL = strSQL + " WHERE "
tente colocar desta forma:
strSQL = strSQL & " WHERE "

Bom dia,
Respeite as regras do fórum. (13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.)
Movi-lhe a dúvida para esta sala.

Bom dia .
Foi mal ,na pressa achei que tinha criado um topico Novo.


Rubens fiz a troca que me sugeriu mas continua com a mesma mensagem de erro

(Erro em tempo de execuçao 3075. Erro de sintaxe operador faltando na expressão de consulta)
(cpf2 LIKE '*' & ...e ai vai)

Anexe aqui parte do seu banco para eu ver isso.

O SQL tal como está, funciona em pleno, o erro 3075 é porque não existe algum campo.

O strSQL = strSQL + " WHERE " é assim mesmo que deve funcionar, não altere por favor, para &.

Boas JPaulo.

Ele funciona perfeito com uma tabela , mas quando tento juntar alguns campos de outra tabela como segue o exemplo ,ele da o erro .

* Não estou conseguindo anexar ,esta dando essa mensagem :

(Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb))

Anexe num site externo ou numa dropbox.

Se preferir envie para o meu email;

jpaulo65@gmail.com

Enviei no seu email.

ok, logo mais vejo isso para você.

Ae o bem dito;

Filtra automaticamente qualquer campo ao digitar;

http://dl.dropboxusercontent.com/u/771097/testando_OLD.zip

JPaulo, não consigo abrir o arquivo ,da (formato de banco de dados não reconhecido), uso o access 2007 , sera alguma incompatibilidade?

Veja se consegue abrir assim;

http://dl.dropboxusercontent.com/u/771097/testando_OLD%20%282%29.zip

Perfeito , JPaulo , funcionou muito bem .

Agradeço pela ajuda .

Obrigado pelo retorno o fórum agradece.