Filtrar, independente das acentuações
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Veja na imagem abaixo, a lista de clientes, aonde estão relacionados os nomes Luís, José e Cláudio(com e sem acento):
Agora, observe que ao digitar o nome "Jose" no campo de filtragem, retorna todos os nomes com José, independente de ter ou não o acento. No campo filtrar podemos também utilizar o acento (José).
Para ignorar os acentos em uma palavra ou frase, utilizamos a função strConv() do Access, conforme configuração abaixo:
strConv("aâàáäeëèéiïíîöôoòúuüû", 2, 1049) :::> aaaaaeeeeiiiioooouuuun
Observe o código de filtragem como é aplicado a função strConv() para a retirada dos acentos:
Private Sub txFiltro_Change()
Dim strSql As String
strSql = "SELECT idCliente, NomeCliente, Telefone FROM tblClientes WHERE " & _
"strConv(NomeCliente, 2, 1049) like '*" & StrConv(Me!txFiltro.Text, 2, 1049) & "*';"
Me!Lista.RowSource = strSql
End SubClique aqui e baixe o exemplo para você praticar.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Vídeo - SysControle - Controle de Usuarios
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
| Não há comentário |