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


5 participantes

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº1

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Qui 27 maio 2021, 12:13 am

    Boa noite meus amigos.
    Eu já tenho uma monte de nomes com acentos (João, Marlúcia ...)
    Estou pretendendo  dar replace nos campos do formulário, mas vai problema futuro.
    Tem possibilidade de tirar todo acento dos registro da tabela em através de código?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3495
    Registrado : 13/12/2016
    • Mensagem nº2

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Alexandre Fim Qui 27 maio 2021, 12:25 pm

    Crysostomo bom dia,

    Sim. É possível remover os acentos das palavras através de uma função.
    Mas vc também precisa tratar os dados para que não sejam gravados com acentuação.
    Se você utiliza somente o Access como banco de dados, não há problema em manter as palavras acentuadas, mas se migrar para outros bancos de dados (Ex.: MySQL), provavelmente você terá problemas, mas que é totalmente configurável nestes bancos (Propriedade "Collate" e "CHARSET" do database....mas ai é outra história...)

    Por gentileza, me manda um banco de dados com 1 tabela somente e eu desenvolvo esta rotina para você, e ai vc aplica às demais tabelas do seu banco.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Alvaro Teixeira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013
    • Mensagem nº3

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Alvaro Teixeira Qui 27 maio 2021, 1:33 pm

    Olá a todos,

    Exatamente como Alexandre indicou.
    Gilliard , esse tema já foi abordado diversas vezes no fórum, não se esqueça da "Pesquisa"
    https://www.maximoaccess.com/t2318-resolvidoretira-acentos

    Depois deve colocar no formulário que é feita a introdução dos dados a chamada da função.
    Pode ser no evento antes de atualizar.

    Se tiver dificuldades partilhe conforme colega Alexandre sugeriu.

    Abraço a todos
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº4

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Sex 28 maio 2021, 12:00 am

    Boa noite.
    Em anexo
    Teixeira eu realmente pesquiso, mas algumas coisas não consigo encontrar.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    Alvaro Teixeira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013
    • Mensagem nº5

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Alvaro Teixeira Sex 28 maio 2021, 4:52 pm

    Ola a todos,

    Faltou anexo, quanto a funcao ja indiquei um topico mas tem mais.

    Abraco
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº6

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Sex 28 maio 2021, 10:43 pm

    Boa noite. Também seria viável deixar e no campo pesquisasse com ou sem acento, mas o Like esta dando problema.
    Teixeira eu quero tirar de banco e não de formseu quero tirar do banco
    Eita Cara dei outro erro, criei tópico de tabela no tópicos de formulário.
    senha :gilliard**


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    Alvaro Teixeira
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013
    • Mensagem nº7

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Alvaro Teixeira Sáb 29 maio 2021, 8:27 pm

    Ola a todos,

    Olha para ignorar acentuacao:
    https://www.maximoaccess.com/t13366-resolvidodigitar-em-caixa-de-texto-do-access-e-fazer-o-mesmo-efeito-do-excel

    Quanto ao exemplo estou no celular, pode ser que algum colega verifique e o possa ajudar.

    Abraço
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº8

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Qui 16 Set 2021, 11:48 am

    Bom dia amigo, Reabri esse tópico pois na verdade eu não queria tirar acentos, somente fazer a busca independente do acentos.
    Mesmo com o like não consigo fazer a busca, idem
    Código:
    Como "*" & [Forms]![from_lista_de_busca]![txt_campo_pesquisa].[Text] & "*"
    São muitos cadastro e processos Adm e judicial cadastrado, seria legal a busca com ou sem acentos porque. Já fiz a busca pela ajuda de você é mesmo
    drive.google.com/file/d/1fKRnF7QE1lxyMbAIIz4Viaa0j8ICCfr-/view?usp=sharing


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº9

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  JPaulo Qui 16 Set 2021, 2:42 pm

    Mensagem Nº 10 deste tópico;

    https://www.maximoaccess.com/t16558-resolvidoconsulta-acentuacao-palavras

    Num módulo cole:

    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) <> 0 Then
                    strC = "[" & strAcc(intN) & "]"
                    Exit For
                End If
            Next intN
            strLike = strLike & strC
        Next strP
        
        TodosAcentos = strLike
    End Function

    Chame a função assim:

    Código:
    Like "*" & TodosAcentos([Forms]![from_lista_De_atualizacao]![txt_lista_de_usuario_para_atualizar].[Text] & "*")


    .................................................................................
    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

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº10

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Sex 17 Set 2021, 12:59 pm

    Bom dia, obg JP,desculpe-me, mas uma coisa muito simples que não consigo entender no momento no meio ao trabalho, é que a lista fica em branco só aparece quando digita


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº11

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Avelino Sampaio Sex 17 Set 2021, 1:20 pm

    Crysostomo

    veja neste meu artigo:

    (copie e cole o endereço abaixo no seu navegador)
    usandoaccess.com.br/dicas/filtrar-independente-acentuacoes-access.asp

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    crysostomo
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018
    • Mensagem nº12

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  crysostomo Sex 17 Set 2021, 1:38 pm

    Bom dia colegas obrigado.
    Tinha um simples problema em reparar no código
    que era colocar aspas no lugar errado.
    Like "*" & TodosAcentos([Forms]![from_lista_De_atualizacao]![txt_lista_de_usuario_para_atualizar].[Text])& "*"
    Like "*" & TodosAcentos([Forms]![from_lista_De_atualizacao]![txt_lista_de_usuario_para_atualizar].[Text] & "*")


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº13

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  JPaulo Sex 17 Set 2021, 3:45 pm

    Fico feliz por ter resolvido por aqui mesmo, sem necessidade de ir para fora do site.

    Obrigado pelo retorno o site agradece.


    .................................................................................
    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

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº14

    [Resolvido]Tirar todo acento que ja tem nos registros da tabela Empty Re: [Resolvido]Tirar todo acento que ja tem nos registros da tabela

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Sex 22 Nov 2024, 7:10 pm