[Resolvido]Abrir arquivo de outro programa no access, especifico para cada registro

Bom dia a todos.
Meu banco de dados está emperrado no seguinte problema. Tem um botão que abre um programa externo ao access chamado GenoPro, que faz genogramas familiares (tipo árvore genealógica). Quero fazer um Genograma para cada familia. Consigo abrir o programa atraves do botão FazerGenograma, com o código:

Dim stAppName As String
stAppName = "C:\Program Files\GenoPro\GenoPro.exe"
Call Shell(stAppName, 1)

Porém não sei como fazer para salvar o Genograma feito na tabela da familia (já criei um campo "Genograma" na mesma). E não sei como fazer para, ao clicar no outro botão "Ver Genograma" o mesmo ser aberto. Lembrando: cada familiacadastrada deverá ter um genograma específico.
Vou anexar parte do BD para quem puder dar uma olhada.
Alguém pode me ajudar?

Este Genograma é salvo em que formato?

cumprimentos.

Boa tarde, Piloto.

Os arquivos do GenoPro são salvos em formato proprio, com a extensão .gno; preciso que ele abra dentro do GenoPro para que possa ser editado, entende? Pois o genograma de uma familia é dinâmico: nascem pessoas, morrem pessoas, outras mudam de casa, etc.

Tem como enviar o arquivo link desse genograma,estou juntamente com o Piloto desenvolvendo um bd para Agente de Saude.
Abçs.

O GenoPro pode ser baixado gratuitamente nesse site:

http://www.genopro.com/family-tree-software/

O genograma é uma ferramenta muito interessante para trabalhar com O Programa de Saúde da Familia (PSF) e portanto os Agentes de Saúde se beneficiarão muito se voces incluirem o mesmo no Aplicativo que estão desenvolvendo. esse Cadastro de Familias que estou fazendo também é para o PSF.

Acabei de baixar o GenoPro,existe algum manual em portugues dele.

Se te entereçar to desenvolvendo esse bd,achei aqui no forum e to adaptando junto com o mestre Piloto mais algumas coisas nele.

https://dl.dropboxusercontent.com/u/90217826/ACSagente2.rar

Abçs.

Olá Kaynan.

Veja esse arquivo. Ele mostra como utilizar o GenoPro, mas nãotem segredo nenhum, voce vai ver como o GenoPro é facil de usar. Qualquer um faz...
Obrigado por enviar o seu BD. O que estou fazendo também está a disposição. Ok? Dipsonibilizei apenas parte dele no inicio deste post. Se te interessar posso envia-lo completo. (Quase completo, pois não consegui acrescentar o GenoPro, se você souber o caminho das pedras, seria ótimo...

Isso amigo, envia esse que esta completo que te ajudarei no que puder.

Abçs.

Muito bem, Kaynan.
Acho isso legal. A gente vai "trocando figurinhas" e crescendo juntos...

(Tentei anexar mas não deu: arquivo maior que o permitido. Tem um e-mail que eu possa enviar?)

Uma pergunta... ao clicar duas vezes no arquivo gerado pelo GenoPro, o mesmo é aberto através do GenoPro?

Cumprimentos.

Waiter meu e-mail.rachidsilva@yahoo.com.br

Tente adaptar:

Código:

Call Shell("C:\Program Files\GenoPro\GenoPro.exe ""C:\My files\Imagens\aaa\" & Me.NomeCampo & ".gno""", 1)

No caso acima estou supondo que o arquivo esteja no caminho "C:\My files\Imagens\aaa\" e o nome dele está em um campo no formulário. Veja se adapta para o seu caso.

Com ajuda do Mestre Críquio... este código abre um arquivo pdf através do FoxIt... podes tentar adaptá-lo para o Geno..

Call Shell("C:\Program Files\Foxit Software\Foxit Reader\Foxit 
Reader.exe ""C:\My files\Imagens\aaa" & Me.lstLogin.Column(1) &
 ".pdf""", 1)

Cumprimentos.

Mestre dos Magos.... inda bem que citei a fonte... hehehe

Abraços.

Instalei o GenoPro.. criei um pequeno exemplo e percebi que o arquivo abre ao clicar no mesmo....

A ideia seria...

1 - Botão para abrir o GenoPro...
2- Outro botão para abrir a pasta onde se salva o arquivo, seleciona-lo e gravar o caminho e nome em uma tabela
3 - No Botão para abrir o GenoPro, antes uma verificação se existe o arquivo gerado, caso positivo abre o mesmo lendo o caminho da tabela com o auxilio do código postado pelo Mestre Criquio.

Cumprimentos.

Boa noite, Piloto, e obrigado pela atenção.

Desculpe. Não entendi sua pergunta.

Olá, Piloto.
Acho que é isso mesmo! Esses 3 passos que você imaginou devem resolver o meu problema. Como se faz isso?
O primeiro passo é tranquilo. Já consegui.
Mas e o segundo e o terceiro?

Aí, Kaynan.
Enviei o arquivo para o seu e-mail. Faça bom uso...
Um abraço.
Walter

Envie-me o sistema completo...
E cite qual o form que está a fazer isto.. tabelas.. e onde armazenará o caminho.

Harysohn@hotmail.com

Cumprimentos.

Ok. Piloto.
Enviei para o seu e-mail.

Obrigado.

Walter

Walter ainda não veio teu bd.
rachidsilva@yahoo.com.br

Ok.. assim que possível verei isto pra ti.

Cumprimentos.

Boas Walter.. estou com teu sistema.. porem todas as dúvidas devem serem encaminhadas via fórum, ok?


Segundo o Walter:

Fml_CadastroFamilias (à direita tem um retangulo azul onde tem duas
informações: Risco Familiar (que já está funcionante) e Genograma.
Nesse tem 2 botões Ver Genograma (do registro atual) e Fazer Genograma
(abrir o GenoPro em "Novo").

O endereço do arquivo dverá ir para a Tbl_Titular , no Campo: Genograma

Cumprimentos.

Me fale como será sua estrutura de pasta...
Onde ficarão gravados o genogramas..

Cumprimentos.

Bem. Deverá ser assim: No Desktop uma pasta chamada "Cadastro das Familias". Dentro desta pasta terá o Aplicativo e mais duas pastas "Fotos" e "Genogramas", obviamente uma para armazenar as Fotos dos Membros da Familia e a outra para armazenar os Genogramas.

Walter esperimenta me enviar outra vez que chegou mas não consigo baixar.

Pilto esperimenta me enviar o bd do Walter completo,deu algum robelma e ele nao coseguiu enviar pra mim,de,varias coisas neste bd dele que poderei adaptar no meu bd.
Abçs.

Vamos lá amigão...

1 - Utilizei módulos para abrir a janela de diálogo, te enviarei o BD com apenas este módulos, copie no teu. São eles:
sjmFileDialog
sjmFileOp
sjmFolderDialog

2 - Crie uma sub-pasta na pasta do BD e nomeeie de Genogramas, nesta pasta você salvará o genograma com o nome do titular

3 - Crie uma caixa texto e nomeeie como Genograma no form, podes deixar em oculto, esta caixa texto será acoplada no campo Genograma

4 - Nas declarações do form crie uma variável, esta poderá ser lida em qualquer procedimento:
Option Compare Database
Dim StrGenograma As String

4 - Crie uma sub no formulário que chamará a janela de diálogo e carregará a variável StrGenograma:

Sub PegaGenograma()
On Error Resume Next
    Dim File As Variant

    'Create a file open instance
    With New sjmFileDialog
        'This will open the dialog over our form
        '(form must be popup for this to work)
        .HWND = Me.HWND
        '
        'What to display to the user (in title bar)
        .Caption = "Selecione a Genograma"
        'Initial directory
        .InitDir = CurrentProject.Path & "\Genogramas"
        'Add some file filters to the "filter list"
        .AddFilter "Arquivos de Genograma", "*.gno"
        '.AddFilter "Todos Arquivos", "*.*"
        '
        'Set some flags
        .FileMustExist = True
        .PathMustExist = True
        .MultiSelect = False
        .NoChangeDir = True
        '
        'Tell the class which operation to perform
        .Action = "Abrir"
        'Process the dialog
        .Execute
        If Not .UserCancel Then
            'User clicked Ok, so
                  StrGenograma = .ReturnFile

            StrGenograma = Mid(.ReturnFile, InStrRev(.ReturnFile, "") + 1)
        End If
    End With
End Sub

5 - e no botão ver genograma:

Private Sub BtaoVerGenograma_Click()
Dim StrCaminho As String
If IsNull(Me.Genograma) = True Or Me.Genograma = "" Then
    Me.PegaGenograma
    Me.Genograma = StrGenograma
    StrCaminho = CurrentProject.Path & "\Genogramas" & StrGenograma
    Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
Else
    Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
End If
End Sub

Cumprimentos.

Kaynan. Aguarde ele aplicar as correções e creio que ele te enviará.. o arquivo tem 16 mb e minha net e lenta...

Cumprimentos.

Bom dia.
Fiquei com algumas dúvidas na hora de fazer os acréscimos que você sugeriu...

1) Nas declarações do form crie uma variável, esta poderá ser lida em qualquer procedimento.Como faço isso? Em qual controle? Em qual evento?
2)Crie uma sub no formulario... ( Como faço isso? Em qual evento e de qual controle?

Obrigado.

Walter

Walter poderia me emviar novamente o bd,porque não consegui abrir.
Abçs.

Bom dia Walter, tudo que tens que fazer está abaixo de cada quesito.

Tem a explicação em negrito e o que fazer logo abaixo.

- A sub que tem que criar é no módulo do form.. A sub PegaGenograma

- Criar uma variável nas declarações do modulo do form é logo abaixo da expressão Option Compare Database..

tudo está ai.

Cumprimentos.

Piloto voce sendo um rapaz entendido,me diga,chegou o arquivo do Walter no meu e-mail.
MAs diz assim:Norton antivirus dectou um virus [Container sizer violation-scan incomplete]este arquivo não foi baixado,oque sera que deu nesse abençoado.

Boa tarde, Kaynan.
Vej em seu e-mail, enviei novamente, agora compactado com Winrar para ver se voce consegue abrir.
Ok?

Será que fiz alguma coisa errada?
Deu uma menagem de êrro ao clicar no Botão "Ver Genograma":

Erro de compilação
Método ou membro de dados não encontrado.

E, no código fica:

Private Sub BtaoVerGenograma_Click()
Dim StrCaminho As String
If IsNull(Me.Genograma) = True Or Me.Genograma = "" Then
Me.PegaGenograma Essa expressão fica selecionada
Me.Genograma = StrGenograma
StrCaminho = CurrentProject.Path & "\Genogramas" & StrGenograma
Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
Else
Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
End If
End Sub

Boas Walter, veja na mensagem 28, item 4... copie a Sub PegaGenograma e cole no módulo do formulário...
Esta é uma função que será chamada.. justamente onde a linha fica em vermelho.

Cumprimentos.

Boas Kaynan.....

E porque o Antivirus entende arquivos mdb e accdb como de risco pontencial pois poderia conter códigos nocivos ao micro...

Cumprimentos.

Ola Piloto,quando acontece isso tem alguma outra forma de baixa-lo.
O Walter me enviou novamente compactado com o Winrar, isso foi as 12:30 e ainda não chegou o abençoadinho.
Obs:Se eu for buscar de motoca demora um pouquinho srsrsrssr.

O mesmo aconteceu comigo... porem apareceu acima perto do menu o nome do arquivo.. algo assim.. eu cliquei e baixou.

Cumprimentos.

Piloto se der compacte esse bd do Walter e me envie,quem sabe ai de você da certo de vir até aqui.
rachidsilva@yahoo.com.br

Até.

Ainda não está carregado no DropBox... aguarde para baixar, eis:

https://dl.dropboxusercontent.com/u/26441349/Walter.rar

Cumprimentos.

Valeu Piloto, obrigadão, amanhã vou ai te pagar uma cervejada heheheh.
Abçs amigo.

Obrigado também Walter.

Não por isso Kaynan... eu gostei bastante do trabalho do Walter...

Cumprimentos.

He!he!he!
Isso, prá mim, é um grande elogio.
Apenas prá você saber: Esse Forum foi meu mestre no meu mergulho no mundo do Access. O pouco que sei aprendi aqui.
Você mesmo, Piloto já resolveu muitos dos meus problemas com o Access e busco sempre os tópicos e o repositório.
Só tenho a agradecer a vocês...

Mas "voltando à vaca fria", aquele erro anterior ficou resolvido, mas:
Como faço para salvar o Genograma que fiz para uma familia?
Posso salva-lo com qualquer nome? Com o número do Prontuário? Com o CódigoTitular?
Como o módulo vai encontra-lo na pasta Genogramas?
Do jeito que ficou agora, eu faço o genograma e salvo na pasta correspondente, mas ao clicar no botão "Ver Genograma" dá a mensagem:

Erro 53: "O Arquivo não foi encontrado"

Abraços,
Walter

Baixe o que fiz... Voce salva o genograma.. depois ao clicar no botão ver.. voce abre o genograma que criou.. e o nome do memso é salvo no registro da familia....
Pode salvar com o nome do titular ou mesmo o código.... Este nome ficara registrado no campo Genograma.. a a proxima vez que clicar em ver genograma ele será lido e utilizado para abrir o mesmo.

Cumprimentos.

Bom dia, Piloto e amigos do forum...

Mesmo o teu exemplo não quer funcionar no meu computador...
Agora ele dá erro dizendo que não enconta o caminho.

No código abaixo você colocou (x86) que não sei o significado mas desconfio que pode estar impedindo o access de encontrar o arquivo. O mesmo acontece com o outro código. Tentei retirar o (x86) de ambos os códigos mas também não funcionou.

Private Sub BtaoVerGenograma_Click()
Dim StrCaminho As String
If IsNull(Me.Genograma) = True Or Me.Genograma = "" Then
Me.PegaGenograma
Me.Genograma = StrGenograma
StrCaminho = CurrentProject.Path & "\Genogramas\" & StrGenograma
Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
Else
Call Shell("C:\Program Files (x86)\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
End If
End Sub

O outro código

Private Sub Comando52_Click()
Dim stAppName As String
'stAppName = "C:\Program Files\GenoPro\GenoPro.exe"

stAppName = "C:\Program Files (x86)\GenoPro\GenoPro.exe"
Call Shell(stAppName, 1)
End Sub


O que pode estar acontecendo?
Um abraço,

Walter

Qual a versão do teu Windows?

Cumprimentos.

Windows 7. Home Premium - 32 bits

Ok... este (x86) é a pasta onde são instalados os programas no windows 7 64 bits.. como o seu é 32 a pasta C:/Arquivos de Programas..

Veja onde está instalado o GenoPro.... Abra o explores.. abra arquivos de programas, abra GenoPro.. depois clique onde fica o caminho na parte superior do navegador.. cole.. e substitua...

Tem que ver se esta escrito ProgramFiles ou Arquivos de programas..


Cumprimentos.

Bom dia, Piloto.
Só agora de manhã pude olhar o aplicativo novamente. Final de semana com plantão pesado...

Tenho dado muito trabalho prá você, mas ainda não funcionou legal.
Veja: Fiz como voce falou. O endereço para o GenoPro, no meu computador é
"C:\Program Files\GenoPro\GenoPro.exe"

Os códigos ficaram assim:

Para abrir o GenoPro...

Private Sub Comando52_Click()
Dim stAppName As String
stAppName = "C:\Program Files\GenoPro\GenoPro.exe"
Call Shell(stAppName, 1)
End Sub

Para abrir o GenoPro num registro especifico:

Private Sub BtaoVerGenograma_Click()
Dim StrCaminho As String
If IsNull(Me.Genograma) = True Or Me.Genograma = "" Then
Me.PegaGenograma
Me.Genograma = StrGenograma
StrCaminho = CurrentProject.Path & "\Genogramas\" & StrGenograma
Call Shell("C:\Program Files\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
Else
Call Shell("C:\Program Files\GenoPro\GenoPro.exe """ & StrCaminho & """", 1)
End If
End Sub

Porém o GenoPro abre sempre em "Novo", aí tenho que clicar em abrir, ir na pasta genogramas e escolher na lista o genograma que quero. Dá certo, mas fica pouco prático. Tentei várias vezes, e apesar do caminho estar gravado na tabela, o código não consegue busca-lo...