[Resolvido]Abrir Calculadora do Windows 10

Boa noite!

Dentre alguns exemplos para abrir a calculadora do windows, achei um que deu certo no meu... um botão em um formulário com o código:

Call Shell("calc.exe", vbNormalFocus)

Porém fica inviável colocar esse botão em todos os forms... Teria alguma forma onde, ao apertar a tecla F10, o sistema abrir a calculadora?

Obs.: Tenho uma macro AutoKeys onde utilizo para algumas funções tipo: ao apertar F2 o form atual exibe uma caixinha que contém o nome da tela, ao apertar Ctrl+E, abre-se o form de envio de e-mail, etc. No caso, é possível configurar nessa macro para que, ao apertar F10 o sistema abra a calculadora do windows, independentemente da tela que o usuário estiver? Como faço isso?

bom dia Krauss eu vou tentar aqui se eu consegui envio pra vc so lembrando que meu Windows 7 não sei se é igual
mais podemos tentar


abraço

bom dia veja como ficou este exemplo
so lembrando meu Windows7


abraço

Boas Marcelo! Obrigado pela disposição!

Infelizmente não funfou... não acontece nada quando aperto.

boa tarde, aqui no meu funcionou você fez o teste neste exemplo que envie? faz um teste somente com ao pressiona a tecla coloque uma mensagem no lugar da linha que chama a calculadora
,pega esta linha que chama a calculadora coloca em um botão no evento ao clicar e retorne


estou usado Windows7 Office 2010


aguardo

Krauss, tente ai:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 121 Then

 Call Shell("C:\Windows\System32\calc", 1)
End If

End Sub

o Codigo ASCii da tecla "F10" é 121

Qual a versao do access que vc utiliza?

Bom dia

O exemplo que o tauron postou funcionou no meu W10. Não fiz através de uma macro como você precisa, mas em dois formulários do meu sistema. Fiz o teste aqui como curiosidade, para ver como funciona. Uso Access 2013.

Abraço.

Entao galera eu uso o Win10 e office 2013 tbm. E quanto ao codigo eu apenas alterei o keycode do exemplo do marcelomarques, os creditos sao dele.

Oi Tauron, boa noite, obrigado pela dica,

Peço desculpa por reabrir um topico [resolvido] em 2017 mas se trata de uma resposta que voce deu no forum sobre duvida de como chamar a calculadora do windows no access utilizando a tecla F10

Como e onde colocar esse Form (abaixo) para abrir a calcular do windows em qualquer dos formularios do meu BD ?

Fiz o procedimento de chamar a calculadora por um botão , mas para alguns formularios com falta de espaço complica e ainda fica muito codigo repetido no BD.

(eu utilizo o WIN 10 e Office 2016 )

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 121 Then

Call Shell("C:\Windows\System32\calc", 1)
End If

End Sub

obrigado,

Adilson

Caro Adilson,
Sem problemas, vamos la.

Vale lembrar que na aba evento, das propriedade do formulario, a opção "visualizar teclas" deve ser SIM:

1- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Esta linha informa que é um comando para o formulario (confesso que ainda não tinha pensado em todos os formulários)

2 - If KeyCode = 121 Then
Aqui determino uma tecla

3 - Call Shell("C:\Windows\System32\calc", 1)
Aqui o que acontece quando apertar a tecla


4 - Encerro a função/condição
5 - Encerro o codigo

uma outra variação do codigo pode ser (prefiro utilizar mais esta):

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbkeyF2: Call btnNovo_Click
Case vbkeyF3: Call btnDesfazer_Click
Case vbKeyF4: Call fncgravar
Case vbKeyF10: Call Shell("C:\Windows\System32\calc", 1)
Case vbKeyEscape: Call btnFechar_Click
End Select
End Sub

Oi Tauron, bom dia,

Simplesmente genial, voce foi direto no meu erro ("lembrar que na aba evento, das propriedade do formulario, a opção "visualizar teclas" deve ser SIM") , depois dessa aula nao tem como errar,

Gostei mais da segunda opção que voce colocou "Case" e mais flexivel e tem opção de mais teclas, acho que com isso houve um UP para duvida de 2017;

Depois se encontrar uma solução que atende todos formularios seria legal, mas minha duvida ta bem resolvida e colocado em pratica,

valeu de verdade,

obrigado,

Adilson

Que bom que resolveu sua questao. Mas sim, vou verificar sobre disponibilizar a todo o sistema.

Olá a todos,

Segue em anexo uma forma simples de fazer o pretendido (Bruno Krauss).
Método utilizado Macro Autokeys.

Abraço e bons estudos

Obrigado Alvaro, eu poderia olhar a questao somente a noite.

Adilson, o mestre ahteixeira, já deu a resposta que ficou pendente.

Acreditando que vc tenha utilizado o keyDown para outras funcionalidades, delete a linha referente a calculadora e importe para seu projeto o modulo e a macro contidos no exemplo do ahteixeira.

Alvaro e Tauron, obrigado a ambos,

Ces sao fo**** mesmo, so que ao inves de importa o modulo e macro escrevi na mão ( tem que por a mao na massa so assim grava na memoria kkkk), mudei pra tecla F11, e rodou redondo perfeitamente, inclusive em qualquer formulario e tudo fechado,

grato aos dois,

obrigado,

Adilson

Olá a todos,

Fico feliz por ter ajudado.
Como o tópico é de 2017 e ficou provado que a solução funciona, vou dar o tópico como Resolvido.

Abraço a todos