[Resolvido]desabilitar teclas F1 a F12 Access 2010

Bom dia amigos! Gostaria de desabilitar as teclas f1 a f12 no access 2010. Já achei no fórum muitos exemplos, porém voltados para o access 2007 e 2003.
Encontrei esses tópicos no forum:

https://www.maximoaccess.com/t7983-resolvidodesabilitar-teclas-f1-f12

https://www.maximoaccess.com/t3470-resolvidodesabilitar-as-teclas-f1-f2-f3-etc-nos-meus-formularios

No segundo, tem até foto, porém no access 2010 o processo pra criar macros é um pouco diferente. Alguém poderia me ajudar?

Já coloquei no Evento ao carregar do form: me.KeyPreview = true

A principio, ao apertar o F1 abre o form que eu quero, só que logo depois, o arquivo de ajuda do Access.

Muito Obrigado!!

Olá,
Crie uma Macro nova com o nome Autokeys.

Depois escolha Submacro, veja:


Depois atribua o nome da tecla, exemplo {F1}
E pode atribuir o evento AvisoSonoro (assim apita quando apertar a tecla), veja exemplo:


Está feito para a tecla F1, será repetir para as restantes teclas desejadas.
No final, gravar, sair e voltar a entrar (sem a tecla Shift apertada)
Abraço

Boa tarde,

Com a licença do amigo ahteixeira, eu coloquei há algum tempo no repositório um exemplo de bloqueador de teclas que o faz a nível de usuário. Lá dei os detalhes.

https://www.maximoaccess.com/t28233-bloquear-teclas-via-funcao

Abraço.

Olá Cassio, toda ajuda é bem-vinda.
Ficamos aguardar retorno do colega Isaque.
Abraço

Bom eu costumo utilizar por meio vba no formulário -> ao apertar tecla...

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyF1 Then KeyCode = 0
    If KeyCode = vbKeyF2 Then KeyCode = 0
    If KeyCode = vbKeyF3 Then KeyCode = 0
    If KeyCode = vbKeyF4 Then KeyCode = 0
    If KeyCode = vbKeyF5 Then KeyCode = 0
    If KeyCode = vbKeyF6 Then KeyCode = 0
    If KeyCode = vbKeyF7 Then KeyCode = 0
    If KeyCode = vbKeyF8 Then KeyCode = 0
    If KeyCode = vbKeyF9 Then KeyCode = 0
    If KeyCode = vbKeyF10 Then KeyCode = 0
    If KeyCode = vbKeyF11 Then KeyCode = 0
    If KeyCode = vbKeyF12 Then KeyCode = 0
    If KeyCode = vbKeyEscape Then DoCmd.Close

End Sub


Bom dia amigos!! Muito obrigado mesmo a todos vcs. Desculpe a demora, estava testando os códigos disponibilizados. Todos funcionaram perfeitamente, mas como não tenho muito conhecimento, achei melhor trabalhar com a sugestão do amigo Ahteixeira, que é muito parecida com a que eu tinha pesquisado anteriormente e mais fácil para continuidade do meu projeto.

Agradeço imensamente a ajuda dos amigos, tenho aprendido muito com vcs aqui no fórum.

Obrigado!! Valeu!!

Olá a todos,
Isaque, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço