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


3 participantes

    [Resolvido]VBA Extrair nome, apelido e nomes do meio

    avatar
    jhbf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 21/06/2016

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  jhbf 31/5/2023, 11:08

    Bom dia a todos,


    Decide economizar tempo na minha aplicação, fazendo a importação de nomes de clientes a partir de um ficheiro de Excel.
    Isso já tenho a funcionar.


    Agora tenho um problema.

    No relatório que tenho feito o nome do campo leva 30 caracteres no máximo.

    No ficheiro de excel os nomes que lá tenho, alguns tem mais de 30 caracteres.

    Estou a criar uma consulta que extrai-a do campo: o primeiro, último. Até aqui já consegui.

    Agora a dificuldade é os nomes do meio (como extrair do meio), mas que a soma do (primeiro + último + meio) não ultrapasse os 30 caracteres.



    Exemplo:


    Nome: Maria Eugénia do Carmo Mendonça Teixeira Fernandes - tem 50 caracteres

    Se mandar imprimir, vai cortar o nome e imprimir só 30 caracteres

    Extraindo:

    primeiro: Maria 5 carateres
    último: Fernandes 9 carateres

    30 - (5 + 9 + 2(espaços)) = 14

    ainda me sobram 14 caracteres para mostrar no relatório

    Vou buscar : Eugénia do Car


    retirando o do : Eugénia Carmo


    Nome final a guardar na DB para poder imprimir sem problemas:

    Mara Eugénia Carmo Fernandes


    Mendonça Teixeira não seriam guardados


    É possível fazer esta alteração utilizando VBA e guardar o novo nome para outro campo?

    Obrigado.
    Jorge
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  Marcelo David 31/5/2023, 20:28

    Boa tarde Jorge,
    gostei do desafio Very Happy

    Criei uma função que retorna o que pretende e publiquei no repositório de exemplo.

    Link aqui: https://www.maximoaccess.com/t42093-remove-os-nomes-do-meio-preservando-os-primeiros-e-o-ultimo-nome#285176

    Veja se é isso que precisa por gentileza.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]VBA Extrair nome, apelido e nomes do meio Marcel11
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  Mylton 31/5/2023, 21:10

    Parabéns
    Será útil.

    Marcelo David gosta desta mensagem

    avatar
    jhbf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 21/06/2016

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  jhbf 31/5/2023, 22:09

    Olá Marcelo David!

    Muito obrigado pela sua ajuda e pela excelente função que criou.



    Entretanto surgiu um pequeno problema:

    Quem inseriu os nomes dos clientes num programa, colocou espaços no fim do nome.

    Significa que ao exportar para o ficheiro de Excel, vai no fim do nome um espaço ou mais, o que faz com que a função nesses casos não retorne o apelido corretamente.


    Exemplo:

    ("Marcelo Rocha Vascocelos Romero dos Santos Consta David ", 30)

    Retorna:

    "Marcelo Rocha Vascocelos "

    Com um espaço no fim do nome


    Dá para eliminar os espaços no fim do nome ao correr a função?



    Marcelo, volto a agradecer o excelente trabalho realizado.

    Muito Obrigado!
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  Marcelo David 1/6/2023, 00:23

    Realmente não tinha pensado nessa possibilidade.
    Atualizei a função. Agora ela elimina quaisquer espaços vazios, sejam no inicio, fim ou meio do nome.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]VBA Extrair nome, apelido e nomes do meio Marcel11
    avatar
    jhbf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 37
    Registrado : 21/06/2016

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  jhbf 1/6/2023, 08:23

    Bom dia,


    A função está Excelente Marcelo!

    Muito obrigado pela sua ajuda.


    De novo os meus parabéns a si e a todo este grupo de partilha de conhecimentos!

    Obrigado,

    Jorge

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  Marcelo David 1/6/2023, 08:26

    Fico feliz em ajudar, o Fórum agradece o retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]VBA Extrair nome, apelido e nomes do meio Marcel11

    Conteúdo patrocinado


    [Resolvido]VBA Extrair nome, apelido e nomes do meio Empty Re: [Resolvido]VBA Extrair nome, apelido e nomes do meio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2024, 08:00