Primeira letra em maiuscula - Varias textbox

Olá pessoal, estava pesquisando no forum a respeito de como colocar a primeira letra em maiuscula e deixar as demais em minusculas.
Agradeço pela dica que vi e se alguém quiser segue o link: https://www.maximoaccess.com/t2381-resolvidocoloca-primeira-letra-maiuscula#201798
Mas a minha questão é a seguinte:


Como faço para deixar várias com a mesma função? Por exemplo:

Inseri a Função na textbox - "Nome"e se agora eu quiser colocar em Endereço, Bairro, Cidade, Estado, Filiação, Conjugê... e assim por diante.

Tenho que fazer uma a uma?

Também queria deixar uma toda em maiuscula - O_Expedidor e outra toda em minuscula - e-mail

Alguém pode me ajudar?

Segue código abaixo:

Public 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


Public Function FirstCaps(wText As String)
'--------------------------------------
'FIRSTCAPS
'Autor : Jacques Zetune
'Alterada por Cesar Rocha
'--------------------------------------
Dim wRetVal As String

wRetVal = StrConv(wText, 3)

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 Function

Private Sub Nome_AfterUpdate()
Nome = FirstCaps(Nome.Value)
End Sub

Private Sub Nome_do_Conjugê_AfterUpdate()
Nome_do_Conjugê = FirstCaps(Nome.Value)
End Sub

Olá Junior,

Efetue uma busca aqui no fórum da palavra "maiúscula", Veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Abraço

Obrigado AhTeixeira, mas não encontrei nada que viesse a esclarecer minha dúvida. 
Vi que tem uma função StrConv, mas não sei como usar. Sou novato ainda. Se puder me ajudar, agradeço!

Queria que ao sair de uma textbox o texto já viesse no formato de a primeira em maiuscula.

Por favor, alguém pode me ajudar? 


Agradeço!!!!

Olá Junior, veja no link abaixo exemplo:
https://www.maximoaccess.com/t28949-primeira-letra-maiuscula
Espero que resolva o que pretende.
Abraço

Olá Alvaro,


Infelizmente não. Este no caso abre em uma textbox diferente e não é isso que pretendo.
A função que postei acima faz exatamente o que quero. A minha dúvida é essa: 

É necessário sempre pedir uma nova private sub afterupdate para cada textbox ou posso colar todas em um novo módulo ou função? E como faço isso?

Private Sub Nome_AfterUpdate()
Nome = FirstCaps(Nome.Value)
End Sub

Private Sub Nome_do_Conjugê_AfterUpdate()
Nome_do_Conjugê = FirstCaps(Nome.Value)
End Sub


Agradeço pelo emprenho e disposição até o momento!

Olá, não sei se compreendi bem a questão.
Mas se o que pretende é quando o utilizador está a introduzir dados, corrigir antes de gravar, então
Sim, tem que ter sempre o código a validar em cada campo, pode ser before update (antes de atualizar)

Caso não seja isso, crie uma base de dados com pequeno exemplo do que pretende fazer e poste.
Use o seu código e indique onde pretende obter o resultado e detalhe o que está acontecer.

Abraço

Olá Junior, como ficou a situação?
Abraço