[Resolvido]Editar texto de campo para que apareçam os caracteres até que ocorra um espaço ou a partir de um espaço

Pessoal,

tenho uma coluna que aparecem a matricula e o nome do empregado conforme abaixo:

d1535 - Antônio
d112 - José


e quero que apareçam somente os nomes "Antônio" e "José"...
como faço?

Leandro

Em uma consulta num campo não acoplado tente:

Nome: Mid(NomeCampo, InStrRev(NomeCampo, "-") + 1)


Cumprimentos.

Piloto,

thanks. funcionou... mudei para:

NomeEA: Meio([EA_tab];RevEmSeq([EA_tab];"-")+2)

e não aparece mais a matrícula, porém, para ficar do jeito que preciso, tenho que pegar somente o primeiro nome...

tem como?

abraços

Leandro

Teremos que usar uma expressão semelhante com esta expressão no meio..
Utilzamos a primeira exmpressão para retirar o Código afrente do nome utilizando o Mid


>> Meio([NomeCampo];RevEmSeq([NomeCampo];"-")+2)



Utilizaremos agora o Left para pegar a primeira parte do nome

Observe a sintaxe do Left:  Left(Campo,X), onde X é o número de carateres que deseja pegar a partir da esquerda.

Para conseguirmos X utilizatemos a expressão InStr que conta a posição da ocorrencia de determinado caracter, no caso o espaço.



Exemplo da função InStr

Este exemplo usa a função InStr para retornar a posição da primeira ocorrência de uma seqüência de caracteres dentro de outra.

Código:

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' Seqüência de caracteres a ser pesquisada.
SearchChar = "P"    ' Procurar por "P".

' Uma comparação de texto iniciando na posição 4. Retorna 6.
MyPos = Instr(4, SearchString, SearchChar, 1)

' Uma comparação binária iniciando na posição 1. Retorna 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' A comparação é binária, como padrão (o último argumento é omitido).
MyPos = Instr(SearchString, SearchChar)    ' Retorna 9.

MyPos = Instr(1, SearchString, "W")    ' Retorna 0.

Entao X será a posição do primeiro espaço após o primeiro nome, retirando 1 que é justamente o espaço


>> Expr2: Esquerda(Meio([NomeCampo];RevEmSeq([NomeCampo];"-")+2);EmSeq(4;Meio([NomeCampo];RevEmSeq([NomeCampo];"-")+2);" ";1)-1)

Grande Piloto! tú és o cara!

thanks!!!

Leandro

Só faltou clicar no Joinha da mensagem que o auxiliou.

Cumprimentos.