MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Funções Criadas no Access

    avatar
    fapessis
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 21/01/2019

    [Resolvido]Funções Criadas no Access Empty [Resolvido]Funções Criadas no Access

    Mensagem  fapessis 21/5/2019, 13:48

    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
    avatar
    fapessis
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 21/01/2019

    [Resolvido]Funções Criadas no Access Empty Re: [Resolvido]Funções Criadas no Access

    Mensagem  fapessis 21/5/2019, 13:52

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Funções Criadas no Access Empty Re: [Resolvido]Funções Criadas no Access

    Mensagem  ahteixeira 21/5/2019, 14:36

    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


    Última edição por ahteixeira em 21/5/2019, 15:55, editado 1 vez(es) (Motivo da edição : Erro no código da segunda sugestão)
    avatar
    fapessis
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 21/01/2019

    [Resolvido]Funções Criadas no Access Empty Funções Criadas no Access

    Mensagem  fapessis 21/5/2019, 15:49

    Deu certo ahteixeira!!!

    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Funções Criadas no Access Empty Re: [Resolvido]Funções Criadas no Access

    Mensagem  ahteixeira 21/5/2019, 15:54

    Olá Fábio Assis,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 1/8/2021, 11:33