Noobezinho 1/11/2014, 00:40
Tem também essa função bem antiga:
- Código:
Function FirstCaps(wText)
'--------------------------------------
'FIRSTCAPS
'Autor : Jacques Zetune
'--------------------------------------
Dim wi As Integer, wChar As String, wRetVal As String
Dim wFirst As Integer, wpos As Integer
If Not IsNull(wText) Then
wFirst = True
wRetVal = ""
For wi = 1 To Len(wText)
wChar = Mid(wText, wi, 1)
If wFirst Then
wRetVal = wRetVal + UCase(wChar)
wFirst = False
Else
wRetVal = wRetVal + LCase(wChar)
End If
If wChar = " " Then
wFirst = True
End If
Next
wRetVal = TrocaStr(wRetVal, " E ", " e ")
wRetVal = TrocaStr(wRetVal, "De ", "de ")
wRetVal = TrocaStr(wRetVal, "Da ", "da ")
wRetVal = TrocaStr(wRetVal, "Do ", "do ")
wRetVal = TrocaStr(wRetVal, "Das ", "das ")
wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")
FirstCaps = wRetVal
End If
End Function
Na propriedade ao Sair da caixa de texto:
If Not IsNull(Me.Controle) Then Me.Controle = FirstCaps(Me.Controle)
Se o nome do vivente for: joão de azevedo da luz dos pinhas de oliveira retorna:
João de Azevedo da Luz dos Pinhas de Oliveira
Veja na função o tratamentos para os "de", "dos", etc
Abraços
Nb
.................................................................................
A pergunta que não quer calar:Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele?
Se é tão bom assim...Ajude a ser ajudado:Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.