Anexar Arquivos

Bom Dia!

Venho novamente recorrer a ajuda de vocês...Rsrs

Tenho um banco de dados, que segue abaixo e gostaria de trabalhar com anexos nele, porém, quando habilito o campo anexo o meu banco começa a inchar, já procurei em diverso lugar e já estou a dias procurando e lendo tópicos e no google algo que possa me ajudar, mas infelizmente não obtive sucesso.

Gostaria de uma solução no seguinte critério:
1º - Clicar num botão "Anexar" (Foto, PDF ou etc) pelo formulário
2º - Ao anexar o arquivo o BD cria uma pasta num diretório especifico com o ID e Nome do registro.
3º - Ao gravar o arquivo no diretório.
4º - Quando gravar, renomeia o arquivo (Data/Hora do Anexo, ID, Documento), por exemplo (21092017-094734_09809809800_ASO)
5º - Ao anexar, me de uma opção do tipo Documento (ASO, FOTO, EXAME e Etc)

E complexo, mais se alguém puder me ajudar agradeço.

Meu amigo, o Access nao trabalha bem com campos anexos direto na Tabela! Alem do mais é limitado a 2GB de dados. Sendo assim, ficaria sem espaço logo logo.

Recomendo sempre que surgir uma duvida, dar uma pesquisada aqui no Forum! Pois temos muitos materiais por aqui.

A Solução é ao selecionar o arquivo, ele ser Copiado para uma pasta que fica junto do Aplicativo... e guardar apenas o Nome do Arquivo.Extenção na tabela.

Assim qnd precisar, basta mandar abrir esse arquivo.

Veja aqui:
https://www.maximoaccess.com/t26710-resolvidovincular-foto-por-cadastro-da-matricula
Basta mudar a filtragem, para passar a exibir todos os Arquivos.

FabioPaes,

Foi de grande ajuda, entretanto, só e possível anexar foto.

Queria algo com a mesma funcionalidade, onde anexasse PDF e mais de uma foto, semelhante ao anexo que mandei anexo no 1º onde eu passo as fotos.

Grato pela ajuda e atenção.

Amigo, no exemplo em questão é para Fotos... Mas se vc observar o Código verá que ha uma filtragem pela extensão da foto... Comente a linha que se refere a Imagens... Se lê o código, verá que da forma como está já é possível add qualquer arquivo.

FabioPaes,

Primeiramente quero agradecer pela ajuda e atenção prestada.

Porém ainda, estou com problema no meu código de anexo de arquivo. Este código copie do mestre AVELINO.

Esta apresentando o Erro em tempo de execução '438': O Objeto não aceita esta propriedade ou método

Creio que na linha destacada em vermelho, localizada no final do código e que esta apresentando o erro, que não estou conseguindo obter uma solução.
Me!AcroPDF0.LoadFile CurrentProject.Path & "\Anexo\" & Me.txt_NomePdf
Me.Repaint

Código:

Private Sub txt_ano_AfterUpdate()
'CONCATENAR
Me.txt_descricao = Me.txt_tipo_inspecao & " " & Me.txt_empresa & " " & Me.txt_ano

'ANEXAR PDF
Dim strLocalPdf$, strNomePdf$, strPastaOrigem$, strPastaDestino$
If Me.NewRecord Then DoCmd.RunCommand acCmdSaveRecord
strLocalPdf = fncLocalizarArquivo
If strLocalPdf = "" Then Exit Sub
strNomePdf = Mid(strLocalPdf, InStrRev(strLocalPdf, "\") + 1)
CurrentDb.Execute "UPDATE Tbl_VSI_Cadastro_Relatório_Inspeção SET [Nome do Arquivo]= '" & Me.txt_id & "-" & strNomePdf & "' WHERE ID = " & Me!txt_id & ";"
strPastaOrigem = Mid(strLocalPdf, 1, InStrRev(strLocalPdf, "\"))
strPastaDestino = CurrentProject.Path & "\Anexo\"
If strPastaOrigem <> strPastaDestino Then

    FileSystem.FileCopy strLocalPdf, strPastaDestino & Me.ID & "-" & Me.txt_descricao
End If
CurrentDb.Execute "UPDATE Tbl_VSI_Cadastro_Relatório_Inspeção SET [Caminho URL] = '" & strPastaDestino & "' WHERE ID = " & Me!txt_id & ";"

Me!AcroPDF0.LoadFile CurrentProject.Path & "\Anexo\" & Me.txt_NomePdf
Me.Repaint

End Sub

Aguardo retorno e agradeço a atenção.

Faça um Teste Amigo, LEIA ESSE TÓPICO, Baixe o Exemplo e teste em sua Máquina!
https://www.maximoaccess.com/t27444-copiar-pdf-salvar-o-caminho-do-arquivo-na-tabela-e-visualizar-os-pdf-s-no-formulario
Veja se Funciona Normalmente! Se atente para a Versão do AdobreAcrobat.

Se Funcionar, e o seu exemplo continuar com erro, anexe ele aqui pra tentar achar o erro!