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


    [Resolvido]Desabilitar o teclado

    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty [Resolvido]Desabilitar o teclado

    Mensagem  rogeriofba 16/8/2013, 18:44

    Galera boa tarde!
    Estou com um problema num banco de dados que estou fazendo, como sou novo no access vou pedir a ajuda de vocês.
    Eu preciso criar um código que, ao abrir um determinado formulário ele desabilite o teclado, porem o campo matrícula nesse formulário ainda consiga receber dados vindo de um leitor ótico.
    Isso é possível?
    Obs.: Nesse formulário eu só posso inserir dados através do leitor ótico, é uma determinação de quem solicitou a criação do banco de dados.

    Desde já agradeço quem possa da essa ajuda ai.
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 19:30

    Creio que desabilite todos os métodos de entrada.. assim desablitará o leitor..

    Porque não utiliza os Eventos KeyCode para vetar a digitação?


    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 19:34

    Pode tentar assim:

    Shell "rundll32 keyboard,disable"
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 19:34

    Ou



    Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

    Para bloquear teclado e mouse (ambos) coloque isto
    BlockInput True

    Para desbloquearlos coloque isto
    BlockInput False



    Cumprimentos.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Bloquear Teclado

    Mensagem  rogeriofba 16/8/2013, 19:37

    Já tentei criei o comando funcionou legal, qualquer numero digitado ele apresenta uma mensagem informando que não é permitido usar o teclado, o problema é que ao inserir os dados pelo leitor ótico está dando a mesma mensagem, como que eu tivesse digitado pelo teclado.

    Piloto, vou tentar esse primeiro comendo que você mandou....


    Última edição por rogeriofba em 16/8/2013, 19:40, editado 1 vez(es)
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Bloquear Teclado

    Mensagem  rogeriofba 16/8/2013, 19:38

    Eu preciso bloquear somente o teclado, o mouse eu preciso para que esteja funcionando...
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 19:44

    Creio que a questão do leitor.. está em configurá-lo com o click automático.. pode desabilitar esta função.

    O click automático do leitor creio eu, simule a tecla enter, KeyCode...
    Se utiliza o KeyCode da tecla enter (13) tente apenas este deixar ativo.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 16/8/2013, 19:45

    O comando Shell "rundll32 keyboard,disable" está dando o seguinte erro:

    Houve um problema na inicialização do keyboard
    Não foi possível encontrar o módulo especificado

    coloquei o comando em "ao abrir" no formulário, não funcionou

    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 16/8/2013, 19:47

    Piloto eu só bloquei os números as outras teclas estão livres, nesse campo que recebe a informação só pode ser digitado números.
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 19:56

    Esse do Keyboard tirei do VB...talvez o access nao suporte..

    Tenho um exemplo de desablitar teclas Ctrl + Alt + del no repositório..
    Este exemplo modifica o LayOut do teclado.. movendo por exemplo o local do 1 <> M e assim sucessivamente...

    De uma olhadinha por la.. talvez sirva...


    Poste o exemplo com o KeyCode que utilizou para que possamos ver.


    Cumprimentos.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 16/8/2013, 19:59

    Valeu, vou ver sim, e vou colocar o código que coloquei para você da uma olhada.

    Mesmo assim obrigado!!
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 16/8/2013, 20:06

    Veja se este para o excell funciona

    http://support.microsoft.com/kb/101567/pt-br

    Cumprimentos.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 16/8/2013, 20:08

    Valeu, vou tentar!

    Obrigado pela ajuda!
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 20/8/2013, 23:56

    Piloto, boa noite!

    O link q você mandou não deu certo não.

    olha só como estou colocando no meu form.

    Ao apertar a tecla cloquei assim:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 97 Then
    DoCmd.Close
    MsgBox "O USO DO TECLADO É PROIBIDO!", vbInformation, "R & L Soft System"
    DoCmd.OpenForm "FormControle"
    End If
    End Sub


    Ficou legal, faço a leitura com o leitor ótico tudo certinho, mas só funciona com o teclado numérico, quer dizer do cod 96 ao 105, se eu colocar do 48 ao 57 e fazer a leitura com o leitor ótico parece que eu apertei uma tecla e fecha o formulário.

    Será que tenho de colocar algo diferente para a numeração de 48 a 57? Você pode ajudar a resolver isso? o que você acha que está errado?

    Obs.: de 96 a 105 são os número no teclado numérico, de 48 a 57 são os número no teclado principal.

    Aguardo
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 21/8/2013, 00:30

    Poste um pequeno exemplo para que eu possa testar aqui.


    Cumprimentos.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 21/8/2013, 00:41

    Piloto, pode usar esse código que postei ai.
    Crie um form com uma cx de texto, e no evento "ao apertar tecla" coloque o código que eu mostrei.
    Você vai ver que usando o leitor ele vai entender como que você apertou a tecla, se tiver com a numeração de 48 a 57 teclado principal
    Se você usar a numeração de 96 a 105 teclado numérico funciona certinho.

    Aguardo
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 21/8/2013, 01:14

    Mas ai voce vai me dar muito trabalho.. lembre-se que prestamos ajuda a várias pessoas.. além do nosso compromisso pessoal..
    se puder fazer e me enviar.. eu agradeco.


    Cumprimentos.
    avatar
    rogeriofba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 15/08/2013

    [Resolvido]Desabilitar o teclado Empty Desabilitar o teclado

    Mensagem  rogeriofba 28/8/2013, 01:58

    Piloto, boa noite e boa noite a todos!

    Olha só, creio que não tem como eu desabilitar o teclado e continuar usando o leitor ótico, se eu bloquear o teclado o leitor também não funciona, mar descobrir várias maneiras de bloquear as teclas do teclado ao abrir um formulário, foi muito bom participar desse fórum.

    Sendo assim, dou esse tópico como resolvido.


    Agradeço a todos.
    avatar
    Convidado
    Convidado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Convidado 28/8/2013, 02:04

    Se possível poste estas soluções encontrada por si para auxílio aos demais usuários que tenha a mesma dúvida.
    O objetivo primaz do Fórum é o compartilhamento do conhecimento.

    Não se esqueça de clicar no botão de resolvido para encerrar o Tópico.


    Cumprimentos.


    Última edição por PILOTO em 13/9/2013, 13:40, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

    Conteúdo patrocinado


    [Resolvido]Desabilitar o teclado Empty Re: [Resolvido]Desabilitar o teclado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 12:56