[Resolvido]Filtrar usando LIKE

Prezados colegas, estou tentando fazer uma filtragem usando o LIKE para selecionar alguns registros , porém não estou tendo sucesso .
O código que estou utilizando é este:

Código:

strSQL = "SELECT EMPR,cod,cont,loc,data,ano FROM CADORÇ WHERE EMPR Like ('" & Me.teste.Text & "*')"


A idéia era localizar nomes com o mesmo início. Exemplo:Selecionei João, teria que localizar João Paulo, João José.....

Desde já, muito obrigado!!

Boa tarde,

tente assim:

Código:


strSQL = "SELECT EMPR,cod,cont,loc,data,ano FROM [CADORÇ] WHERE EMPR Like '*" & Me.teste.Text & "*';"



Boa tarde Carvalho!

Desde já, muito obrigado pelo retorno. Testei sua sugestão e funcionou parcialmente


seleciono o nome na combo da esquerda e a primeira parte aparece na textbox, para realizar a filtragem.

Com o seu código, ele filtrou, porém apareceu campos a mais. Gostaria que aparecesse só os destacados.

pelo que vejo em sua tabela, tem que ser filtrado por outro jeito, por exemplo, esse código que passei ele filtra o que contem, se o texto é "MAG" tudo o que tiver no campo com essa sigla ele vai puxar, mais se colocar o que começa com ele vai puxar outro texto também como "MAGFORTE". faça o teste com esse código mesmo tirando apenas o primeiro * do código ficando assim.

Código:



strSQL = "SELECT EMPR,cod,cont,loc,data,ano FROM [CADORÇ] WHERE EMPR Like '" & Me.teste.Text & "*';"




você vai entender o que estou tentando te dizer.

seria interessante ele filtrar pelo campo cod

Carvalho, você sabe como posso representar um espaço vazio nesse código? Tirando o primeiro asteristico funcionou bem. Mas creio que logo após '" & Me.teste.Text & "*';" no lugar do asteristico, deveria colocar um espaço. Já tentei aspas duplas mas não deu certo.

Tente assim:

Código:



'" & Me.teste.Text & " " & "*';"



Ficará assim "MAG "

Veja se dá certo.

Carvalho, ficou perfeito!

Muitissimo obrigado pela ajuda e paciência.

Valeu mesmo

Código:


Dim sqlr As String
sqlr = "SELECT EMPR,cod,cont,loc,data,ano FROM [CADORÇ] WHERE EMPR Like  '" & Me.teste.Text & " " & "*';"
a1.Form.RecordSource = sqlr
a1.Requery

o fórum agradece.