MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Filtrar Ignorando caracteres

    avatar
    jowfs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 16/04/2012

    Filtrar Ignorando caracteres Empty Filtrar Ignorando caracteres

    Mensagem  jowfs em 24/1/2019, 10:51

    Olá pessoal, bom dia!

    Tenho um formulário  com um campo de pesquisa e nesse formulário tenho um subformulário com uma lista de clientes.
    O campo de busca está funcionando perfeitamente, porém, tenho alguns clientes que possuem caracteres especiais na razão social (Ex. A.B.C. do Brasil ou A B C do Brasil). Gostaria de poder digitar no campo de busca "ABC" (Sem espaços ou caracteres especiais) e que mesmo assim o sistema reconheça a empresa na busca. Tentei usar a função "Replace" no filtro, mas não funciona. Alguém consegue me ajudar?

    Estou colocando abaixo o código que está funcionando perfeitamente para busca via CNPJ e CPF, preciso de ajuda apenas na busca por Nome:

    Código:
    If Len(Me!BuscaDado.Text & "") = 0 Then
    ListagemMenuParceirosComerciais.Form.Filter = ""
    ListagemMenuParceirosComerciais.Form.FilterOn = False
    Else
    If BuscaMetodo = "CNPJ" Then
    filtro = "[ParceiroNIFCodigoRaiz] Like '*" & Replace(Replace(Replace(Replace(Mid(Me!BuscaDado.Text, 1, 8), ".", ""), "/", ""), "-", ""), " ", "") & "*'"
    ListagemMenuParceirosComerciais.Form.Filter = filtro
    ListagemMenuParceirosComerciais.Form.FilterOn = True
    ElseIf BuscaMetodo = "CPF" Then
    filtro = "[ParceiroNIFCodigoRaiz] Like'*" & Replace(Replace(Replace(Replace(Mid(Me!BuscaDado.Text, 1, 9), ".", ""), "/", ""), "-", ""), " ", "") & "*'"
    ListagemMenuParceirosComerciais.Form.Filter = filtro
    ListagemMenuParceirosComerciais.Form.FilterOn = True
    ElseIf BuscaMetodo = "Nome" Then
    filtro = "[ParceiroNomeCompleto] Like '*" & Me!BuscaDado.Text & "*'"
    ListagemMenuParceirosComerciais.Form.Filter = filtro
    ListagemMenuParceirosComerciais.Form.FilterOn = True
    End If
    End If
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 956
    Registrado : 23/01/2018

    Filtrar Ignorando caracteres Empty Re: Filtrar Ignorando caracteres

    Mensagem  crysostomo em 5/7/2019, 04:02

    Boa noite. para ignorar caracteres:

    Código:
    Private Sub nome do campo de busca_Change()
    Me!aqui sua lista.RowSource = "select  nome " & _
                              "from sua tabela" & _
                              "where strconv(nome, 2, 1049) like '*" & StrConv(Me!Aqui seu campo de busca.Text, 2, 1049) & "*' " & _
                              "order by nome;"

    aqui sua lista.Requery
    End Sub

    Para tirar pontos e traços , formate seu campo
    Código:
    Format([Seu campo CPF];"00000000000")


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 21/9/2019, 06:36