MaximoAccess

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

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 : 5
    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 : 5
    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 : 5
    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 19 vez(es)

      Data/hora atual: Ter 27 Jun 2017, 18:14