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


3 participantes

    [Resolvido]Proper case em todos os campos texto do formulário

    avatar
    Edelson Vieira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Proper case em todos os campos texto do formulário Empty [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  Edelson Vieira 23/4/2019, 14:05

    Bom dia!

    Deus seja louvado.

    Preciso que todos os campos texto do formulário sejam convertidos para ProperCase. No evento após atualizar da textbox eu uso me.Activecontrol = strConv(me.ActiveControl, 3), e funciona, porém se eu tenho 30 campos texto em um formulário, eu tenho que colocar o evento em cada campo. Alguém saberia me dizer se existe uma forma de colocar a função direto no formulário para assumir todos os campos?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  crysostomo 23/4/2019, 17:11

    eu mexo com Me.nome = StrConv(Me.nome, 3) no apos atualizar do formulario e não dos campo , mas tbm é a mesma coisa.
    pego carona com esse tópico


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  DamascenoJr. 25/4/2019, 03:08

    No evento Ao pressionar tecla do seu formulário insira o código

    Código:
    KeyAscii = Asc(UCase(Chr(KeyAscii)))

    Não esqueça de definir a propriedade Visualizar teclas que também está na guia de eventos da folha de propriedades do objeto formulário para o valor Sim


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Edelson Vieira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  Edelson Vieira 25/4/2019, 13:58

    Bom dia IvanJr.
    Obrigado pela disponibilidade. UCase ficaria tudo em maiúsculas, porém eu quero somente a primeira letra de cada nome em maiúscula. A função que eu desejo é ProperCase e não UCase. Qual seria o código? Vlw
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  DamascenoJr. 26/4/2019, 03:07

    Veja
    Anexos
    [Resolvido]Proper case em todos os campos texto do formulário AttachmentExemploD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 11 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Edelson Vieira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  Edelson Vieira 26/4/2019, 16:16

    Boa tarde IvanJr.

    Se eu tiro o comentário da estrutura if somente a primeira caixa de texto funciona, a segunda não funciona.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  DamascenoJr. 27/4/2019, 02:03

    Como o comentário do código diz

    Código:
    'descomente a estrutura condicional para que
    'somente as caixas de texto com a tag com valor 1 fiquem em propercase

    [Resolvido]Proper case em todos os campos texto do formulário Ggghhh10

    basta na segunda caixa de texto inserir o valor 1 na propriedade Marca (Tag)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Edelson Vieira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 22/08/2015

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  Edelson Vieira 27/4/2019, 14:44

    Bom dia!
    Valeu aí pela ajuda pessoal. O código do nobre colega IvanJr. é a solução. Obrigado, grande abraço.

    "DEUS SEJA LOUVADO"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  DamascenoJr. 27/4/2019, 20:10

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]Proper case em todos os campos texto do formulário Empty Re: [Resolvido]Proper case em todos os campos texto do formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:49