MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Abrir Calculadora do Windows 10

    Krauss
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  Krauss em 12/5/2017, 23:55

    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?


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  marcelo marques em 13/5/2017, 11:32

    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  marcelo marques em 13/5/2017, 13:37

    bom dia veja como ficou este exemplo
    so lembrando meu Windows7


    abraço
    Anexos
    [Resolvido]Abrir Calculadora do Windows 10 Attachmentcalculadora.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 50 vez(es)
    Krauss
    Krauss
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 23/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  Krauss em 13/5/2017, 19:25

    Boas Marcelo! Obrigado pela disposição!

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


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  marcelo marques em 13/5/2017, 20:02

    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
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1169
    Registrado : 07/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  tauron em 13/5/2017, 20:25

    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?
    avatar
    enio.eltz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 19/07/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  enio.eltz em 15/5/2017, 13:11

    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.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1169
    Registrado : 07/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  tauron em 15/5/2017, 21:33

    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.
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/07/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  AdilsonSantos em 6/12/2019, 01:24

    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
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1169
    Registrado : 07/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  tauron em 6/12/2019, 01:32

    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
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/07/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  AdilsonSantos em 6/12/2019, 13:10

    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
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1169
    Registrado : 07/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  tauron em 6/12/2019, 13:33

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 15/03/2013

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  ahteixeira em 6/12/2019, 14:40

    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
    Anexos
    [Resolvido]Abrir Calculadora do Windows 10 AttachmentAutokeys.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 10 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1169
    Registrado : 07/12/2011

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  tauron em 6/12/2019, 17:20

    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.
    avatar
    AdilsonSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/07/2016

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  AdilsonSantos em 6/12/2019, 18:39

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6554
    Registrado : 15/03/2013

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  ahteixeira em 7/12/2019, 09:18

    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

    Conteúdo patrocinado

    [Resolvido]Abrir Calculadora do Windows 10 Empty Re: [Resolvido]Abrir Calculadora do Windows 10

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/4/2020, 17:42