MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Compartilhe

    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    Registrado : 17/04/2011

    [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Ter 25 Fev 2014, 00:01

    Boa noite, amigos.

    Na minha pasta do Dropbox tem uma pasta com arquivo que uso para pesquisar CID 10 (Código Internacional de Doenças). Esse é o link da Pasta:

    [Você precisa estar registrado e conectado para ver este link.]


    Gostaria de, através de um botão em meu formulario abrir o arquivo "pesqcid" que é .exe. Qual o código que devo usar no botão? Procurei no Forum e não consegui encontrar algo que me ajude.

    Tentei com o código:

    Private Sub Comando24_Click()
    Dim stAppName As String
    stAppName = "C:\Users\Walter\Desktop\CID 10\pesqcid"
    Call Shell(stAppName, 1)
    End Sub


    Mas aparece uma mensagem dizendo: "Arquivo cid10n4a.dic não encontrado". Mas o arquivo cid10n4a.dic está lá na pasta! E o aplicativo abre normalmente, se não for pelo botão do Access...

    O que pode estar acontecendo?
    Obrigado,

    Walter

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Dilson em Ter 25 Fev 2014, 14:13

    Olá Walter,

    Pesquise por shell

    Editado:
    Na busca rápida deu isso, veja:
    shell - [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    Registrado : 17/04/2011

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Seg 03 Mar 2014, 19:11

    Olá, Dilson.
    Boa tarde.
    Os exemplos que você enviou são para abrir arquivos Excel e Word. Não consegui adapta-los para a minha necessidade.

    Tem alguma outra sugestão?

    Já tentei vários códigos, como:

    1) Application.FollowHyperlink "C:\Users\Walter\Desktop\CID 10\pesqcid.exe"


    2) Dim wAplicativo As String
    Dim wArquivo As String
    wAplicativo = "C:\Users\Walter\Desktop\CID 10\pesqcid.exe"
    wArquivo = "c:\temp\carta.doc"
    Call Shell(wAplicativo & " " & Chr(34) & wArquivo & Chr(34), 1)

    3) Dim stAppName As String
    stAppName = "C:\Users\Walter\Desktop\CID 10\pesqcid"
    Call Shell(stAppName, 1)



    Um abraço

    Walter

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Dilson em Qua 05 Mar 2014, 14:19

    Experimente assim dessa outra forma:

    Por exemplo, o F1 nos disponibiliza o seguinte exemplo em que podemos executar um programa:

    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:\Users\Walter\Desktop\CID 10\pesqcid.EXE", 1)   ' Executa o programa.
    End Sub


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Avelino Sampaio em Qua 05 Mar 2014, 14:45

    Olá!

    Outra opção é usar a API SHELL. Veja como neste tópico:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    Registrado : 17/04/2011

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Dom 09 Mar 2014, 09:45

    Obrigado Dilson.
    Obrigado Avelino.

    Nenhum desses códigos conseguiu abrir/executar o Arquivo. Deve ser a estrutura do mesmo que não permite...

    Não importa. Consegui resolver o problema de outra forma: Enchi-me de coragem, sentei numa cadeira confortável e pus a mão na massa!
    Achei um exemplo de formulário que busca palavras por parte enquanto se vai digitando.

    Funciona exatamente igual ao Arquivo que eu estava tentando abrir.
    Veja o mesmo nessa página:

    [Você precisa estar registrado e conectado para ver este link.]

    Fiz algumas adaptações, copiei os dados da Tabela e inseri nesse aplicativo e.... U-Lá-Lá!
    Ficou perfeito.

    Já o inclui no meu BD, sem problemas.

    Veja como ficou nesse anexo.

    Muito obrigado a todos e um abraço.

    Walter
    Anexos
    Localiza-CID.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (555 Kb) Baixado 20 vez(es)

      Data/hora atual: Sab 03 Dez 2016, 15:33