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]Operação com conteúdo em textbox

    Compartilhe

    Ferracine
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 09/02/2017

    [Resolvido]Operação com conteúdo em textbox

    Mensagem  Ferracine em 12/5/2018, 15:57

    Olá amigos!

    Procurei algo mais simples para resolver esse caso mas nada que me atendesse, por isso peço a ajuda de vocês.

    Tenho uma rotina de busca de cep que as vezes me traz alguns resultados inesperados, como por exemplo o endereço abaixo:

    Rua: Rua Antonio Mendes Canale %28Pioneiros%29
    Bairro: Pioneiros%A0


    Vejam o correto:

    Rua: Rua Antonio Mendes Canale
    Bairro: Pioneiros


    Notem que o conteúdo antes do caracter "%" fica correto, pretendo criar uma função para corrigir quando houver esses casos.
    Em resumo gostaria que o VBA apagasse todo o conteúdo a partir do caracter "%".

    Agradeço de antemão quem puder dar uma força!

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 76
    Registrado : 27/10/2013

    Re: [Resolvido]Operação com conteúdo em textbox

    Mensagem  cpampas em 12/5/2018, 18:12

    ola,
    Tente assim

    Código:
    dim a as string
    a="Rua: Rua Antonio Mendes Canale %28Pioneiros%29"
    a=Left(a, InStr(a, "%") - 1)
    msgbox(a)

    Ferracine
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 09/02/2017

    Re: [Resolvido]Operação com conteúdo em textbox

    Mensagem  Ferracine em 13/5/2018, 00:29

    Perfeito cpampas!

    Muito obrigado.

    Aproveito para disponibilizar para os senhores uma rotina que na minha opinião, a mais rápida para busca de CEP através do access.
    Ele utiliza o server da republica virtual.
    Quem quiser dar mais uma "perfumada" da pra inserir rotinas pra verificar conexão com a internet e por aí vai...

    Espero que seja útil está bem simples.

    Abraços!
    Anexos
    BuscaCEP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 2 vez(es)

      Data/hora atual: 18/11/2018, 19:11