[Resolvido]Importar um ficheiro PDF para um campo tipo "Anexo" de uma tabela

Boa noite a todos...

Gostaria saber se é possível criar em VBA ou através de uma macro o seguinte:

ao clicar num botão:

Importar da raiz do disco C (C:\TESTE\) vários ficheiros do tipo pdf para uma tabela com um campo do tipo "Anexo".


Exemplo:

Tenho uma tabela para clientes e nela tenho criado um campo do tipo Anexo onde insiro nesse campo todos os documentos desse cliente (Fotocopias e documentos digitalizados em formato pdf).
Como são muitos documentos para muitos clientes eu queria saber se existe alguma forma de eu ir buscar ao C:\TESTE\ e importar para a tabela T_CLIENTES cada ficheiro relacionado?

Tabela Clientes: (T_CLIENTES)

Campos:
ID_CLIENTE (Numero) ; NOME (Texto) ; MORADA (Texto); DOCUMENTOS (Anexo)

Tenho no C:\TESTE\ vários ficheiros pdf em que o nome do ficheiro está relacionado com o ID_CLIENTE (C:\TESTE\123456.PDF pertence ao cliente 123456 e assim sucessivamente)


Será que me fiz entender??????

Agradeço a quem me conseguir ajudar...

Boas Luis.. Campos anexos irá deixar seu banco lento e sobrecarregado.

Lembre-se, o Access apenas permite 2gb de dados em seus bancos..E isto que está pretendendo fazer é desaconselhável.

O correto seria colocar apenas o caminho destes PDF's em um campo na tabela e um formulário para ler este pdf ao selecionar de uma lista.

No Fórum temos exemplos de leitura de PDF no Access..

Cumprimentos.

PILOTO, agradeço a informação.

E faz todo o sentido no que me informas.

Mais uma vez obrigado pela ajuda preciosa, por isso existe este fórum para nos ajudarem ....


Vou procurar no fórum e adaptar ao meu programa.

Cumprimentos,
LF

Assim que tiver sucesso favor retornar neste mesmo tópico.

Aguardamos.

Resolvido meu Problema.


Por JPaulo aqui no fórum:


Private Sub SeuBotão_Click()
Dim CaminhoDaImagem As String
'Drive e Pasta por defeito + o item da lista se estiver no 1º campo da lista que é o ItemData(0)
CaminhoDaImagem = "C:\" & Me.SuaLista & ".pdf"
Application.FollowHyperlink CaminhoDaImagem
End Sub

Mais uma vez obrigado ao JPaulo e ao PILOTO.

Uma Pergunta:


É possível caso o ficheiro não exista dar uma mensagem de erro a informar que para este cliente não existe nenhum documento relacionado?????

Obrigado LuisF

Caso não encontre o arquivo no caminho especificado gerará o erro 490.

Basta tratar o Erro:

On Error Goto TrataErro

Códigos

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Sub
TrataErro:
    Select Case err.Number
        Case 490
            MsgBox "Arquivo não encontrado", vbCritical, "ERRO"
            Exit Sub
        Case Else
            DoCmd.Hourglass False
            DoCmd.Echo True
                MsgBox "Erro Gerado no: " & Me.Name & "" _
                & vbNewLine & "No Procedimento: " & Screen.ActiveControl.Name & "" _
                & vbNewLine & "Erro Número: " & err.Number _
                & vbNewLine & "linha: " & Erl _
                & vbNewLine & "Descrição: " & err.Description _
                & vbNewLine & "Por favor contate o Administrador de Sistema.", vbCritical, err.Number & ", linha:" & Erl
    End Select

Cumprimentos.

Mais uma vez obrigado PILOTO.

Perfeição...

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

Cumprimentos.