[Resolvido]1ª letra maiúscula

Ola gente boa:
Tenho em um campo no evento ao pressionar tecla esse código pra deixar todas as letras em maiúscula,mas pra deixar só a primeira letra maiúscula como seria.


KeyAscii = Asc(UCase(Chr(KeyAscii)))

Experimente a função Propercase

Ex:

Me.txtCliente = StrConv(Me.txtCliente , vbProperCase)

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

Ai pessoal não deu certo,quero no campo TblDescriçao do subformulario,vejam ai pra mim.
Abç

https://dl.dropboxusercontent.com/u/90217826/Osteste.rar

Olá, com licença dos companheiros,
teste o anexo por favor.

Perfeito Marcelo,muito obrigado.
Formiga,noob valeu.
abçs

Grato pelo retorno meu amigo!