MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Forçar escrever em CAPSLOCK ou caixa alta

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  mfmaiafilho em Sex Abr 24, 2020 9:38 am

    bom dia venho por meio deste, saber se é possível forçar mesmo estando com o CAPSLOCK do teclado desativado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7694
    Registrado : 05/11/2009

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  Alexandre Neves em Sex Abr 24, 2020 4:02 pm

    Boa noite
    Ao sair do controlo, formate para maiúsculas format(controlo,">")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  mfmaiafilho em Seg Abr 27, 2020 7:43 am

    oi alexandre tudo bem não ficou claro a sua resposta, não consegui compreender, como se faz isso.


    poderia me mostrar na pratica com um exemplo em access?
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 06/02/2018

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  alozs em Seg Abr 27, 2020 9:56 am

    No evento "ao pressionar tecla" cole o código abaixo


    Código:
    On Error Resume Next
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
        If KeyAscii = 27 Then
            DoCmd.Close
        End If


    Obs: deixe o evento "Visualizar Teclas" no formulário, setado como "SIM" para funcionar o código acima
    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  mfmaiafilho em Seg Abr 27, 2020 12:36 pm

    alo, coloquei o codigo mas não funcionou... =/

    infelizmente preciso que o formulário seja preenchido todo com letras maiusculas...
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  Celso Roberto em Seg Abr 27, 2020 6:00 pm

    Olá..

    Como o Alexandre informou, No evento ao sair do Campo
    Me.NomeCampo = Format(Me.NomeCampo, ">")

    Ou em folha de propriedades na aba Formato Coloque o Caracter  ">" (sem as aspas)

    Pode digitar em minusculo que ao sair do campo sera alterado para maisculo


    Aguardamos

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 21/11/2016

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  DamascenoJr. em Seg Abr 27, 2020 7:45 pm

    Abra o tal formulário no modo design, acesse a folha de propriedades para o objeto formulário, na guia eventos defina a propriedade "visualizar teclas" como sim, e no evento "ao pressionar teclas" cole o código abaixo

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

    com isso todo o seu formulário não aceitará pressionamentos para letras minúsculas.

    Deixo em anexo um exemplo. Tente entender o que foi dito e o que estava faltando para que você obtivesse sucesso com as dicas anteriores.

    nota1: certifique-se também de que a macro de segurança do access esteja desabilitada, isto é, habilite a execução de código vba.
    nota2: não esqueça do resolvido do tópico.

    aguardamos.
    Anexos
    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Attachmentmaiuscula.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 9 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
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 02/08/2018

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  mfmaiafilho em Ter Abr 28, 2020 7:52 am

    Obrigado Damasceno deu muito certo, a resposta do Celso e de outros companheiros me ajudaram muito!

    agora consigo ter um sistema todo em CAPS já que a intenção é que o usuário não deixe tudo bagunçado com letras maiusculas ou minusculas.


    Abraços!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2180
    Registrado : 21/11/2016

    [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  DamascenoJr. em Ter Abr 28, 2020 3:13 pm

    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: Seg Set 21, 2020 8:37 am