[Resolvido]Retira acentos

Prezado JPaulo

estou querendo usar a função "Tira_Acentos", por você criada, a qual coletei no tópico http://maximoaccess.forumeiros.com/t2318-resolvidoretira-acentos (um tópico do colega Assis), mas estou com a dificuldade a seguir:

a função está funcionando legal, inclusive sem maiuscular a letra que estava acentuada. Estou testando-a em uma cx combinação na qual uso o código a seguir(para evitar digitação da sigla da unidade da federação errada):
Me.UfCidade = Me.Cidade.Column(1)
então, quando é retirado o acento do nome da cidade a sigla da UF não é colocada automaticamente, pois, para o código em azul funcionar, é necessário que a palavra esteja acentuada, uma vez que ela continua com acento na tabela.

Então, pergunto a você se há algum código que contorne este entrave ou que faça retirar os acentos, de uma só vez, pois são muitos (5564), dos nomes constantes na tabela. Ou, então, alguma outra sugestão.
Desde já agradeço.

Prezado JPaulo.

Agradeço, mas conseguir solucionar a dificuldade. Mudei a posição do código citdado em azul, inserindo-o antes da chamada da função Tira_Acento.

Mas,

me surgiu uma outro entrave na mesma função. Como fazer ou se há como, para utilizar a função "Tira_Acento" ao clicar em um botâo "localizar" criado ou no botão localizar padrão do Access (binóculo da barra de ferramentas). O motivo é que se mandar localizar uma palavra e acentuá-la, a mesma não sera localizada.
Agradeço

Último post respondido através de MP.
A dúvida quanto ao post de 29/03/2012, continua. Se alguém tiver alguma sugestão, estou no aguardo.

Se você pretende retirar toda a acentuação da tabela, é o simples:

No evento ao pressionar de um botão;

Private Sub SeuBotão_Click()
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("Select * from SuaTabela")
    
    Do While Not rst.EOF
                rst.Edit
                rst.Fields(1).Value = DLTiraAcentos(rst.Fields(1).Value)
                rst.Fields(2).Value = DLTiraAcentos(rst.Fields(2).Value)
                rst.Fields(3).Value = DLTiraAcentos(rst.Fields(3).Value)
                rst.Fields(4).Value = DLTiraAcentos(rst.Fields(4).Value)
                rst.Update
            rst.MoveNext
        Loop
  rst.Close
End Sub

E ae, funfou ?

Qualquer coisa reabra o tópico.

Colega,
não funfou.

O que estou precisando é adaptar a sua função para funcionar com o botão procurar na tabela o nome da maneira que for digitado. P. ex. se digitar abaeté ou abaete(sem acento) ou digitar açucena ou acucena(sem o C cedilha) ele localiza.
No código que você sugeriu, eu entendi que que nos código abaixo o numeral entre parentesis seria o nome dos campos, correto?

rst.Fields(1).Value = LTiraAcentos(rst.Fields(1).Value)
rst.Fields(2).Value = DLTiraAcentos(rst.Fields(2).Value)
rst.Fields(3).Value = DLTiraAcentos(rst.Fields(3).Value)
rst.Fields(4).Value = DLTiraAcentos(rst.Fields(4).Value)

Como no meu caso seria apenas em um campo, utilizei da seguinte forma:

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Select * from Tbl_Geral")

Do While Not rst.EOF
rst.Edit
rst.Fields(CidadeResidencial).Value = DLTiraAcentos(rst.Fields(CidadeResidencial).Value)
rst.Update
rst.MoveNext
Loop
rst.Close
End Sub
Mas não funcionou. A título de informação, a função DLTira_Acentos está legal e implementada no projeto. Após utilizar o código por você sugerido (em azul), a procura passou a localizar somente palavras sem acento e sem o código somente com acento.

Estou utilizando o botão padrão de localizar do access cujo código é o a seguir

Private Sub Comando827_Click()
On Error GoTo Err_Comando827_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Comando827_Click:
Exit Sub

Err_Comando827_Click:
MsgBox Err.Description
Resume Exit_Comando827_Click

End Sub

então,o que eu pretendia era adaptar a sua função DLTira_Acentos neste código para que ao clicar no botão para localizar ocorresse alocalização independente da forma grafada da palavra, a exemplo do que ocorre na busca do site da Embratel (http://www.embratel.com.br/Embratel02/cda/portal/0,2997,RE_P_365,00.html).
No aguardo, agradeço.

Pelo teste que fiz aqui, retira toda a acentuação da tabela.

Como você não fez como lhe passei, contando as colunas, o nome do campo em questão tem de estar entre aspas;


Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Select * from Tbl_Geral")

Do While Not rst.EOF
rst.Edit
rst.Fields("CidadeResidencial").Value = DLTiraAcentos(rst.Fields("CidadeResidencial").Value)
rst.Update
rst.MoveNext
Loop
rst.Close

Para evitar erros de digitação dos nomes dos campos, é que eu prefiro pelo numero da coluna na tabela.

Ah! Ok.
Então os números entre parentesis se referiam as colunas da tabela. Desculpe-me pela ignorância.

Vou testar mais tarde e posto o resultado.

Obrigado.

Prezado,

não funfou.

Coloquei-a no evento "click" do botão, mas ao clicar retorna o erro em tempo de execução "94", uso de "Null" inválido.
Linha em destaque na página de código quando do erro:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * from Tbl_Geral")
Do While Not rst.EOF
rst.Edit
rst.Fields("CidadeResidencial").Value = DLTiraAcentos(rst.Fields("CidadeResidencial").Value)
rst.Update
rst.MoveNext
Loop
rst.Close
End sub
Não sei se fiz correto, mas colquei esse seu código no lugar do código padrão de botão localizar registro do access. É isto mesmo?
Agradeço
Esqueci de postar (não sei se altera), o campo "cidaderesidencial" (que é uma caixa de combinação) está em uma tabela e a origem da linha em outra tabela.

teste por favor;


Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * from Tbl_Geral")
Do While Not rst.EOF
If IsNull(rst.Fields("CidadeResidencial").Value) Then
rst.MoveNext
Else
rst.Edit
rst.Fields("CidadeResidencial").Value = DLTiraAcentos(rst.Fields("CidadeResidencial").Value)
rst.Update
rst.MoveNext
End If
Loop
rst.Close

Prezado,

fiz o teste e nada ocorreu. Nem sequer abriu a janela de localizar/substituir para que se digite o nome da cidade que se deseja localizar.
Penso que o melhor seria eu colocar uma mensagem no botão localizar solicitando que o usuário digite a palavra sem acentos na janela localizar/substituir e usar a função DLTiraAcentos como já está sendo usada. Ou vice e versa. Ou seja, retira-se a função e o usuário digite a palavra como ela é grafada corretamente.
O que eu pretendia era que o usuário pudesse digitar a palavra de qualquer modo (sem acentos ou com acentos) e a mesma fosse localizada, como ocorre no site da Embratel no endereço aqui já postado.
De qualquer forma, lhe agradeço e caso tenha mais alguma outra sugestão, continuo no aguardo.

Quanto ao localizar não sei.

Quanto ao problema de remover toda a acentuação, fica aqui um exemplo.

http://dl.dropbox.com/u/771097/OLDRIVG.rar

Tópico resolvido por agora.