[Resolvido]Primeira letra do nome e a primeira letra do sobrenome ficar em maiúscula

Prezados,

Preciso que vocês me ajudem a configurar uma máscara onde a primeira letra do nome e do sobrenome fiquem em maiúscula.
Uso a máscara >L
Por exemplo: Desejo que o nome Pedro Martins fique assim escrito (a primeira letra do nome e sobrenome em maiúscula)  no formulário. Com a máscara que configurei, fica escrito da seguinte maneira no Formulário:
Pedro martins.
Poderiam ajudar-me?
Desde já, muito grato.

Abs,
Eduardo

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

Amigo, boa tarde!

Não deu certo.

Preciso que no formulário no campo desejado, fique escrito da seguinte maneira:
Pedro Martins

Como está feita a máscara hoje, o resultado final é: Pedro martins.

Eu desejo que a primeira letra de Pedro e a primeira letra de Martins fiquem na condição maiúscula.

Reveja o que fez por aqui quando digito

JOÃO MARIA MARTINS  Retorna= João Maria Martins

janete da silva = Janete da Silva

ou melhor

Explique como fez

No modo Design no campo que desejo no Formulário, fui em propriedades e depois fui na aba Evento na opção clicar e copiei a dica que você enviou. Veja na imagem anexada.

Veja na mensagem que escrevi:

Digite na caixa de texto de nome txtNome: joaquim josé da silva

No evento Após Atualizar dessa caixa:

Prezados,

Preciso com urgência de uma ajuda. Necessito saber como configurar para que em um determinado campo no formulário Access a primeira letra do nome e a primeira letra do sobrenome fiquem em maiúscula.
Fiz a máscara: ">L
Mas ao digitar fica assim:
Pedro martins

Eu gostaria que ficasse assim:
Pedro Martins

Como faço isso? Falta somente essa configuração para eu entregar o trabalho. Agendei para apresentá-lo amanhã.
Desde já, muito grato.
Eduardo

Vai contra as regaras do fórum, abrir mais de um tópico com mesma duvida e utilizando a palavra Urgente;

https://www.maximoaccess.com/t24344-primeira-letra-do-nome-e-sobrenome-no-formulario-sejam-maiusculas


REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

boa tarde amigo Batista
coloque no evento ao perder foco do campo que pretende que a primeira letra da palavra fique em maiúscula, coloque assim. obs: tem que tirar isto que colocou ">L do formato do campo.

Me.seucampo= StrConv(seucampo, vbProperCase)

abraço Nogaro.

Carlos

Como gosto que os nomes apareçam  assim: João Aparecido da Silva e Lima,
utilizo a função que está AQUI.

[ ]'s

Meu amigo Nogaro,

Segui o seu procedimento mas não deu certo.

Abs
Eduardo

Eduardo não deu certo por algum detalhe que faltou, mas pode mandar para meu e_mail que arrumo para você nogaro513@gmail.com

Senhores,

Inicialmente desculpem-me  se infringi algumas regras mas não foi intencional.

Anexei o erro que recebo.

Abs,

Utilize o Mega, Dropbox, 4shared ou oneDrive e

disponibilize o link para podermos baixar.

Nogaro, boa tarde!

Enviei para o seu e-mail. Eu poderia configurar para ficar todas as letras em maiúsculas, inclusive eu sei fazer. Todavia, queria que apenas a primeira letra do nome e sobrenome fiquem em maiúscula. Configurar a primeira letra do nome em maiúscula eu também sei. O problema e configurar o sobrenome.

Obrigado,

enviei seu bd esta conforme me pediu ,vê se esta ao seu gosto abraços Nogaro

Também ia enviar o arquivo modificado,
mas como nosso amigo já se adiantou, fico no aguardo, ok?

Eu fundi os dois tópicos.

[ ]'s

Pessoal, consegui. Muito obrigado pelo empenho de todos.
Abs,

O fórum agradece o retorno.
Sucesso.