[Resolvido]Desabilitar teclas F1...F12

Meus amigos bom dia,

A pesquisar Varios topicos sobre desabilitar teclas como F1 ao F12, tenho uma pequena duvida?!!

Como desabilitar as teclas F1 ao F12 e habilita-la ao comando que eu quiser?
Por exemplo :

Gostaria de clicar em F2 e fosse aberto o cadastro de clientes, F23 Fornecedores...enfim.

Porem gostaria que fosse em VB. Alguem poderia me ajudar por favor?

Utilize uma macro AutoKeys para desabilita-las. Depois, bastará, no evento "Ao apertar tecla", dar a ação desejada:

If KeyCode = vbKeyF2 Then
...
End If

1. Para Desabilitar:

No Evento "Ao apertar tecla"...
If KeyCode = vbKeyF3 Then
KeyCode = 0
End If

2. Para Habilitar e inserir comando:

No Evento "Ao apertar tecla"...
If KeyCode = vbKeyF3 Then
DoCmd.OpenForm "frmFORNECEDORES"
End If

Obs.: Lembre-se de marcar como "Sim" a opção "Visualizar teclas" (última opção da guia eventos, da janela de propriedades) do Formulário.

Sucesso!

Obrigado pela ajuda.....

Meus Amigos consegui Desabilitar todos, menos o F1.

Tentei segundo o metodo do nosso amigo criquio e Viludo. Não esta dando certo alguem sabe porque?


Grato

Danilo...

Apenas um detalhe

Obs.: Lembre-se de marcar como "Sim" a opção "Visualizar teclas" (última opção da guia eventos, da janela de propriedades) do Formulário.

Faça isso e será só alegria!

Oi amigão obrigado pela força,

Então tentei fazer da sua forma e da do criquio, porem alguns comandos não estao funcionando como por exemplo :

Eu quero que eu clicar em F6 Excluir Item do FVenda em F7 Excluir Venda do fVenda. Mas não esta dando certo.


Segue o banco

Foi por isso que dei a dica de utilizar uma macro com nome de AutoKeys para isso. Dessa forma, as ações padrões das teclas ficam desabilitadas e você pode utilizar suas próprias funções via VBA. Veja a imagem na mensagem n° 2 desse tópico.

Olá Criquio amigao,

Eu fiz conforme me orientou, mas não funcionou aqui as teclas F1 e F6 e F7, as outras funcionou direitinho. Já que possuo o access 2010 eu usei a subMacro.

Olá amigo boa noite!


Este exemplo você desabilita a tecla que quiser!

Desabilita F12:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Or _
(KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Then
KeyCode = 0
MsgBox "Você pressionou a tecla F12, a mesma foi desabilitada, para melhor funcionamento do sistema!"

End If

End Sub



Desabilita F1:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF1 And (Shift And acF1Mask) = acF1Mask) Or _
(KeyCode = vbKeyF1 And (Shift And acF1Mask) = acF1Mask) Then
KeyCode = 0
MsgBox "Você pressionou a tecla F1, a mesma foi desabilitada, para melhor funcionamento do sistema!"

End If

End Sub


Um abraço!

Olá amigão obrigado pela ajuda,

Entao este codigo funciona, mas apenas quando se esta em um form, mas quando não estou em nenhum form, a função F1 abre normalmente.

Coloque ele no form principal!
ou em todos os forms!

Olá Lupercio deu certo,

Pensei que esta função tambem seria valida sem estar no form, funcionou direitinho muito obrigado a todos que ajudou no topico

Obrigado pelo retorno, o forum agradece!

Se funcionou então está OK. Mas o exemplo que falei deveria ser usado em uma macro conforme a imagem do outro tópico e não em submacros. Daquela forma da imagem, desabilita as teclas para todo o banco mesmo que em modo design sem precisar inserir os códigos em todos os formulários e relatórios. Mas se está funcionando conforme precisa então tudo certo.

Olá criquio bom dia,

Entao eu uso o access 2010 e a interface dele é um pouco diferente para a aplicação. E pesquisei aqui no forum, alguns topicos estavam orientando a usar a submacro.
Mas esta tranquilo muito obrigado pela ajuda, bom que resolveu hehe

Meus amigos pensei que estava tudo resolvido, porem, as funçoes voltaram, o que posso fazer para desabilitar?

Eu tentei com a macro no access 2010 na autoKeys, ela desabilitou por um tempo mas voltou.
tentei via codigo com a ajuda do Viludo e Lupercio, mesmo assim não funciona. Em visualizar teclas deixei como Sim

Alguem sabe o que é?

Experimenta ao carregar do form, coloque esse código:

Me.KeyPreview = True


ai vc coloca o outro código que te passei!


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Or _
(KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Then
KeyCode = 0
MsgBox "Você pressionou a tecla F12, a mesma foi desabilitada, para melhor funcionamento do sistema!"

End If

End Sub

Olá Lupercio obrigado pela ajuda,

Eu tentei aqui de varias formas mas não consegui. Poderia dar uma olhada?

Se puder postar o bd! Tentamos te ajudar!

Abraço!

Segue:

Você quer desabilitar as teclas: F1 e F12?

Quero desabilitar todas de F1 ao F12.

Sendo que as teclas F6 Ao F10 Será de ultilidade para abrir form

Coloquei no formulário Central, veja se é isso:

Nos formulários que você quer desabilitar as teclas defina:

Private Sub Form_Load()
Me.KeyPreview = True
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Or _
(KeyCode = vbKeyF12 And (Shift And acF12Mask) = acF12Mask) Then
KeyCode = 0
End If

If (KeyCode = vbKeyF1 And (Shift And acF1Mask) = acF1Mask) Or _
(KeyCode = vbKeyF1 And (Shift And acF1Mask) = acF1Mask) Then
KeyCode = 0
End If

If KeyCode = vbKeyF7 Then
KeyCode = 0
End If

End Sub

Obrigado amigão no meu funcionou. Não estou muito acostumado com access 2010 aqui no meu trabalho, prefiro o 2007.

Obrigado!!!

Que bom que funcionou, ai vc adapta nos forms que quiser.
Obrigado pelo retorno, o forum agradece!