[Resolvido]Teclas de Atalho

Boa noite a todos

Gostaria de uma ajuda

Uso este código abaixo para teclas de atalho, gostaria de uma ajuda como eu faria para usar em todos os meus formulários; Usar a tecla F12 sem ter que adicionar este código em um por um dos meus formulário, e se desta maneira ele funcionaria nos Sub-Formulários também.



If KeyCode = vbKeyF12 Then

Call Comando147_Click

KeyCode = 0

End If

End Sub



Sou grato pela atenção de todos

Qual é a versão do Access? Que código que o atalho executa?

2002XP

Esse atalho chama um evento. O que esse evento faz? Ele é comum a todo formulário e subformulário?

Criqueo
Como eu faria para usar em todos os meus formulários sem ter que adicionar este código em um por um dos meus formulário

Naldo, a pergunta que fiz no último post é para ter uma ideia da melhor forma de se fazer isso.

Desculpe-me.
Sim, chama o evento imprimir, gostaria de usar em todos os form. como padrão, bom seria se desse para usar a tecla Print Screen

Uma boa saída seria colocar o evento em uma função pública, em um módulo, usando Screen.ActiveForm.NomeDoBotão_Click. No evento click do botão, mudar private para public e chamar a função do módulo em uma macro AutoKeys. Eu não testei ainda e portanto não posso garantir que vá funcionar. Como não tenho aqui um aplicativo com essa estrutura para testar, se quiser pode colocar uma cópia do seu aqui ou enviar para ccsregistros@gmail.com que eu dou uma verificada.

Criquio lhe enviei o e-mail
Sou grato pela sua atenção

Vou dar uma olhada. Logo que entenda o processo, dou um retorno.

Vou deixar aqui uma dica. Veja se consegues colocar em prática:

Coloque nome de formulário e relatório relacionado parecidos, com diferença de incial. Por exemplo frmClientes e rltClientes;
Crie um módulo com uma função mais ou menos assim:

Public Function Imprime()
DoCmd.OpenReport ("rlt" & Mid(Screen.ActiveForm.Name, 4, Len(Screen.ActiveForm.Name) - 3)), acViewPreview
DoCmd.RunCommand acCmdPrint
End Function

Crie uma macro e salve como AutoKeys. Se a macro não estiver exibindo a opção "Nome de Macro", ative-a. Coloque no nome da macro {F12} e em Ação coloque ExecutarCódigo e coloque em Nome da função, o nome que demos para a nossa Function: Imprime()

Não consegui fazer funcionar por aqui Criquio, mas agradeço sua atenção

Vou deixar mais uns dois dias em aberto para ver se algum colega do Fórum me de uma luz com algum exemplo de estudos para eu conseguir realizar a função do teclado.
Grande abraço

Assim que tiver um tempinho, farei aqui.