MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Extrair apelido do nome completo

    black_wolf
    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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,
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Extrair apelido do nome completo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Extrair apelido do nome completo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Extrair apelido do nome completo Folder_announce_new Instruções SQL como utilizar...
    black_wolf
    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty Re: [Resolvido]Extrair apelido do nome completo

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

    Muito obrigado

    5*

    A bombar
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Extrair apelido do nome completo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Extrair apelido do nome completo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Extrair apelido do nome completo Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    [Resolvido]Extrair apelido do nome completo 98zoet


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

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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
    [Resolvido]Extrair apelido do nome completo AttachmentSepara_nomes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (13 Kb) Baixado 35 vez(es)


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

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty Re: [Resolvido]Extrair apelido do nome completo

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

    Obrigado Teixeira


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

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty Re: [Resolvido]Extrair apelido do nome completo

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

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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 ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty Re: [Resolvido]Extrair apelido do nome completo

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

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

    Respeito às Regras 100%

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

    [Resolvido]Extrair apelido do nome completo Empty 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: 23/10/2020, 09:04