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

    Compartilhe
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  roberval em Seg 10 Ago 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 10 Ago 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:
    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    Abraço
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  roberval em Seg 10 Ago 2015, 17:52

    Cara.... Perfeito vlw mesmo!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 11 Ago 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

      Data/hora atual: Sab 21 Out 2017, 14:49