[Resolvido]Passar de letras maiusculas para minusculas

Boa noite,

Tenho uma tabela com nomes dos funcionários da minha empresa, entretanto tenho nomes com letras todas maiusculas e outros apenas com as iniciais miusculas ou seja eu queria manter a 2ª hipotese nomes em letra minuscula apenas a inicial maiuscula, como faço para obter resultados?

Obrigada

Ola Teresa bom dia !

No evento VBA ao pressionar de um botão no formulario;

Nota:
Altere apenas onde diz, "SuaTabela" e "SeuCampo" para os nomes corretos e teste...

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    'Abre o recordset da sua tabela
    Set rs = db.OpenRecordset("SuaTabela")
    
    rs.MoveFirst
    Do While Not rs.EOF
       rs.Edit
       'altera a primeira inicial para Maiuscula
       rs!SeuCampo = StrConv(rs!SeuCampo, vbProperCase)
       rs.Update
       'altera as palavras da excessão, para minusculas
        CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo=Replace(SeuCampo,' Das ',' das ');"
        CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo=Replace(SeuCampo,' Do ',' do ');"
        CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo=Replace(SeuCampo,' De ',' de ');"
        CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo=Replace(SeuCampo,' Da ',' da ');"
        CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo=Replace(SeuCampo,' E ',' e ');"
       rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
End Sub

Olá JPaulo

Resultou era o resultado esperado.

Obrigada pela atenção

Teresa Teixeira

Obrigado pelo retorno o forum agradece.