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

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?

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

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

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

Ola a todos,

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

Abraco

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

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

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

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] & "*")

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

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] & "*")

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

Obrigado pelo retorno o site agradece.