[Resolvido]Instrução Tira Acentos

Pessoal, utilizei o código disponibilizado nos repositórios pelo JPaulo para retirar os acentos.
Em todas os campos funcionou perfeitamente, mas em um deles - campo Local - não está funcionando. Mesmo tendo realizado o mesmo procedimento para o restante.
Já tentei de tudo o que minha capacidade permite e não solucionei.
Printei a tela de erro:


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


No evento vba depois de atualizar de cada campo é só colocar:

Private Sub Campo1_AfterUpdate()
Campo1.Value = DLTiraAcentos(Campo1.Value)
End Sub

amigo Veríssimo coloque este código no Evento ao sair do campo

On Error Resume Next
Me.seucampo= Replace(Replace(Replace(Me.seucampo, "á", "a"), "à", "a"), "ã", "a")
Me.seucampo= Replace(Replace(Me.seucampo, "é", "e"), "ê", "e")
Me.seucampo= Replace(Me.seucampo, "í", "i")
Me.seucampo= Replace(Replace(Replace(Me.seucampo, "ó", "o"), "ô", "o"), "õ", "o")
Me.seucampo= Replace(Me.seucampo, "ú", "u")
teste e me diz se funcionou
abraço Nogaro !

Não deu certo, Nogaro
O engraçado é que isso só acontece com este campo

boa tarde amigo Veríssimo, tem como postar parte de seu aplicativo para poder verificar porque acontece isso com este campo " Local"
abraço Nogaro !

Infelizmente possui dados de terceiros que não podem ser exibidos, então, apaguei todos e o envio sem registros.
Agradeço muito a disponibilidade em querer ajudar.

amigo Veríssimo, verifica qual é o formato deste campo "Local" se esta no mesmo formato dos outros campo que funcionam bem com o tira acentos , caso queira tire uma cópia do Aplicativo, limpe as tabelas retire os dados de terceiros e envie o aplicativo
nogaro !

Postei o exemplo.
Olhei as propriedades e em relação às demais caixas, aparentemente, não há diferença.

amigo Veríssimo, alterei seu aplicativo, verifica se esta como queria
no campo Local quando colocar palavras com acentuação ao sair do campo tira os acentos das palavras aguardo retorno,
Nogaro !

Perfeito Nogaro,

Somente inseri a última linha para transformar o "ç" em "C".

Muito obrigado

olá amigo Veríssimo, fico feliz de ter Resolvido seu aplicativo

O Fórum agradece o retorno
bons estudos, e um feliz Natal

Nogaro !