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

Depois que abre o Geno.. e importa o nome.. ele vai para a caixa texto... ai voce tem que salvar o registro...

Aqui da certo amigão...

Cumprimentos.

Veja:

Alguma coisa está acontecendo que está impedindo o Código de Buscar o Genograma.
Fiz como você falou e os genogramas estão ficando salvos na pasta correta. O endereço está indo para a tabela, fica armazenado lá. No campo genograma do formulario aparece o nome do genograma salvo.... Mas... ao clicar em "Ver Genograma" ele não busca.
Mesmo no arquivo que voce modificou, não funcionou em meu computador. Por favor, Piloto, tente com mais de um registro para ver se no seu computador funciona. Se funcionar o problema será do meu computador, já que só mudei o endereço da Pasta para encontrar o GenoPro...

Muito obrigado,
Walter

Ola Walter,também fiz aqui como o Piloto comentou,no meu computador faz assim:eu abro o cadastro das familias,clico em fazer genograma,ele vem, faço algum cadastro ali,salvo ele,e ao clicar pra ver genograma abre a pasta com todos os cadastros feitos e não um por um entende,ai se tem de escolher o qual que quer.

Abçs.

É isso mesmo que está acontecendo... Mas, aquela caixa de texto que tem no Formulário (txtGenograma, se não me engano) deveria servir para o código "Busca Genograma" ir ao campo da tabela e abrir no registro especifico, não é? Por que será que não está fazendo?

A caixa texto txtGenograma comporta o nome do genograma criado....

Selecione um titular da familia.... clique em fazer... faça o genograma e salve com o nome que desejar.... Ex: Fulano.gno.
Depois clique no outro botão.. abrirá na pasta onde estão todos os genogramas, selecione Fulano.gno, este nome será gravado na caixa texto txtGenograma, e consequentemente no campo Genograma...

Se clicar para abrir o genograma novamente abrirá o genopro no genograma Fulano.gno.

Está funcionando perfeitamente.

Cumprimentos.

Boa noite, Piloto.

Obrigado pela sua atenção, amigo.
Infelizmente, não funcionou no meu computador, e, parece que com o Kaynan também não.
Você testou com vários genogramas? Parece que ele abre, sempre, no último que foi salvo...
Amanhã vou testar em outra máquina, pois se está funcionando na sua, so pode ser problema do computador, não é?

Um abraço,

Walter

PIloto como eu ja to metido nesta lida que tambem me enteressa,ta acontecendo assim:Abri o formulario familia e selecionei o primeiro da lista "Agnos Jose da Rocha"cliquei em criar genograma aparece o genograma, eu cadastro o Agnos Jose da Rocha,salvo com o mesmo nome,clico em ver genograma,abre a pasta e ali esta o Agnos,seleciono ele, clico em abrir e aparece o sugeito tudo certinho ok,Agora seleciono outra pessoa "Albertina Barroso" faço todo o procedimento outra vez,ela fica gravado na pasta Genograma junto é claro com Agnos,MAs quando seleciono o Agnos no formulario familias e clico em ver genograma que seria o genograma dele, não vem o dele, e sim outro genograma em branco pra cadastrar,é isso que esta acontecendo no abençoado.

Esta certo... o Código correto para o botão ver genograma:
\

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

cumprimentos.

Piloto com esse código da erro 53 e arquivo não encontrado.
Obs:a pasta do Genograma foi criada na area de trabalho,tem alguma importancia.

No meu também não funcionou... E a pasta de Genograma fica dentro da pasta que contem o aplicativo. Mas não abre o GenoPro.

Se voces observarem o código poderia perceber que a pasta deve obrigatoriamente onde se encontra o BD. observe:

InitDir = CurrentProject.Path & "\Genogramas"

CurrentProject.Path >>>> Significa caminho do projeto atual..

O Código não contem mais erros.

Cumprimentos.

Eis.. sem erros... este tópico está demasiado exaurido.

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

Cumprimentos.

Olá, Piloto.
Ufa! Agora, sim! Funcionou do jeito que eu precisava. Está perfeito. Peço desculpas pelo tempo que você perdeu comigo dessa vez. Realmente o tópico ficou muito grande, mas é que essa ferramenta é imprescindível nesse projeto. Mais uma vez deixo meus agradecimentos a você e ao Forum que têm me ajudado muito nessa minha aventura no mundo do access...

Prezado amigo Kaynan.
Conseguiu fazer funcionar no seu computador? Esse último código está perfeito! Apenas, nos códidos dos botões (Ver Genograma e Fazer Genograma) você deve retirar o (x86) se o Windows não for 64 bits. Conseguiu abrir o projeto completo? Qualquer coisa envie-me um e-mail. Estou pensando em implementar um botão "Cartão de Vacinas" no Prontuário Individual, que talvez seja útil para sua esposa... Mas isso é ouytra história.

Abraços a todos.

Perfeito Walter funcionou direitinho,e a respeito do cartão de vacinas no prontuário individual,poxa é uma boa mesmo,fazendo isso me da um toque, será muito útil mesmo.
Obrigadão amigo.
Piloto voce é o cara, um dia vou entender dessa lida igual voce.
Abçs a todos.

So faltou o resolvido no tópico, desta vez eu coloco.

Cumprimentosn.