[Resolvido]Coloca Primeira Letra Maiuscula

Jpaulo
Esta função de sua autoria é óptima mas podera ser melhor se ao ser executada num campo com o nome de pessoas, coloca-se o "de" "da" "do" "dos" "e" "a" etc ... com inicial em minúsculas.

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maíuscula
'By JPaulo ® Maximo Access
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
If Not (rst.EOF) Then
Do Until rst.EOF
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Value <> "" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
Next
rst.MoveNext
Loop
End If
End Sub

Boa tarde, Assis

Então? É adaptar! A mexer na massa é que se aprende.

Eu faria assim (confirme se funciona como pretende)

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maiúscula
'By JPaulo ® Maximo Access
'adaptado por Alexandre Neves, em 2011-05-03, do fórum MaximoAccess para manter "de" "da" "do" "dos" "e" "a"
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
If Not (rst.EOF) Then
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Do Until rst.EOF
If camp.Value <> "" _
'Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
rst.MoveNext
Loop
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' A ',' a ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Da ',' da ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' De ',' de ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Do ',' do ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Dos ',' dos ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' E ',' e ');"
End If
Next
End Sub

Cumprimentos,

Boa noite Alexandre

Fica assim a vermelho

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maiúscula
'By JPaulo ® Maximo Access
'adaptado por Alexandre Neves, em 2011-05-03, do fórum MaximoAccess para manter "de" "da" "do" "dos" "e" "a"
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
If Not (rst.EOF) Then
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Do Until rst.EOF
If camp.Value <> "" _
'Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
rst.MoveNext
Loop
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' A ',' a ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Da ',' da ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' De ',' de ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Do ',' do ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Dos ',' dos ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' E ',' e ');"
End If
Next
End Sub

Boa noite Alexandre

Alterei o AZUL

Sub ColocaPrimeiraLetraMaiuscula()
'Muda todas as palavras da tabela para inicial maiúscula
'By JPaulo ® Maximo Access
'adaptado por Alexandre Neves, em 2011-05-03, do fórum MaximoAccess para manter "de" "da" "do" "dos" "e" "a"
Dim db As Database, rst As Recordset, camp As Field
Set db = CurrentDb
Set rst = db.OpenRecordset("select * from " & "[" & Tabela & "]")
If Not (rst.EOF) Then
For Each camp In rst.Fields
If camp.Name <> "Field Name" _
And camp.Type = 10 _
And Not IsNumeric(camp) _
And camp.Attributes = 34 Then
Do Until rst.EOF
If camp.Value <> "" Then
'Debug.Print StrConv(camp.Value, vbProperCase);
With rst
.Edit
camp.Value = StrConv(camp.Value, vbProperCase)
.Update
End With
End If
rst.MoveNext
Loop
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' A ',' a ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Da ',' da ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' De ',' de ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Do ',' do ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' Dos ',' dos ');"
CurrentDb.execute "UPDATE [" & Tabela & "] SET [" & camp.name & "]=Replace([" & camp.name & "],' E ',' e ');"
End If
Next
end if
End Sub

Boa noite Assis, eu tive olhando o seu script, para bloquear a conversão em primeira maiúscula, porem não estou conseguindo fazer rodar. por exemplo aonde eu poderei inserir o nome do campo para ação, o tempo determinado para essa ação se dá.
Como vê sou iniciante.

Desde já agradeço.

Sandoval, seja bem vindo ao forum;

Para ser mais simples para si que está a iniciar, veja;

http://maximoaccess.forumeiros.com/t581-funcoes-esquecidas-no-ms-access

A sala onde postou a sua duvida, não é para tirar duvidas/soluções, deveria continuar neste mesmo;

Sua resposta;

Muito o brigado, porem já havia visto este forum, não era o que eu queria, pois resolvi com o seguinte script.



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 tx1_LostFocus()

tx1 = FirstCaps(tx1)

End Sub

Olá Pessoal, e se eu quiser colocar me várias textbox por exemplo:


quero deixar essa função no NOME, ENDEREÇO, CIDADE,... mas tbm tenho o campo RG e ÓRGÃO EXPEDIDOR e neste quero deixar toda maiúscula, e EMAIL toda minuscula. E aí tem como fazer isso através deste código?

Quando inseri apenas no nome deu certo, tenho que fazer um por um?

Se puder me ajudar, agradeço!!!!