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

    [Resolvido]Função Retornando String

    avatar
    castelhano.rafael
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 03/05/2016

    [Resolvido]Função Retornando String Empty [Resolvido]Função Retornando String

    Mensagem  castelhano.rafael 20/2/2019, 13:42

    Ola, criei uma função simples que faz alguns Replaces e retorna uma string, conforme segue:
    Código:

       sqlString = "SELECT OCORRENCIAS.*, TERCEIROS.* FROM OCORRENCIAS, TERCEIROS"
       Set RS = CurrentDb.OpenRecordset(sqlString)
       MsgBox AjustaCampos(txtMSG1, RS)
    End Sub

    Function AjustaCampos(texto, RS) As String
        textoAjustado = texto
        textoAjustado = Replace(textoAjustado, "[E.EMPRESA]", RS.Fields("Empresa"))
        textoAjustado = Replace(textoAjustado, "[E.CNPJ]", Format(RS.Fields("CNPJ"), "@@.@@@.@@@/@@@@-@@"))
        textoAjustado = Replace(textoAjustado, "[E.ENDERECO]", RS.Fields("SYS.Endereco"))
    End Function

    Meu problema está em retornar a variável textoAjustado, pelo que entendi o access não usa o Return, dentro da função AjustaCampos a variável textoAjustado está sendo exibida perfeitamente, porém ela não é retornada na chamada da função. Não apresenta nenhum erro, apenas mostra uma MsgBox vazia. No banco de dados este texto está armazenado como Memorando, o texto que estou tentando passar está com mais de 300 caracteres, não sei se pode ser por este o problema..

    --
    Descobri o problema, faltou apenas inserir AjustaCampos = textoAjustado no fim da função AjustaCampos..
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função Retornando String Empty Re: [Resolvido]Função Retornando String

    Mensagem  ahteixeira 21/2/2019, 11:24

    Olá Rafael,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 29/7/2021, 01:25