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


5 participantes

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

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    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 24/4/2020, 14:38

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    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 24/4/2020, 21:02

    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
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    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 27/4/2020, 12:43

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

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

    Mensagem  alozs 27/4/2020, 14:56

    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
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    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 27/4/2020, 17:36

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    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 27/4/2020, 23:00

    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 : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 28/4/2020, 00:45

    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 20 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.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    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 28/4/2020, 12:52

    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 : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 28/4/2020, 20:13

    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]Forçar escrever em CAPSLOCK ou caixa alta Empty Re: [Resolvido]Forçar escrever em CAPSLOCK ou caixa alta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:23