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]Desativar Botões

    avatar
    freitas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 06/07/2010

    [Resolvido]Desativar Botões Empty [Resolvido]Desativar Botões

    Mensagem  freitas 9/9/2010, 18:42

    Boa tarde
    Acabei um banco de dado em Access e um dos formulário é filtrado de acordo
    com o perfil do usuário. Ou seja, cada usuario só pode visualizar os registros referentes ao seu perfil.
    Meu problema é que quando o usuario clica no botão PAGE UP/DOWN ou ultiliza o Scroll do mouse ele acaba conseguindo navergar por todos os registros mesmo com o filtro(feito via VB). Como eu faço para desativar estas teclas? Já desativei no formulário as barras de rolagem deixando (nenhuma), mais não adiantou.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  vieirasoft 9/9/2010, 19:53

    Boa Tarde

    Coloque assim este código também previne o uso da shift e F4


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case 33, 34
    KeyCode = 0
    End Select
    If (Shift And acAltMask) > 0 And (KeyCode = vbKeyF4) Then
    KeyCode = 0
    End If
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  JPaulo 10/9/2010, 11:19

    Veja este exemplo de bloquear a rodinha do mouse;

    http://dl.dropbox.com/u/771097/BloqueiaMouse.rar

    Para o PAGE UP/DOWN utilize a dica do Grande Vieira.



    .................................................................................
    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]Desativar Botões Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desativar Botões Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desativar Botões Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  vieirasoft 10/9/2010, 12:38

    Obrigado Mestre pela sua atentra intervenção. Realmente passou-me despercebido o item "Scroll" e fiquei com a ideia que a dúvida era só com o Page UP/Down.Afinal até tem exemplo aqui no Fórum. Ao amigo Freitas as minhas desculpas pelo lapso.
    avatar
    freitas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 06/07/2010

    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  freitas 10/9/2010, 15:27

    Sem problemas,

    Eu que agradeço aos dois pela pronta resposta, consegui aplicar a sugestão do mouse(Scroll). Porém em relação as teclas não consegui ainda ter resultados, devo estar fazendo algo errado. Por exemplo, coloquei o código acima
    no Vb, mas quando aperto as teclas o mesmo não roda. Devo fazer algo mais?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  JPaulo 10/9/2010, 15:51

    O seu formulario tem de ter Visualizar Teclas = Sim

    Veja lá nas propriedades do form, guia Eventos.


    .................................................................................
    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]Desativar Botões Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desativar Botões Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desativar Botões Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Desativar Botões Empty Re: [Resolvido]Desativar Botões

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 08:16