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


2 participantes

    [Resolvido]Bloqueando a tecla Shift

    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Bloqueando a tecla Shift Empty [Resolvido]Bloqueando a tecla Shift

    Mensagem  Mcahet 12/7/2024, 13:38

    Já tentei de todas as maneiras através do procedimento do evento e inclusive já pesquisei aqui no forum, e não consegui resolver.
    Alguém poderia me enviar o passo a passo do Módulo  e como resolver definitivamente esse problema.

    Agradeço.


    Última edição por Mcahet em 21/8/2024, 18:27, editado 1 vez(es)
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Bloqueando a tecla Shift Empty Re: [Resolvido]Bloqueando a tecla Shift

    Mensagem  marcelo3092 13/7/2024, 03:08

    crie um modulo com esse codigo


    Option Compare Database

    ' Esta é a função para liberar o Shift
    Sub LiberaShift()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
    End Sub

    'Esta para Travar
    Sub TravaShift()
    Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
    End Sub

    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 ' Propriedade não encontrada.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
    Else
    ' Erro desconhecido.
    ChangeProperty = False
    Resume Change_Bye
    End If
    End Function




    salva ele com nome que quiser

    crie um formulario com 2 botao um libera o outro bloqueia

    TravaShift
    MsgBox "Sistema Bloqueado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"




    LiberaShift
    MsgBox "Sistema Liberado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"

    espero que ajude

    Mcahet e Mauro Machado gostam desta mensagem

    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Bloqueando a tecla Shift Empty Bloqueando a tecla shift

    Mensagem  Mcahet 15/7/2024, 11:34

    Bom dia MAURO MACHADO,

    Fiz o que vc me explicou e continuo não bloqueando a tecla shift.

    Criei o módulo conforme sua instrução, criei um formulario com dois botões " Libera e Bloqueia "
    coloquei nos procedimentos de evento conforme sua explicação e nada até agora.

    Option Compare Database

    Private Sub LiberaShift_Click()
    MsgBox "Sistema Liberado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"
    End Sub

    Private Sub TravaShift_Click()
    MsgBox "Sistema Bloqueado com Sussesso!!!", vbInformation, "Bloqueio do Sistema"
    End Sub

    No formulário :

    coloquei pop up

    seletores de registro, botões de navagação NÃO

    o que falta , onde eu estou errando ??

    aguardo e obrigado



    Mcahet gosta desta mensagem

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Bloqueando a tecla Shift Empty Re: [Resolvido]Bloqueando a tecla Shift

    Mensagem  marcelo3092 16/7/2024, 01:56

    testa esse exemplo
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Bloqueando a tecla Shift Empty Re: [Resolvido]Bloqueando a tecla Shift

    Mensagem  marcelo3092 16/7/2024, 01:56

    testa esse exemplo 2
    Anexos
    [Resolvido]Bloqueando a tecla Shift Attachmentbloqueio2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 17 vez(es)
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Bloqueando a tecla Shift Empty Bloqueio da tecla |Shift

    Mensagem  Mcahet 17/7/2024, 10:34

    Smile Resolvido , muito obrigado

    Mcahet gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Bloqueando a tecla Shift Empty Re: [Resolvido]Bloqueando a tecla Shift

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:35