MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Necessito desabilitar a Tecla Shift ....

    Compartilhe

    Luis A.
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 13/09/2016

    [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  Luis A. em Ter 01 Nov 2016, 16:04

    Olá amigos,

    só estou querendo desabilitar a tecla shift para bloquear os objetos do meu BD.

    Não preciso habilitar novamente, por isto entrei no formulario inicial, no evento macro on load e coloquei o seguinte codigo.


    Private Sub Form_Load()

    TeclaShift “AllowBypassKey”, dbBoolean, False ‘Dasativa a tecla Shift
    DoCmd.ShowToolbar “Ribbon”, acToolbarNo ‘Oculta a cinta de opcoes



    End Sub


    mas nao está executando, meu access é 2013, obrigado

    Luis

    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/03/2016

    Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em Ter 01 Nov 2016, 16:48

    Boa  tarde !

    Eu uso :

      Bloquear Shift :

         ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

      Desbloquear Shift :

         Dim bd As DAO.Database
         Set bd = CurrentDb
         bd.Properties!AllowBypassKey.Value = True

    Coloquei as opções de habilitar ou desabilitar o bloqueio em uma área com acesso limitado ao administrador, assim facilita se for necessário desbloquear em alguma necessidade.

    Abraços,

    Luis A.
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 13/09/2016

    Obrigado a todos

    Mensagem  Luis A. em Qua 02 Nov 2016, 13:40

    Amigos

    Com ajuda do gdrblow, apliquei no meu BD e ficou muito bom, consegui travar a tecla shift......

    obrigado

    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/03/2016

    Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em Qua 02 Nov 2016, 13:43

    Me desculpe ! Faltou a função...

    Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
       Dim dbs As Object, prp As Variant
       Const conPropNotFoundError = 3270

       Set dbs = CurrentDb
       On Error GoTo Change_Err
       dbs.Properties(strPropName) = varPropValue
       ChangeProperty = True

    Change_Bye:
       Exit Function

    Change_Err:
       If Err = conPropNotFoundError Then    ' Property not found.
           Set prp = dbs.CreateProperty(strPropName, _
               varPropType, varPropValue)
           dbs.Properties.Append prp
           Resume Next
       Else
           ' Unknown error.
           ChangeProperty = False
           Resume Change_Bye
       End If
    End Function


    Anexei um exemplo...

    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/03/2016

    Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em Qua 02 Nov 2016, 13:47

    Opa...

    O anexo...
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 5 vez(es)

      Data/hora atual: Sab 10 Dez 2016, 06:54