MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    Criar macro para abrir um arquivo executável

    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 16/03/2014

    Criar macro para abrir um arquivo executável Empty Criar macro para abrir um arquivo executável

    Mensagem  Cleniroweb Sab Maio 24, 2014 11:08 am

    Caros colegas,

    Preciso abrir um arquivo executável que se encotra dentro do diretório C  (C:\\Robô), que ao ser aberto através de um botão, irá comandar algumas rotunas do access, no entanto, não sei como, portanto, peço ajuda dos ilústres colegas.

    Obrigado,
    Cleniro.
     Embarassed 
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    Criar macro para abrir um arquivo executável Empty Criar macro para abrir um arquivo executável

    Mensagem  toyebom Sab Maio 24, 2014 11:56 am

    Não é necessário macro é só colocares no evento do botão ao fazer click

    Use isto:

    Código:
    Call Shell("Digite aqui o caminho completo do programa", 1)

    Exenplo:

    Código:
    Call Shell(""C:\Robô\nomedoprograma.exe", 1)

    Ou então assim:

    Código:
    Private Sub SeuBotao_Click()
    ' Especificar 1 como o segundo argumento abre o aplicativo em
    ' tamanho normal e o coloca em foco.
    Dim RetVal
    RetVal = Shell("C:\NomeDoPrograma.EXE", 1)   ' Execute o Programa.
    End Sub

    Vê tambéma qui:

    http://www.tomasvasquez.com.br/artigos/Dicas/vba_shellexecute.html


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 16/03/2014

    Criar macro para abrir um arquivo executável Empty Re: Criar macro para abrir um arquivo executável

    Mensagem  Cleniroweb Seg Maio 26, 2014 12:02 am

    toyebom,

    E tem também algum comando para fechar a execução deste mesmo aplicativo executável, exemplo, já tenho uma mensagem VB no final do access que é o seguinte: "Processo finalizado com sucesso" e, no botão "Ok", quero colocar um comando para fechar esse executável.


    Obrigado desde já,
    Cleniro,
     Question 
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    Criar macro para abrir um arquivo executável Empty Criar macro para abrir um arquivo executável

    Mensagem  toyebom Seg Maio 26, 2014 3:39 pm

    Isso não conheço não sei se dá, posta no forum pode ser que alguém conheça.

    Vi isto noutro forum não sei se funciona

    Exemplo:
    Abram a calculadora e executem a instrução abaixo, num botão por exemplo

    Shell Environ("Comspec") & " /C taskkill /IM calc.exe"

    Environ("Comspec") traz o caminho do cmd (Command DOS)
    /C faz a janela DOS encerrar após processar a instrução
    taskkill é o comando para finalizar tarefa
    /IM significa Image Name (Nome da imagem, do arquivo, do processo)
    calc.exe nome da aplicação/processo a finalizar

    http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/7307010143


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10665
    Registrado : 04/11/2009

    Criar macro para abrir um arquivo executável Empty Re: Criar macro para abrir um arquivo executável

    Mensagem  JPaulo Sex Maio 30, 2014 1:45 pm

    Somente assim já fecha, é o que eu uso;

    Private Sub SeuBotão_Click()
       Shell "TaskKill /F /IM ""calc.exe"""
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Criar macro para abrir um arquivo executável Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Criar macro para abrir um arquivo executável Folder_announce_new 102 Códigos VBA Gratuitos...
    Criar macro para abrir um arquivo executável Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: Sab Jan 22, 2022 2:15 pm