[Resolvido]Funções Criadas no Access

Bom dia Pessoal

Criei uma função em um módulo no Access e estou tentando usar essa função nas minhas consultas VBA. No entanto, sempre que tento usar recebo a mensagem abaixo:


Função 'tiraAcento' indefinida na expressão.

Será que alguém consegue me ajudar ?

Desde já agradeço...

Segue a função abaixo:

Código:


Option Compare Database
Public Function ModTiraAcento(Palavra As String) As String
Dim texto As String
Dim Letra As String
CAcento = "???????????????????????????????????????????????"
SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
texto = ""
If Palavra <> "" Then
For X = 1 To Len(Palavra)
Letra = Mid(Palavra, X, 1)
Pos_Acento = InStr(CAcento, Letra)
If Pos_Acento > 0 Then
Letra = Mid(SAcento, Pos_Acento, 1)
End If
texto = texto & Letra
Next
TiraAcento = texto
End If
End Function

O nome da função é realmente ModTiraAcento.

Colei a mensagem de erro anterior à mudança de nome da função.

Segue a atual:

Função 'ModTiraAcento' indefinida na expressão.


A linha que está ????????????????????????????? São os caracteres com os acentos

Olá Fábio Assis, seja Bem-Vindo ao fórum.

Aparentemente está a faltar passar o parametro na chamada da função.
Por exemplo:

=ModTiraAcento("Olá")

ou

=ModTiraAcento([NomeDoCampoQueTemPalavrasComAcentos])

Abraço

Deu certo ahteixeira!!!

Obrigado.

Olá Fábio Assis,

Obrigado pelo retorno, o fórum agradece.

Abraço