[Resolvido]Anexar ficheiros externos a registo BD Access

Boas,

É possível anexar 1 ou mais ficheiros localizados no mesmo servidor em que fica alojada a base de dados ficheiros a cada registo na BD?

Pretendia que os utilizadores pudessem no formulário anexar ficheiros pdf previamente guardados numa pasta do servidor. A semelhança de anexar um ficheiro numa caixa de mensagem do outlook. E que esses ficheiros ficassem associados ao registo para que pudessem ser pesquisados mais tarde?

Obrigado.

Sim, é possível.

1- Criar um campo para receber o link para o ficheiro (Tipo Texto - 150 Tamanho ou 255). Dê-lhe o nome, por exemplo: txtCaminho

2- Criar um botão de comando para aceder

3- No Evento clique desse botão de comando:

 On Error Resume Next
Dim dlgopen4F As FileDialog
Dim strFile As String

Set dlgopen4F = Application.FileDialog(msoFileDialogFilePicker)
strFile = "Nenhum ficheiro seleccionado"

With dlgopen4F
   If .Show = -1 Then
       strFile = dlgopen4F.SelectedItems(1)
       Me.txtCaminho = strFile
   End If
End With

Obrigado vieirasoft,

Mas ou estou a fazer alguma coisa errado ou dá erro ao fazer clique conforme imagem anexa.

Pode-me ajudar uma vez mais?

Obrigado

Olá amigo.

1- Verifique se mudou o nome do campo c"txtCaminho" para o nome do seu campo. É que,pelo que vi na imagem o "txtCaminho" está lá. Você deu o mesmo nome ao seu campo, igual o exemplo??? Aguardo o retorno

Para já estava a testar, por isso dei o nome do campo tal qual indicou conforme pode ver na imagem da tabela em anexo.

Esse campo deve estar com 255 de tamanho, conforme lhe referi na mensagem 2. Aguarde que lhe envio um exemplo daqui a pouco.

Envio em anexo a BD de teste que estava a fazer para lhe ser mais facil!

A ideia é que fique "lincado" à localização do ficheiro e não que carregue o ficheiro na própria base de dados, senão ele irá ficar gigantesca e cada vez mais dificil de utilizar.

Obrigado

Aceite as minhas humildes desculpas, pois esqueci de copiar a função. Aqui vai:

www.dropbox.com/s/3mcimzdhxm7bxff/bddialog.mdb?dl=0

Quando clico no botão, surge o erro no pdf anexo.

Envio a BD para ver.

Pass: 123

PASS: 123

E depois para poder abir os PDF a partir do formulario? Não deveria ter um botão para o efeito? Imagine que quero visualizar mais tarde o conteudo do anexo? Como faço?

Sim, claro. Pode utilizar o método hiperlink, conforme exemplo abaixo: Num botão de comando:

Dim i As Integer
If Nz(Len(Me.txtCaminho)) = 0 Then
i = MsgBox("Não existe nenhum documento a visualizar!", vbCritical, "Aviso")
Cancel = True
Else
Me.txtCaminho.SetFocus
Application.FollowHyperlink (Me.txtCaminho)
End If

E o documento será aberto

Quanto ao erro que diz a abrir vou ver.

Meu caro amigo, você tem que ter noção da nomenclatura dos nomes dos objectos. O nome da caixa de texto "txtCaminho" na tabela é só "Caminho", sem o txt adicionado.

Já pus a funcionar, agora é só você incorporar um botão com o código que lhe enviei para abrir o documento. Bom trabalho

www.dropbox.com/s/5uub4267zgoljgh/Database11.accdb?dl=0

Obrigado.

Já funciona. Se calhar ainda vou ter que dar mais uns aprimoramentos, mas depois se precisar de ajuda volto a solicitar.

Obrigado pelo retorno, o Fórum agradece.