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]Converter todos os campos em maiúsculo

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Converter todos os campos em maiúsculo Empty [Resolvido]Converter todos os campos em maiúsculo

    Mensagem  Ronaldo Costa 23/5/2022, 13:12

    Alá pessoal!

    Como poderia fazer para que ao clicar no botão salvar todas as informações digitadas no form fossem convertidas em letras maiúsculas antes de ser salvas?

    grato...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Converter todos os campos em maiúsculo Empty Re: [Resolvido]Converter todos os campos em maiúsculo

    Mensagem  DamascenoJr. 23/5/2022, 13:43

    Código:
    dim ctl as control

    for each ctl in me.controls
      if ctl.controltype = acTextBox then
          ctl.value = ucase(ctl.value)
      end if
    next ctl

    '... continuação da rotina de salvamento


    .................................................................................
    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.

    Kaynan gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Converter todos os campos em maiúsculo Empty Re: [Resolvido]Converter todos os campos em maiúsculo

    Mensagem  Alexandre Fim 23/5/2022, 13:48

    Olá,

    Você pode utilizar a função UPPER na hora de gravar os dados. Ex.:

    CurrentDb.Execute ("UPDATE NOME_TABELA SET CAMPO_TABELA = UPPER(" & CAMPO_FORMULARIO & ")")

    É isso.

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Converter todos os campos em maiúsculo Setinf11
    Sistemas e Tecnologia Ltda

    Kaynan gosta desta mensagem

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Converter todos os campos em maiúsculo Empty Re: [Resolvido]Converter todos os campos em maiúsculo

    Mensagem  Ronaldo Costa 2/6/2022, 13:12

    Perfeito DamascenoJr.

    Criei um módulo e inclui os tipos de controles que preciso e assim, posso usar em todos os formulários.

    Grato.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Converter todos os campos em maiúsculo Empty Re: [Resolvido]Converter todos os campos em maiúsculo

    Mensagem  DamascenoJr. 2/6/2022, 21:47

    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.

      Data/hora atual: 24/9/2022, 19:38