[Resolvido]Extrair apelido do nome completo

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,

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], " "))

Muito obrigado

5*

A bombar

Obrigado pelo retorno o forum agradece.

Desta vez eu coloco o Resolvido.

JPaulo

E para dar o nome

Exemplo - Carlos Alberto Sousa

Devolver só - Carlos


Obrigado

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"

Teixeira

Não deu certo

Queria que devolvesse só:

Albina
Armando

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

Obrigado Teixeira

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.

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

Obrigado Teixeira.

Estava a fazer influencia nas filtragens.

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

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