[Resolvido]Anexar arquivo em furmulário

Olá! Estou desenvolvendo um sistema em Access para controle de documentos Word e excel, porém gostaria de saber como faço para anexar este arquivo em um formulário conforme seu registro.

Boa tarde, o ideal seria que você colocasse um campo armazenando o local em que arquivo se encontra.

Boa tarde, vc tem algum modelo deste campo, pois não estou conseguindo concluir o mesmo, se puder me ajudar ficarei muito grato.

Uma forma simples de se fazer a coisa:

1 - Crie um módulo novo, cole a função abaixo nele, salve e deixe descansando enquanto prossegue para o passo 2:

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

2 - No módulo do formulário aonde você vai armazenar os endereços dos arquivos, coloque no "Ao clicar" de um botão:

Dim fDialog As Office.FileDialog
   Dim varFile As Variant

   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog

      .Title = "Selecione um arquivo"
      .Filters.Clear
      .Filters.Add "Access Databases", "*.MDB;*.accdb"
      .Filters.Add "Documentos do Word", "*.doc;*.docx"
      .Filters.Add "Planilhas do Excel", "*.xls;*.xlsx"
      .Filters.Add "Todos os arquivos", "*.*"

     .InitialFileName = CurrentProject.Path

      If .Show = True Then

         For Each varFile In .SelectedItems
            Me.NomeCampo = varFile
         Next

      Else
         MsgBox "Ação cancelada."
      End If
   End With

3 - Coloque, no botão que deverá abrir o arquivo:

Dim strArquivo As String
strArquivo = NomeDoCampoComOCaminho
Call ShellExecute(0, vbNullString, strArquivo, vbNullString, vbNullString, 1)

A função do passo 1 trabalha em conjunto com as instruções do passo 2, que permite abrir arquivos de qualquer extensão que tenha um programa associado no Windows sem a necessidade de informar isso no código.

O passo 2 chama a janela "Abrir arquivo" do Windows para você escolher o arquivo e colocar o caminho dele em um campo do formulário para gravar na tabela.

* A referência Microsoft Office xx.x Object Library precisa estar marcada, aonde xx.x é a versão do seu Access.

Prezado Amigo, deu erro aqui para mim, tem como vc anexar um modelo deste mesmo?

Você colocou os nomes dos seus campos certinhos no lugar certo? Sempre que ocorrer erro, nos informe que erro que é, a mensagem de erro, para que linha do código que depurou, etc. Sem saber isso fica complicado saber qual foi o erro e consequentemente não saberemos o que pode ser feito.

Aqui tem um exemplo de clicar em um botão para pegar o caminho de ima imagem:
http://maximoaccess.forumeiros.com/t2843-interacao-consulta-modulo-formulario-continuo

Com a permissão do mestre Criquio, outro exemplo.

A referência Microsoft Office xx.x Object Library precisa estar marcada, onde xx.x é a versão do seu Access.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Tentei testar e adaptar o seu exemplo mais aparece erro devio à minha versão ser de 64 bits. Quais sao as diferencas?
Obrigado

Muito bom! Este forum é uma ferramenta extraordinária!!!

Acabo de utilizar o procedimento colocado pelo Criquio e ajudou 100%