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]Excluir valores esquerda

    avatar
    cecel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 06/02/2024

    [Resolvido]Excluir valores esquerda Empty [Resolvido]Excluir valores esquerda

    Mensagem  cecel 14/6/2024, 11:21

    Bom dia.
    Srs. é possível fazer uma consulta e retirar os valores esquerda antes do primeiro espaço de uma tabela no access?

    tipo:  
    campo 1
    Campo2
    543 Avenida Avenida Santos Dumont 9232 SP - até 999/1000 Avenida Santos Dumont São Paulo
    13 Rua Rua Direita  191 9232 SP  Rua Direita São Paulo 3550308 Sé
    1019394 Rua Rua Quatro s/n 10551 RS  Rua Quatro s/n Vila Lângaro 4323358 Centro

    quero retirar na consulta os números antes do espaço

    ficariam assim:

    Campo2
    Avenida Avenida Santos Dumont 9232 SP - até 999/1000 Avenida Santos Dumont São Paulo
    Rua Rua Direita  191 9232 SP  Rua Direita São Paulo 3550308 Sé
    Rua Rua Quatro s/n 10551 RS  Rua Quatro s/n Vila Lângaro 4323358 Centro


    Última edição por cecel em 24/6/2024, 14:55, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir valores esquerda Empty Re: [Resolvido]Excluir valores esquerda

    Mensagem  Alvaro Teixeira 14/6/2024, 20:14

    Olá Anselmo,

    Pode criar uma funcão para o efeito assim:

    Código:
    Function fncDireitaEspaco(strTexto) As String
    ' Autor ..: Alvaro Teixeira (ahteixeira)
    ' Para ...: MaximoAccess.com
    ' Data ...: 14-06-2024

    Dim tam%, pos%, temp$

        tam = Len(strTexto & "")  'verifica tamanho do Texto a ser tratado
        If tam = 0 Then Exit Function  'se texto = 0 sai da funcao
        
        pos = InStr(strTexto, " ")   ' verifica posicao do espaco no texto
        fncDireitaEspaco = Right(strTexto, tam - pos)      'retira o texto a contar da direita do (tamanho total  menos a posicao)

    End Function

    Depois será fazer a chamada da função, por exemplo:
    Código:
    =fncDireitaEspaco("543 Avenida Avenida Santos Dumont 9232 SP - até 999/1000 Avenida Santos Dumont São Paulo")
    ou
    Código:
    =fncDireitaEspaco([CampoComMoradaParaProcessar])

    Abraço

      Data/hora atual: 8/11/2024, 16:07