Início![[Resolvido]Buscar as iniciais Empty](https://2img.net/i/empty.gif)
NADIRONUNES 21/5/2012, 19:57tenho o nome no campo: Maria Jose da Silva e como que faco via codigo pra ficar assim:MJS
2 participantes
[Resolvido]Buscar as iniciais
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 571
Registrado : 30/08/2010
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Pode tentar utilizando o Split:
- Código:
Dim VS As Variant, NS As Integer
Me.NomeCampoDoCompleto = Null
VS = Split(Me.NomeDoCampoCompleto, " ")
For NS = 0 To UBound(VS)
If VS(NS) <> "da" And VS(NS) <> "das" And VS(NS) <> "de" And VS(NS) <> "do" And VS(NS) <> "dos" Then
Me.NomeDoCompleto = Me.NomeDoCompleto & Left(strConv(VS(NS), 1), 1)
End If
Next
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
|
|
|