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]Extrair apelido do nome completo

    Compartilhe
    avatar
    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 02/04/2013

    Extrair apelido do nome completo

    Mensagem  black_wolf em 2/4/2013, 15:10

    Boa tarde pessoal,

    Sou no novato e estou a apreender cada vez mais com a vossa ajuda.
    Mas estou com um problema em extrair somente o apelido de um campo nome completo. Já tentei várias formas, algumas delas resultam, mas não consigo que me extraia um nome completo com mais 3 palavras, como por exemplo:
    Exemplo1: António Manuel da Silva Fernandes de Albuquerque
    Quero que extraia: Albuquerque

    Exemplo2: António Manuel da Silva Fernandes de Albuquerque Sousa Oliveira
    Quero que extraia: Oliveira

    Utilizo o Access 2007

    Agradeço desde já a vossa ajuda,
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10231
    Registrado : 04/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  JPaulo em 2/4/2013, 16:08

    Ola;

    Se for numa consulta (query)

    Apelido: Right([SeuCampoNome]; Len([SeuCampoNome]) - InStrRev([SeuCampoNome]; " "))

    Se for por VBA;

    Me.SeuCampoApelido.Value = Right([SeuCampoNome], Len([SeuCampoNome]) - InStrRev([SeuCampoNome], " "))







    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 02/04/2013

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  black_wolf em 2/4/2013, 16:18

    Muito obrigado

    5*

    A bombar
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10231
    Registrado : 04/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  JPaulo em 2/4/2013, 16:22

    Obrigado pelo retorno o forum agradece.

    Desta vez eu coloco o Resolvido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3554
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  Assis em 26/1/2016, 15:43

    JPaulo

    E para dar o nome

    Exemplo - Carlos Alberto Sousa

    Devolver só - Carlos


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  ahteixeira em 26/1/2016, 16:00

    Olá Assis, troque no código:
    Onde tem Right por Left
    Onde tem InStrRev por InStr
    Abraço

    Dica acima incompleta, ver mensagem nº 8, faltou retirar a parte do "Len"


    Última edição por ahteixeira em 27/1/2016, 09:48, editado 1 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3554
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  Assis em 26/1/2016, 19:58

    Teixeira

    Não deu certo

    Queria que devolvesse só:

    Albina
    Armando

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  ahteixeira em 27/1/2016, 08:30

    Olá Assis, tem razão, para o primeiro nome fica assim:

    Se for numa consulta (query)

    PrimeiroNome: Left([SeuCampoNome]; InStr([SeuCampoNome]; " ")-1)

    Se for por VBA;

    Me.SeuCampoPrimeiroNome.Value = Left([SeuCampoNome], InStr([SeuCampoNome], " ")-1)


    Abaixo exemplo em consulta.
    Abraço
    Anexos
    Separa_nomes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 28 vez(es)


    Última edição por ahteixeira em 22/2/2016, 15:36, editado 2 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3554
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  Assis em 27/1/2016, 10:37

    Obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  ahteixeira em 27/1/2016, 11:21

    cheers
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3554
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  Assis em 20/2/2016, 21:39

    Boa noite Teixeira

    Repare que no exemplo da Mensagem Nº 8, o campo Primeiro Nome fica com um espaço depois do nome.

    Exemplo: Não se vê mas esta lá o espaço

    Assis_

    Como o retirar.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  ahteixeira em 21/2/2016, 23:00

    Olá Assis, tem razão.
    Rectificado na mensagem nº 8.
    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3554
    Registrado : 06/11/2009

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  Assis em 22/2/2016, 12:39

    Obrigado Teixeira.

    Estava a fazer influencia nas filtragens.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Extrair apelido do nome completo

    Mensagem  ahteixeira em 22/2/2016, 16:46

    Olá Assis, obrigado pelo Aviso e Retorno.
    Abraço

    agosfernandes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : França
    Mensagens : 6
    Registrado : 02/11/2016

    Campo calculado numa tabela

    Mensagem  agosfernandes em 9/2/2018, 18:57

    Viva,

    Estou a tentar utilizar este código (aqui sugerido) num campo calculdado de uma tabela:

    Right([SeuCampoNome]; Len([SeuCampoNome]) - InStrRev([SeuCampoNome]; " "))

    Infelizmente, o access nao aceita isto.

    A ideia é, independentemente do comprimento de um nome, extrair o ultimo nome na própria tabela.

    Alguém que possa ajudar_

    Obrigado

      Data/hora atual: 16/11/2018, 10:15