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]Snipping Tool (Ferramenta de Captura)

    Compartilhe

    ravanifrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/03/2017

    [Resolvido]Snipping Tool (Ferramenta de Captura)

    Mensagem  ravanifrf em Ter 29 Ago 2017, 16:01

    Bom dia, Boa tarde, boa noite dependendo do fuso...

    Tenho um formulário de Welcome o qual faz o direcionamento para os outros formulários de meu BD, através de botões...
    Nesse formulário Welcome, gostaria de incluir alguns utilitários iniciados por botões como: Word, Calculadora e a Ferramenta de Captura do windows.

    Até aí tudo certo, pois após uma pesquisa breve descobri o comando "Shell", logo bastava colocar este comando no evento: 'Ao clicar' do botão.
    Ele, funcionou perfeito para o Word e Calculadora, no entanto a Ferramenta de Captura do Windows (SnippingTool) não...

    Segue os comandos já tentados e respectivos erros acusados pelo Access 2007:

    1. Shell "SnippingTool", vbNormalFocus
      Erro acusado:Erro em tempo de execução '53': O arquivo não foi localizado

    2. Shell "SnippingTool.exe", vbNormalFocus
      Erro acusado:Erro em tempo de execução '53': O arquivo não foi localizado

    3. Shell "C:\Windows\System32\SnippingTool", vbNormalFocus
      Erro acusado:Erro em tempo de execução '53': O arquivo não foi localizado

    4. Shell "C:\Windows\System32\SnippingTool.exe", vbNormalFocus
      Erro acusado:Erro em tempo de execução '53': O arquivo não foi localizado

    5. If Not Environment.Is64BitProcess Then
                 Process.Start("C:\Windows\sysnative\SnippingTool.exe")
             Else
                 Process.Start("C:\Windows\system32\SnippingTool.exe")
             End If
      Erro acusado:Erro em tempo de execução '424': O objeto é obrigatório

    6. Fazer uma cópia do aplicativo e chamá-lo com o Shell
      Erro acusado: É exibida uma MensageBox de ERRO, sem conteúdo algum.

    7. Um atalho para o aplicativo chamando-o com o Shell
      Erro acusado:Erro em tempo de execução '53': O arquivo não foi localizado


    Nada funcionou até agora...

    Quem puder me ajudar... Obrigado!

    ravanifrf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 20/03/2017

    Snipping Tool (Ferramenta de Captura)

    Mensagem  ravanifrf em Ter 29 Ago 2017, 17:55

    Bom dia, Boa tarde, boa noite dependendo do fuso...

    Funcionou com o código abaixo:
    Process.Start("C:\Windows\sysnative\SnippingTool.exe")

    O problema era que o Windows que uso era 64 bits e estava tentando abrir um programa de 32 bits, para isso usa-se 'sysnative'.

    Obrigado!!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Snipping Tool (Ferramenta de Captura)

    Mensagem  ahteixeira em Ter 29 Ago 2017, 18:34

    Olá Felipe,

    Estava aqui a testar e a ter o mesmo problema.
    Veja apesar de existir o ficheiro, o Access não reconhece.
    [Você precisa estar registrado e conectado para ver este link.]

    Desconhecia o "sysnative", é mesmo isso.
    Só prova que com o MaximoAccess é sempre aprender Wink

    Obrigado pelo retorno, os utilizadores do fórum agradecem.

    Abraço

      Data/hora atual: Qua 22 Nov 2017, 19:58