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]Normalização/formatação de moradas

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Normalização/formatação de moradas Empty [Resolvido]Normalização/formatação de moradas

    Mensagem  roberval 10/8/2015, 14:41

    Bom dia,
    Acredito que já tenha algo parecido no fórum, mas... acho que não custa nada perguntar...
    Bem, meu "problema" é o seguinte, o meu sistema é usado por varias pessoas, e isso muda o modo da escrita, no caso é o seguinte:

    O padrão que eu quero é o seguinte:  NomeDaRua, R/Av/Est
    Ex: Diego Calado, R
    .......^.........................^
    Nome da rua   |    Tipo de logradouro

    bem, espero que tenham entendido... Só mais um pequeno exemplo:

    quero transformar isso:
    Rua Diego Calado

    Nisso:
    Diego Calado, R


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    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]Normalização/formatação de moradas Empty Re: [Resolvido]Normalização/formatação de moradas

    Mensagem  Alvaro Teixeira 10/8/2015, 15:37

    Olá Mário, veja pequeno exemplo se atende o pretendido:
    Código:
    Option Compare Database

    'ahteixeira 2015 para MaximoAccess
    Function fncAjustaArteria(strArteria As String) As String
       
        If Left(strArteria, 3) = "Rua" Then fncAjustaArteria = Right(strArteria, Len(strArteria) - 3) & ", R"
        If Left(strArteria, 7) = "Avenida" Then fncAjustaArteria = Right(strArteria, Len(strArteria) - 7) & ", Av"
       
        fncAjustaArteria = Trim(fncAjustaArteria)
        Debug.Print Trim(fncAjustaArteria)

    End Function

    Pode testar na janela imediate, conforme abaixo:
    [Resolvido]Normalização/formatação de moradas 33ur2uv

    Se for o que pretende deverá melhorar o código e ajustar para os restantes tipos de artérias.

    Abraço
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Normalização/formatação de moradas Empty Re: [Resolvido]Normalização/formatação de moradas

    Mensagem  roberval 10/8/2015, 17:52

    Cara.... Perfeito vlw mesmo!


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    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]Normalização/formatação de moradas Empty Re: [Resolvido]Normalização/formatação de moradas

    Mensagem  Alvaro Teixeira 11/8/2015, 09:07

    Olá Mário, obrigado pelo retorno.
    Tomei a liberdade de ajustar o título do tópico de forma a ficar mais fácil a busca para outros utilizadores.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Normalização/formatação de moradas Empty Re: [Resolvido]Normalização/formatação de moradas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:25