Anexar arquivo no formulário

Olá,

estou tentando fazer um banco de dados de Gerenciamento de Documentos Técnicos, onde a cada registro, eu pudesse anexar o arquivo referente ao documento lançado.
A versão do Access é 2003.

Alguém pode me ajudar??

Se não for possivel anexar o arquivo, gostaria de poder anexar o caminho para abrir este arquivo.

Olá! Anexar arquivos no bd faz ele crescer bem mais rapidamente. Melhor armazenar o caminho. Mas ainda há a possibilidade de nem precisar armazenar nada, caso o nome do arquivo tenha alguma relação com o código do registro por exemplo e estejam em uma mesma pasta ou caso as pastas tambem tenham relação com algum dado do registro. Fale-nos sobre esses elementos.

O nome do arquivo e o código de registro tem relação sim, pois são os mesmos. Porém cada arquivo está separado por pasta de acordo com o equipamento a que se referem.

Detalhe mais por gentileza, com exemplos dos nomes dos arquivos, das pastas, dos códigos, dos materiais e com o caminho completo deles.

Ok.


Nome do arquivo: DE-4150.50-1230-712-PTG-015_1_D
Localização: C:\Documents and Settings\caroline.lopes\Meus documentos\TECAB\DE\BOMBAS\B-621.101-E
Onde: Bomba é o equipamento
Tecab é o terminal.
B-621.101-E é o código do equipamento.

No caso o nome do arquivo é a código do documento no Banco de Dados.

Terminal é o nome do pc ou é um campo da tabela? O que é o \BE\? Ele é comum a todos eles? Acho que será possível abrir o arquivo sem gravar o caminho em um campo, uma vez que o caminho já está gravado por partes. Faltou informar a extensão do arquivo, mas vamos supor que seja "doc". Crie um módulo, coloque a função abaixo e salve-o como mdlAbreArq por exemplo:

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

Agora, no botão de abrir o arquivo, algo assim:

Dim AbreArq As String
AbreArq = Environ("USERPROFILE") & "\Meus documentos\" & Environ("COMPUTERNAME") & "\DE\" & Me.Equipamento & "\" & Me.Código & ".doc"
Call ShellExecute(0, vbNullString, AbreArq, vbNullString, vbNullString, 1)

Ficou faltando falar o que significa alguns detalhes, como "terminal". Fiquei sem saber se se trata do nome do pc ou se é um dado de um campo da tabela. O "\BE\" tambem ficou sem explicação. Mas é mais ou menos por aí. Dividindo o caminho por partes, temos:

C:\
Documents and Settings\
caroline.lopes\
Meus documentos\
TECAB\
DE\
BOMBAS\
B-621.101-E

A instrução Environ retorna alguns dados o pc. O USERPROFILE, por exemplo, mostra o nome do usuário logado. O COMPUTERNAME mostra o nome do computador. Por isso usei-os para pegar esses dados. Se não for isso, exemplifique novamente os dados do endereço na forma acima dividida. Por exemplo:

                    C:\   
Documents and Settings\   
        caroline.lopes\   
       Meus documentos\   
                 TECAB\   Nome do computador
                    DE\   Nome de...
                BOMBAS\   Tipo do equipamento. Está no campo Tipo do form
            B-621.101-E   Nome do arquivo. Está no campo Código do form

Terminal é um campo do banco de dados, o nome do computador é CAroline dos Santos Lopes.

O DE é o tipo de documento, no caso quer dizer desenho.

C:\
Documents and Settings\
caroline.lopes\
Meus documentos\
TECAB\ Nome do Lugar Estudado
DE\ tipo de documento
BOMBAS\ tipo de equipamento
B-621.101-E código do equipamento

Tá, mas aonde estão esses dados no formulário? É preciso passar os dados na instrução. Olha o modelo que eu coloquei:

    BOMBAS\   Tipo do equipamento. Está no campo Tipo do form
B-621.101-E   Nome do arquivo. Está no campo Código do form

Ou, se não tem o dado em um campo do formulário, informar os dados da tabela para buscar via DLookup. Quanto mais informação melhor para chegar mais rápido ao resultado.

O problema é que eu não tenho um campo para especificar o tipo de equipamento, no caso do exemplo "Bomba", só o código do equipamento.

Criquio,

eu coloquei o código enviado, só que abriu a pasta "Meus Documentos", eu estou tentando alterar para ver se eu consigo abrir o arquivo, mais até agora nada...
Alias, os arquivos estão em PDF, mais eu tbm vou ter arquivos em DWG e em DOC tbm, terá algum problema ao tentar abrir arquivos com estas extensões.