[Resolvido]Corrigir parte de texto em campo de tabela

Solicito ajuda para a criação de uma rotina que altere dados de um campo em uma tabela.

O processamento de cada pedido do cliente atualiza o seu cadastro nos campos “telefone”, “contato (pessoa)” e “e-mail”.

Esse último campo tem me causado muitas dores de cabeça, porque quando tento enviar uma mensagem para a empresa, a mesma é devolvida por erro de endereçamento.

Os erros mais comuns são: XXXXX@hotmail.com.br (quando na verdade não existe o “.br”) XXXX@yahooo.com.br (a palavra Yahoo com três letras “o”) e assim por diante.

O que tenho feito até hoje: periodicamente abro a tabela, seleciono o campo “e-mail” e utilizo manualmente a função “localizar/substituir” e faço as correções necessárias.

O que desejo é automatizar essa tarefa. Seria criada uma tabela “corrigir_email” que teria 2 campos: “email_errado” e “email_certo”.

A ajuda que preciso é criar uma rotina que, à exemplo da função “localizar/substituir”, corrigisse a informação.

Exemplo:

Email_errado / Email_certo
@yahooo / @yahoo
@hotmail.com.br / @hotmail.com

Qualquer endereço de email que contivesse a palavra yahooo (errada) teria apenas a palavra errada substituída pela palavra certa Yahoo, sendo mantido o restante do endereço de email. Solução semelhante para o hotmail.com.br que teria apenas esse trecho substituido pelo hotmail.com (sem o .br)

Através da consulta do fórum eu vi uma solução do JPAULO que substitui integralmente um campo errado por um campo certo, mas não vi como substituir parte de um campo errado (parte do texto errado) por texto certo.

Aguardo e agradeço sugestões.

Complementando...

O campo onde o dado deverá ser corrigido é EMAIL na tabela CAD_CLIENTE.

Os campos onde deverá ser buscada a informação para localizar substituir são: EMAIL_ERRADO e EMAIL_CERTO da tabela CORRIGIR_EMAIL.

Tente a rotina abaixo, não antes de fazer um backup do banco de dados:

Código:

Dim rs As RecordSet
Set rs = CurrentDb.OpenRecordset("CORRIGIR_EMAIL")

Do While Not rs.EOF
    CurrentDb.Execute "UPDATE CAD_CLIENTE SET EMAIL = Replace([EMAIL], '" & rs!EMAIL_ERRADO & "', '" & rs!EMAIL_CERTO & "')"
    rs.MoveNext
Loop

rs.Close

Grato. Problema resolvido. Desculpe pela demora em informar que já havia resolvido. Foi um esquecimento imperdoável.