MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Remover caracteres consulta

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Remover caracteres  consulta Empty [Resolvido]Remover caracteres consulta

    Mensagem  ictsp em 31/7/2019, 16:19

    Prezados colegas,

    Estou tentando remover alguns caracteres de um campo da minha consulta: aspas duplas (Car(34)) e (Car(176))
    O  Car(34) está ok.

    RES: (Substituir([prod];(Car(34));""))

    Não consigo dar sequencia para remover Car(176).

    Desde já, agradeço a ajuda!!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Remover caracteres  consulta Empty Re: [Resolvido]Remover caracteres consulta

    Mensagem  ahteixeira em 31/7/2019, 17:00

    Olá Isaque,

    Crie um módulo novo e cole o código abaixo, depois grave como mod_carateres
    Código:
    Public Function fncLimpaChr(sCampo$) As String
    'ahteixeira 2019 para maximo
        If Len(sCampo & "") > 0 Then
            Dim sTmp$
            sTmp = sCampo
            sTmp = Replace(sTmp, Chr(34), "")
            sTmp = Replace(sTmp, Chr(176), "")
            fncLimpaChr = sTmp
        End If
    End Function

    Na sua consulta coloque assim:
    Código:
    RES: fncLimpaChr([prod])

    Nota, não testado, e no caso do chr(34) não sei como se vai comportar.

    Abraço
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 162
    Registrado : 02/09/2016

    [Resolvido]Remover caracteres  consulta Empty Re: [Resolvido]Remover caracteres consulta

    Mensagem  ictsp em 31/7/2019, 17:07

    Prezado ahteixeira,

    Muito obrigado por sua atenção e ajuda.
    Funcionou perfeitamente!!
    Abraço.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Remover caracteres  consulta Empty Re: [Resolvido]Remover caracteres consulta

    Mensagem  ahteixeira em 31/7/2019, 18:51

    Olá Isaque,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 21/10/2020, 10:59