Retirar acentuação de uma tabela preenchida

Bom dia.

Já procurei algo no fórum que me atendesse, mas não consegui ainda.
Tenho um BD, onde existem tabelas bastante carregadas de registros. Fica muito difícil retirar a acentuação na mão. Necessito de uma função que pudesse eliminar todos esses acentos dos registros da tabela, a uma, no estágio atual.
Alguém poderia me ajudar?

Grato.

Luciano

Bom dia,

Para conseguir este efeito, você precisará criar uma consulta atualização para que os acentos sejam removidos do campo da sua tabela

Cole este código em um módulo.

Código:

Public Function TiraAcento(Linha)
Dim ComAcento As String, SemAcento As String, C As Integer
ComAcento = "ãõáéíóúàèìòùäëïöüâêîôûçÃÕÁÉÍÓÚÀÈÌÒÙÄËÏÖÜÂÊÎÔÛǺª"
SemAcento = "aoaeiouaeiouaeiouaeioucAOAEIOUAEIOUAEIOUAEIOUCoa"
For C = 1 To Len(ComAcento)
Linha = Replace(Linha, Mid(ComAcento, C, 1), Mid(SemAcento, C, 1))
Next
TiraAcento = Linha
End Function

Crie a consulta atualização usando esta função ex: [NomeCliente] -----Atualizar para TiraAcento([NomeCliente])

Sds,