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]Formulário Ativar/Bloquear SHIFT

    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº1

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Formulário Ativar/Bloquear SHIFT

    Mensagem  Connekta Informatica 13/6/2012, 15:18

    Bom dia

    Criei um formulário com dois botões Ativar e Bloquear, mais esta com erro.

    Sera que alguém pode me ajudar?

    https://dl.dropbox.com/u/25062472/forum%20duvida/GeFiPE.accdb


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




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº2

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Re: [Resolvido]Formulário Ativar/Bloquear SHIFT

    Mensagem  Convidad 13/6/2012, 16:01

    Dentro do mesmo modulo;


    Public Function DesativarShift()
    AlterarPropriedade "AllowBypassKey", dbBoolean, False
    End Function

    Public Function AtivarShift()
    AlterarPropriedade "AllowBypassKey", dbBoolean, True
    End Function


    Para chamar nos botões, é:

    Call DesativarShift()

    ou

    Call AtivarShift()

    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº3

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Re: [Resolvido]Formulário Ativar/Bloquear SHIFT

    Mensagem  JPaulo 13/6/2012, 16:11

    Aproveite e veja este exemplo para 2003 ou 2007.

    Ele ativa ou desativa a tecla shift do lado de fora do banco que pretende essa inibição;

    http://dl.dropbox.com/u/771097/SecuritMs2003-2007.rar



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Formulário Ativar/Bloquear SHIFT Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Formulário Ativar/Bloquear SHIFT Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Formulário Ativar/Bloquear SHIFT Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº4

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Re: [Resolvido]Formulário Ativar/Bloquear SHIFT

    Mensagem  Avelino Sampaio 13/6/2012, 16:16

    Pois é, isso é fácil de desarmar. Se usa a versão 2007 ou 2010 opte pelo OPEN , que oferece um bom nível de segurança sem precisar de programação adicional.

    O OPEN se vale da extensão ACCDR que faz todo o trabalho de bloquear o painel de navegação e a janela imediata do VBA.

    http://www.usandoaccess.com.br/tutoriais/tuto8.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº5

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Re: [Resolvido]Formulário Ativar/Bloquear SHIFT

    Mensagem  Connekta Informatica 13/6/2012, 17:11

    Valeu Pessoal. Muito Obrigado.


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




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Formulário Ativar/Bloquear SHIFT Empty Re: [Resolvido]Formulário Ativar/Bloquear SHIFT

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 05:18