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

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ictsp 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!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ictsp 31/7/2019, 17:07

    Prezado ahteixeira,

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 31/7/2019, 18:51

    Olá Isaque,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:33