[Resolvido]Terminar Projecto de correspondencia

Boa Tarde antes de mais queria agradecer a todos por ajudarem a desenvolver este projecto
http://maximoaccess.forumeiros.com/u307 - JUNGLI
http://maximoaccess.forumeiros.com/u27077 -  rdrck
http://maximoaccess.forumeiros.com/u3009  -  Silvio
e mais recentemente
http://maximoaccess.forumeiros.com/u10192  -  Fernando Bueno
http://maximoaccess.forumeiros.com/u10  -  Alexandre Neves


venho pedir a todos mais uma ajuda se possivel
Como esta  na imagem há possibilidade de eu meter alguma coisa  na parte riscada que possa aceder ao pdf/ ou ao formulário já existem que corresponde a cada registo.
Ex: clico no link que esta para o registo 3 e no formulário correspondência abre já no 3
Nota: o pdf não esta carregado no Access
Vou meter em anexo o projecto para  facilitar  tudo

Obrigado a todos

Olá,

Na estrutura da Tabela1  altera o campo ArqCaminho para o tipo Hiperligação.



Depois deves incluir o campo no formulário Consulta.

Muito Obrigado Pela Pronta resposta mas a min ainda me da um pequeno problema ja esta tudo, apenas nao esta abrir a hiperligação do que sera?
Obrigado pela ajuda.

Olá

No campo ArqCaminho deve estar o caminho completo com o nome do ficheiro e extensão.

No entanto vai base de dados onde efetuei teste.

Muito Obrigado pela sua disponibilidade
Esta ajudar muito
De facto o seu esta a dar a hiperligação mas assim que eu tento adicionar um novo pdf começa a dar erros em todo o lado
E o meu esta todo igual a esse com a forma de hiperligação mas assim que eu carrego não abre

Olá,

O erro deve-se ao facto de se ter alterado o campo de texto para hiperligação.
Estive a verificar e aparece o caminho entre o caráter #

A solução passa por encontrar outra alternativa para resolver a questão colocada neste tópico, voltando a colocar o caminho do tipo texto

Ou

Caso pretendas utilizar como sugerido por mim campo tipo hiperligação.
Teremos que desenvolver código para retirar o # no inicio e fim.
E testar se resolve.

De momento estou no telemovel. Amanhã tento disponibilizar.

Deves também compilar o código, esta a dar um erro na seguinte instrução:

Kill clicaCMD0()

Boa Tarde, pois o erro é mesmo de ser alterado de texto para hiperligação
Em relação em alterar o carácter # não é possível  porque ele é que divide o  pdf em partes e já tenho carregado quase 3000 pdf's
A mim nunca me deu erro ai Kill clicaCMD0()
Esta tudo a funcionar correctamente a meu ver só quando alterei para hiperligação é que deu vários erros mas nenhum deles foi ai.


Em relação a alternativas

Private Sub nArqParte01_Click()
   DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & Me.nArqParte01
End Sub

Ate foi boa a ideia mas esta a dar erro

alterei agora assim esta quase, quase

Private Sub nArqParte01_Click()
DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & "Me.nArqParte01"
End Sub

ao aparecer aquela caixinha se eu escrever o numero ele vai para o outro forme mas caso eu cancele ele da erro

Olá,

Então vamos esquecer a hiperligação e voltar ao inico.

Utilizei o seguinte código para abrir ficheiro.

http://access.mvps.org/access/api/api0018.htm

Espero que esteja conforme pretendido.

Relativamente ao erro ao compilar, p.f. verifica numa copia antiga.

Mantem erro ao compliar

Olá amigos

Só um pitaco:

Aqui:  

Private Sub nArqParte01_Click()
DoCmd.OpenForm "Correspondencia", , , "[nArqParte01]=" & "Me.nArqParte01"
End Sub

Só faltou a aspa simples  no "Me.nArqParte01"  para informar ao Access que é String então essa parte ficaria assim:

"'Me.nArqParte01'"

Aqui só deu erro apos carregar o formulário correspondencia por não ter nenhum arquivo.pdf.
Ou seja o erro foi no browse.

Uma pergunta: Se quer mostrar os pdf's contido numa pasta,no webbrowse,
porque não lista esses pdf's numa caixa de combinação/caixa de listagem? Evita esse código cabeludo do botão exibir PDF.    

Abraços

Noob

Noobezinho bem vindo,

Relativamente ao código, foi uma alternativa, uma vez que permite colocar qualquer tipo de ficheiro e proceder à abertura com o respectivo programa.

No entanto vamos aguardar o retorno do Tiago Branco.

Boa tarde aos dois,
Muito Obrigado pelas Vossas preciosas ajudas já resolvi isto
Já esta tudo em ordem
Optei por alterar as variáveis e ir a partir da chave primaria o ID já esta a correr tudo normal


Private Sub ID_Click()
DoCmd.OpenForm "Correspondencia", , , "[ID]=" & Me.ID
End Sub

Obrigado Por estarem sempre prontos a ajudar e a vossa pronta resposta e sempre disponíveis para mais e mais

É isso ai Tiago, parabéns!

Sempre devemos optar por usar o código do registro que é
número (ainda mais sendo automático e sem interferência humana), do que
strings que são passíveis de erros.

Valeu pelo retorno

Boa sorte

Noob