MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Funções Criadas no Access

    avatar
    fapessis
    Novato
    Novato

    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 em 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 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 em 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 100%

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

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

    Mensagem  ahteixeira em 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) (Razão : Erro no código da segunda sugestão)
    avatar
    fapessis
    Novato
    Novato

    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 em 21/5/2019, 15:49

    Deu certo ahteixeira!!!

    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 21/5/2019, 15:54

    Olá Fábio Assis,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/7/2019, 13:39