Batista
Use a função abaixo, com ela
poderá digitar o nome de qualquer jeito que
será retornado do jeito que deseja:
'=====================
Function FirstCaps(wText)
'--------------------------------------
'FIRSTCAPS
'Autor : Jacques Zetune
'--------------------------------------
Dim wi As Integer, wChar As String, wRefVal 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
Function TrocaStr(wStr, w1, w2)
'----------------------------------------------
'TrocaStr
'Função auxiliar de FirstCaps
'Autor : Jacques Zetune
'----------------------------------------------
Dim wpos As Integer, wde As Integer
wde = 1
Do
wpos = InStr(wde, wStr, w1)
If wpos > 0 Then
Mid(wStr, wpos, Len(w1)) = w2
wde = wpos + 1
Else
Exit Do
End If
Loop
TrocaStr = wStr
End Function
'===================
Digite na caixa de texto de nome txtNome: joaquim josé da silva
No evento Após Atualizar dessa caixa:
Me![txtNome] = FirstCaps(Me!txtNome)
e veja o resultado na própria caixa.
[ ]'s
Última edição por Noobezinho em Seg 12 Out 2015, 8:54 pm, editado 1 vez(es)
.................................................................................
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.