[Resolvido]Separar nomes - Converter maiusculas/minusculas

Tente isso
Num módulo:

Código:


Public Function PrimeraLetraMayusculas(strCadena As String) As String
Dim Matriz As Variant, _
    I As Long, _
    J As Long, _
    strExcepciones As String, _
    MatrizExcepciones As Variant

    'aqui exceções
    strExcepciones = "el,la,del,de,al,y,o,u,los,las,para,a,ante,bajo,con,contra,de,desde,en,entre,hacia,hasta,para,por,según,sin,so,sobre,tras"
    
    MatrizExcepciones = Split(strExcepciones, ",")
    Matriz = Split(Trim(strCadena), " ")
    
    For I = 0 To UBound(Matriz)
       For J = 0 To UBound(MatrizExcepciones)
          If MatrizExcepciones(J) = Matriz(I) And Not I = 0 Then GoTo Saltar
       Next J
       Matriz(I) = StrConv(Matriz(I), vbProperCase)
Saltar:
    Next I
    
    PrimeraLetraMayusculas = Join(Matriz, " ")
End Function


No form:

Código:


PrimeraLetraMayusculas("henrique gama silva")


Espero ter ajudado
Saludos desde Bolivia

Olá
Na opção "após atualizar"

Bom dia!

Faça o simples:

No evento após atualizar do seu campo:

Código:

Me.MeuCampo = StrConv(Me.MeuCampo,3)

O indentificador StrConv tem a função de alterar de caixa baixa e caixa alta, para testar as outras opções altere o número depois da vírgula.
1 - MAIÚSCULA
2 - minúscula
3 - Primeira Maiúscula

...Se não me engano...

Bons estudos!