MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Passar de letras maiusculas para minusculas

    Compartilhe

    teresateixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 135
    Registrado : 17/05/2013

    [Resolvido]Passar de letras maiusculas para minusculas

    Mensagem  teresateixeira em Ter Nov 19, 2013 9:56 pm

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9661
    Registrado : 04/11/2009

    Re: [Resolvido]Passar de letras maiusculas para minusculas

    Mensagem  JPaulo em Qua Nov 20, 2013 11:05 am

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    teresateixeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 135
    Registrado : 17/05/2013

    Re: [Resolvido]Passar de letras maiusculas para minusculas

    Mensagem  teresateixeira em Qua Nov 20, 2013 6:41 pm

    Olá JPaulo

    Resultou era o resultado esperado.

    Obrigada pela atenção

    Teresa Teixeira

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9661
    Registrado : 04/11/2009

    Re: [Resolvido]Passar de letras maiusculas para minusculas

    Mensagem  JPaulo em Qua Nov 20, 2013 6:54 pm

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter Out 17, 2017 10:33 am