Bom dia.
Encontrei neste fórum um módulo no qual realizei algumas busca, funcionou porém um pequeno detalhe que não consegui descobrir ainda.
Ele está convertendo em maiúscula toda primeira letra (Denilson Roberto De Souza), porém desejo que fique desse jeito (Denilson Roberto de Souza)
Alguns dos colaboradores sabe onde encontra-se o erro?
e no campo ficou dessa forma
Encontrei neste fórum um módulo no qual realizei algumas busca, funcionou porém um pequeno detalhe que não consegui descobrir ainda.
Ele está convertendo em maiúscula toda primeira letra (Denilson Roberto De Souza), porém desejo que fique desse jeito (Denilson Roberto de Souza)
Alguns dos colaboradores sabe onde encontra-se o erro?
- Código:
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 Sub
e no campo ficou dessa forma
- Código:
Private Sub Id_NomeDizimistra_Exit(Cancel As Integer)
Id_NomeDizimistra = StrConv(Id_NomeDizimistra, vbProperCase)
End Sub
Última edição por souzadenilson em Ter 19 maio 2020, 9:53 pm, editado 1 vez(es)