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]Qual o código para abrir uma pasta e executar um arquivo dela?

    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em 25/2/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:

    https://www.dropbox.com/sh/26vew4dl4j2jxeg/tu3pcBfd1U


    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
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 25/2/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?
    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em 3/3/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
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em 5/3/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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em 5/3/2014, 14:45

    Olá!

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

    http://www.maximoaccess.com/t15518-resolvidoerro-na-funcao-de-chamada-do-teclado-virtual

    Sucesso!
    Walter
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em 9/3/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:

    http://www.accessfaq.com.br/webroot/default.asp?http%3A//www.accessfaq.com.br/webroot/detalhe.asp%3FPergunta_Id%3D48

    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
    [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela? AttachmentLocaliza-CID.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (555 Kb) Baixado 24 vez(es)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 18:41