[Resolvido]Inserir caminho de arquivo em tabela

Olá a todos.

Estou desenvolvendo um sistema de controle de contratos no Access 2007, onde irão ter por exemplo 4 campos, CÓD, NOME, CPF, e CAMINHO_ARQUIVO.
Terei tambem 2 botões, ABRIR_CONTRATO e GRAVAR_CONTRATO

Ao clicar em ABRIR_CONTRATO, será aberto um arquivo em pdf, que está salvo no Disco Local. Esta parte eu consegui fazer utilizando a Função ShellExecute, esta funcionando perfeitamente.


A coisa emperrou, pois não estou conseguindo fazer com que, ao clicar em GRAVAR_CONTRATO, ao abrir a caixa de dialogo e selecionar o arquivo (.pdf), o caminho do arquivo seja inserido na tabela BASE, campo CAMINHO_ARQUIVO.

Qual o código que está a usar no GRAVAR_CONTRATO ?

testei alguns metodos, mas nenhum deles obtive sucesso.

Faça o teste no evento VBA ao pressionar do seu botão;

Altere o nome do "SeuCampo", para o nome correto no seu formulario;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
'Para inserir apenas o nome do ficheiro no seu campo
'faça assim: Me.SeuCampo=Mid([varFile], InStrRev([varFile], "\") + 1)
Dim strJanela As Object
Dim varFicheiro As Variant
    Set strFicheiro = Application.FileDialog(3)
    strFicheiro.AllowMultiSelect = True
    strFicheiro.Show
         For Each varFicheiro In strFicheiro.SelectedItems
                Me.SeuCampo = varFicheiro
         Next
End Sub

JPaulo.

Funcionou perfeitamente, muito obrigado pela ajuda. Assim que finalizar o processo postarei no Banco de Exemplos, para ajudar alguem que precise assim como você ajudou.

Obrigado.

Obrigado pelo retorno o fórum agradece.

Muito bom aprender com vcs. Deu certo aqui também. Vlw!!!