MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Pesquisa ignorando acento

    avatar
    alesaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/08/2015

    Pesquisa ignorando acento Empty Pesquisa ignorando acento

    Mensagem  alesaqua 14/8/2015, 14:07

    Olá, sou novo aqui, essa é minha primeira mensagem.
    Estou aprendendo a mexer no access agora, não entendo muito de vba.

    Fiz uma agenda telefônica, coloquei uma caixa de listagem e um botão de pesquisa,
    inseri um código para buscar pelas primeiras letras, blz, funciona legal,
    o problema são as palavras com acento, eu tenho José com acento e sem acento,
    quando eu busco José com acento o Jose sem acento não aparece.
    Teria alguma código para ignorar os acentos?
    Obrigado!


    Desculpe! Ainda não consegui resolver!
    Eu fiz como na mensagem nº10 desse tópico, mas não consegui resultado.

    Meu código:
    Option Compare Database
    Dim VarEspaco

    Private Sub Form_KeyPress(KeyAscii As Integer)

    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub

    Private Sub Horário_Automático_BeforeUpdate(Cancel As Integer)
    End Sub

    Private Sub Form_Timer()
    Me.txttempo.Requery
    End Sub


    Private Sub txt_pesquisa_Change()

    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    SendKeys "{F2}"
    End If
    End Sub


    Private Sub txt_pesquisa_LostFocus()
    Me.txt_pesquisa = ""

    End Sub


    Obs: Ele funciona blz, o problema é quando eu digito José na minha caixa txt_pesquisa,
    ela só me retorna os nomes com acento, o Jose sem acento ela não me retorna.

    Algume pode me ajudar? Estou usando o access 2007.

    É uma agenda simples....


    Última edição por alesaqua em 17/8/2015, 02:56, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Pesquisa ignorando acento Empty Re: Pesquisa ignorando acento

    Mensagem  JPaulo 14/8/2015, 15:38



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Pesquisa ignorando acento Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Pesquisa ignorando acento Folder_announce_new 102 Códigos VBA Gratuitos...
    Pesquisa ignorando acento Folder_announce_new Instruções SQL como utilizar...
    avatar
    alesaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 05/08/2015

    Pesquisa ignorando acento Empty Re: Pesquisa ignorando acento

    Mensagem  alesaqua 16/8/2015, 21:56

    Obrigado!
    Fiz o que me sugeriu, porem ainda não consegui resolver meu problema, não sei
    como implementar o código.

    Conteúdo patrocinado


    Pesquisa ignorando acento Empty Re: Pesquisa ignorando acento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2024, 11:37