MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Maiúsculas e minúsculas

    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Maiúsculas e minúsculas Empty [Resolvido]Maiúsculas e minúsculas

    Mensagem  Peutrindade 6/2/2023, 17:21

    Boa tarde, pessoal

    Estou com problemas para implementar essa solução disponibilizada por Mestre JPaulo... Só está funcionando para o primeiro registro...
    Funcionou normalmente a alteração das exceções (Do - dos, Da - das, etc)
    No entanto, as outras palavras em Maiúsculas dos demais registros não sofreram a alteração pretendida.
    Alguém pode me ajudar?
    agradeço antecipadamente



    '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("Tab_Canto")

    rs.MoveFirst
    Do While Not rs.EOF
    rs.Edit
    'altera a primeira inicial para Maiuscula
    rs!NomeAluno = StrConv(rs!NomeAluno, vbProperCase)
    rs.Update
    'altera as palavras da excessão, para minusculas

    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Das ',' das ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Dos ',' dos ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Do ',' do ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' De ',' de ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Da ',' da ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' E ',' e ');"
    rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing



    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Maiúsculas e minúsculas Empty Re: [Resolvido]Maiúsculas e minúsculas

    Mensagem  Peutrindade 6/2/2023, 19:41

    Boa tarde,

    Estou de volta para dizer que, após a alteração que segue, obtive o resultado esperado. Obrigado, pessoal.

    '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("Tab_Canto")
    rs.MoveFirst

    Do While Not rs.EOF
    rs.Edit
    'altera a primeira inicial para Maiuscula
    rs!NomeAluno = StrConv(rs!NomeAluno, vbProperCase)
    rs.Update
    rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing

    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Das ',' das ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Dos ',' dos ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Do ',' do ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' De ',' de ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' Da ',' da ');"
    CurrentDb.Execute "UPDATE Tab_Canto SET NomeAluno=Replace(NomeAluno,' E ',' e ');"

    End Sub

      Data/hora atual: 8/11/2024, 04:02