Pessoal, alguem sabe ou tem ideia de como posso fazer uma rotina que retire todos os acentos de um campo da minha tabela no access?!!?!?

A rotina pra tirar acento, acho q tem aqui no vbweb!!
Alguem tem ideia/!?!

 

abraços

'em um modulo
'Global vtexconv As Variant
Public Function removeacentos(texto As String) As String
    variavel = texto
   
    vpar = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
    vcod = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
    For C = 1 To Len(variavel)
        vpos = InStr(1, vpar, Mid(variavel, C, 1))
        If vpos <> 0 Then
            vtexconv = vtexconv + Mid(vcod, Val(vpos), 1)
        Else
            vtexconv = vtexconv + Mid(variavel, C, 1)
        End If
    Next
removeacentos = vtexconv
'exemplo de como chamar

'Call removeacentos(Text1)
'Text1 = vtexconv
End Function

Maxcim, entao essa rotina ai tira os acentos, mas como q faço pra ela alterar todos os registros da minha tabela q tenho no access?!?!?

Mas de um campo só....

 

exemplo, tirar todos os acentos do campo NOME da tabela Cliente...

entendeu?

 

abraços

Tenta assim:

 

'em ado sendo rs um recordset e Conexao uma ADODB.Connection

 

Dim Conexao as ADODB.Connection

Dim Rs as ADODB.Recordset

Dim sCampo as String

' Instancia os objetos e abre a conexao com o banco e a tabela...

 

 

rs.open "Select campo,ID from tabela", Conexao

 

do while not rs.eof

   conexao.execute "UPDATE Tabela SET CAMPO = '" & removeacentos( rs(0) & "") & "' WHERE ID = " & Rs(1)

   rs.movenext

loop

 

Qq dúvida é só postar...

 

t+

na minha tabela tenho dois campos Nome e Nome_Comum no campo Nome vai o nome da pessoa conforme se escreve e em nome comoum grava o nome sem acento...

na hora da pesquiza faço assim...

 

SELECT tbl_cliente.*
FROM tbl_cliente
WHERE ( ((tbl_cliente.nome) LIKE 'jose%') 
OR ((tbl_cliente.Nome_comum) LIKE 'jose%') )
ORDER BY tbl_cliente.nome,codigocli;

Ghost,

 

nao sei trabalhar com conexao ADODB.Conection....até me fugiu o nome do modo que vc trabalha e que eu trabalho.

O modo que sei fazer é assim:

Public BD As Database

Public TCtrc As Recordset

'Abre o Banco de Dados
Set BD = OpenDatabase("C:Documents and SettingsusuarioDesktopanco.mdb", False, False)
'Abre a Tabela Cidade do Banco de Dados
Set TCidade = BD.OpenRecordset("cidade", dbOpenTable)

 

entao nao sei como adaptar, pra fazer essa rotina para tirar os acentos de todos os registros de um campo de uma tabela....

vc pode me ajudar?

 

obrigado por enquanto.

Abraços