[Resolvido]Botão retira acento

Boa noite
Estou tentando usar uma função do amigo JPaulo para retirar acentuação, mas quando clico no botão dá uma mensagem de erro
Erro de Compilação
'Sub' ou 'Function'não definida
Se alguém poder me ajudar
a função é a seguinte

Private Sub btRetira_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

Olá Roxo,

Você tem a função DLTiraAcentos no seu bd???


Nivaldo.

Grande Amigo Nivaldo, sempre me socorrendo
Grande abraço

Não, não tenho
Onde coloco esta função, e de que maneira?

Roxo

Roxo,

A função que o JPaulo desenvolveu é essa:

Public Function DLTiraAcentos(ByVal strOriginal As String)
'By JPaulo @ 2009
Dim strToReturn As String
strToReturn = ""

Dim I As Integer
For I = 1 To Len(strOriginal)
strToReturn = strToReturn & DLTiraAcentos_GetCorrectChar(Mid$(strOriginal, I, 1))
Next I

DLTiraAcentos = strToReturn

End Function
Public Function DLTiraAcentos_GetCorrectChar(ByVal strChar As String) As String
Dim LetrasComAcentos As String
Dim LetrasSemAcentos As String
LetrasComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
LetrasSemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
Dim I As Integer
For I = 1 To Len(LetrasComAcentos)
If strChar = Mid$(LetrasComAcentos, I, 1) Then
DLTiraAcentos_GetCorrectChar = Mid$(LetrasSemAcentos, I, 1)
Exit Function
End If
Next

DLTiraAcentos_GetCorrectChar = strChar
End Function


Você pode colocar ela no seu formulário ou em módulo.

Um abraço e bom trabalho.


Nivaldo.

Nivaldo, desculpa o desconhecimento
Onde devo colocar no formulario?
Modo designer, dois cliques no canto superior esquerdo e coloco onde
ao entrar, após atualizar ou qual
Não sei o local correto

Roxo

Nivaldo
Já que estou abusando dos teus conhecimentos, vou pedir mais um pouquinho
Se
Este código converte para maiúscula ao digitar:

Private Sub MeuCampo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Qual código converte para minuscula ao digitar, quero utilizar no campo e-mail e site.
Procurei aqui no site, só achei esta para maiúscula.
Nota, gostaria que ao digitar fique minuscula, e não ao sair do campo ou ao atualizar

Roxo

Bom dia Roxo.

Vamos lá:

Você pode colocar a função no mesmo local que você descreveu o código da mensagem nº 1. Se você for usar em vários formulários você pode criar um novo módulo e colar a função nesse módulo.

Quanto a conversão para minúscula use o LCase.

Nivaldo.

Olá a todos;

Para que não se esqueçam;

http://maximoaccess.forumeiros.com/t581-funcoes-esquecidas-no-ms-access

Nivaldo, boa noite;
O LCase está funfando blz, obrigado pela dica

O comando tira acento estou tentando. Tenho uma dúvida, este comando retira os acentos dos registros ao clicar em um botão, tem como fazer para ser igual ao UCase e LCase, ou seja, ao digitar já trocar as letras com acentos por letras sem acentos, ou se não for possível, então colocar este código do JPaulo de uma forma que seja automático, sem a necessidade da interferência do usuário, ao salvar o registro ou coisa parecida.

Grande Abraço

Roxo

Boa noite a todos,

Valeu pelo lembrete JPaulo. Muito bom as dicas.

Roxo,

Pegando uma dica do JPaulo que ajudou nosso amigo Assis, coloca isso no evento Ao Apertar Tecla do teu campo no formulário:

'Combinação do KeyCode para CarateresEspeciais "~´`^<>#$%&?¿,.:;@-\+-=()*/''"

If KeyCode >= 186 And KeyCode <= 222 Then
KeyCode = 0
Else
Exit Sub
End If


A função tira todos os acentos, se tiver alguma dúvida é só gritar.


Nivaldo.

Nivaldo
Muito Obrigado
Está funcionando perfeitamente, da maneira que imaginava.
Valeu pela paciência comigo
Grande abraço

JPaulo
Valeu
Obrigado

Roxo

Obrigado pelo retorno o fórum agradece.

Roxo,

Desculpe a demora em responder (pequeno contratempo) e obrigado pelo retorno.

Fico feliz por ter contribuido.

Nivaldo.