[Resolvido]Consulta parâmetro nome do cliente

Olá, criei uma consulta parâmetro para buscar clientes atavés do nome ( Como "*" & [ Digite o nome do cliente ] & "*"), só que gostaria que a consulta trouxesse todos os clientes cadastrados com acento gráfico ou não. Exemplo: eu quero buscar João, só que eu não sei se foi cadastrado João ou Joao. então gostaria que digitando Joao, sem acento retornasse todos os cadastrados João e Joao. Deu pra entender? Grata

Um forma seria você usar uma combo, em um formulário para a pesquisa. E passar como parâmetro na filtragem da consulta.
Algo assim:

No critério da consulta:

Forms!NomeFormulárioPesquisa!NomeCboPesquisa

Na origem da linha da cbo:

SELEC NomeCliente FROM NomeTabelaCliente

Olá, seja bem vinda ao forum. Uma ideia pode ser utilizando o Substituir para tirar acentos e cedilhas quando for escrito com ou colocar quando for escrito sem:

Código:

Como "*" & [ Digite o nome do cliente ] & "*" Ou Como "*" & Substituir([ Digite o nome do cliente ];"ã";"a") & "*" Ou Como "*" & Substituir([ Digite o nome do cliente ];"a";"ã") & "*"

Para cada possibilidade de acentuação, você coloca um Substituir a mais. Por exemplo, para contemplar o "ã" e o "á":

Código:

Como "*" & [ Digite o nome do cliente ] & "*" Ou Como "*" & Substituir(Substituir([ Digite o nome do cliente ];"ã";"a");"á";"a") & "*" Ou Como "*" & Substituir(Substituir([ Digite o nome do cliente ];"a";"ã");"a";"á") & "*"

Escrevemos juntos Marcelo. Como a ideia da amiga é que seja retornado tanto os nomes com acentos como tambem os nomes sem acento, acredito que com o Replace atende melhor porque retorna os dois ao mesmo tempo, concordas ou não?

Sim claro. Você respondeu a dúvida dela exatamente como ela quer. Eu fiz outro caminho...

Mas é porque vi um outro post dela, e da maneira que eu disse, serviria para a solução do outro também (pois acho que estão relacionados)...


http://maximoaccess.forumeiros.com/t7183-consulta-parametro-nao-retorna-valores

fiz algumas alterações, mas não funcionou, vcs conseguem ver qual foi o erro?

Como "*" & [ Digite o nome do cliente ] & "*" Ou Como "*" & Substituir(Substituir(Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir ([ Digite o nome do cliente ];"ã";"a");"á";"a");"à";"a");"â";"a");"é";"e");"è";"e");"ê";"e");"í";"i");"ì";"i");"ò";"o");"ó";"o");"ô";"o");"õ";"o");"ú";"u");"ù";"u") & "*" Ou Como "*" & Substituir(Substituir(Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir (Substituir ([ Digite o nome do cliente ]; "a";"ã");"a";"á");"a";"à");"a";"â");"e";"é");"e";"è");"e";"ê");"i";"í");"i";"ì");"o";"ò");"o";"ó");"o";"ô");"o";"õ");"u";"ú");"u";"ù") & "*"

Nossa, que doidera! (risos)

Sugiro criar um campo Virtual na consulta, aonde vc usa uma função para tirar os acentos.

Baixe a função "Desacentua" deste artigo, no meu site. Copie para um módulo global

http://www.usandoaccess.com.br/tutoriais/tuto20.asp

crie então um campo na consulta, que servirá apenas para filtragem:


Algo assim:


Cliente2: desancentua([cliente])

e então usa o LIKE no critério deste campo:

como "*" & [Nome do cliente - não use acentuação] & "*"

Ao consultar retornará os clientes com e sem acento

Sucesso!

Olá Aneju!

Com permissão aos companheiros que tanto me ajudaram!

Crie um módulo novo!

E cole esse código:

Public Function TodosAcentos(pstrPlain As String) As String

Const cAlphabet _
= "aáàâäãå¦" _
& "cç¦" _
& "dð¦" _
& "eéèêë¦" _
& "f?¦" _
& "iíìîï¦" _
& "nñ¦" _
& "oóòôöõø¦" _
& "saߦ" _
& "uúùûü¦" _
& "yýÿ¦" _
& "z~"

Dim strAcc() As String
Dim strLike As String
Dim intN As Integer
Dim strP As Integer
Dim strC As String

strAcc = Split(cAlphabet, "¦")
For strP = 1 To Len(pstrPlain)
strC = Mid$(pstrPlain, strP, 1)
For intN = LBound(strAcc) To UBound(strAcc)
If InStr(strAcc(intN), strC) = 1 Then
strC = "[" & strAcc(intN) & "]"
Exit For
End If
Next intN
strLike = strLike & strC
Next strP

TodosAcentos = strLike

End Function





Use esse clitério na consulta:

Como TodosAcentos("*" & [Digite o nome] & "*")

vai que funciona!

Segue um exemplo:

http://speedy.sh/dVQB9/PESQUISAESPECIAL.zip

veja os critérios:

Você está usando esse critério:

( Como "*" & [ Digite o nome do cliente ] & "*")




Substitua por:

Como todosacentos("*" & [Digite o nome do cliente] & "*")

retorna: joão ou joao em qualquer parte do campo.Ex: joão Batista ou Batista joao.



Como todosacentos([Digite o nome do cliente] & "*")

retorna: joao ou joão no inicio do campo. Ex: João Batista ou joao Batista



No seu caso seria esse último critério.

Como todosacentos([Digite o nome do cliente] & "*")


Não se esqueça do modulo é só copiar!

OBRIGADUUUUUUUUUUU! Vc merece um cheirooooo. Obrigada. Funcionou perfeitamente.

Obrigado pelo retorno!

O forum agradece.

Se precisar estamos todos aqui no mesmo intuíto de
aprender e transmitir o que sabemos.