[Resolvidos]Abre word num diretório-fixar endereço na pasta do bd

Boa tarde

Sou novato no quesito Access, mexia mais no meu antigo emprego, mas saí de lá e estou pior do que era hehe. Queria pedir ajuda dos sábios colegas com o seguinte problema: eu tenho um aplictivo básico de ofícios onde digito numero, remetente, assunto etc, e coloquei um botao onde visualizo a versão pdf ou doc do mesmo, porém eu tenho que deixar fixo o endereço do aplicativo e do local onde está o arquivo. Eu gostaria que houvesse uma posição onde eu selecionasse a pasta onde está o aplicativo (adobe reder, word etc) e, principalmente, onde estão os arquivos.


Vou postar uma imagem para ver se consigo explicar melhor o que eu gostaria de fazer:



Este é um programa que uso aqui, eu queria fazer algo semelhante no Access, no meu bd eu tenho o botão visualizar que abre o respectivo arquivo Word, porém eu tive que fixar o caminho (diretorio) raiz que estão os arquivos, sendo que, cada computador que eu mudo, tenho que abrir o codigo e alterar o caminho, eu queria que tivesse uma janela como a da figura acima onde eu pudesse selecionar o diretorio sem ter que mexer no codigo, e que esse diretorio ficasse gravado até eu altera-lo.

Grato desde já pela ajuda

Abraços.

Amigão bem vindo ao fórum.

Cole esta função no VBA do seu form, ela vai-lhe dar o caminho banco e todos os seus ficheiros devem estar sempre junto ao banco:

Public Function GetPathPart() As String

Dim db As DAO.Database
Dim strPath As String
Dim intCounter As Integer

Set db = CurrentDb
strPath = db.Name
db.Close
Set db = Nothing

For intCounter = Len(strPath) To 1 Step -1
If Mid$(strPath, intCounter, 1) = "\" Then
Exit For
End If
Next intCounter

GetPathPart = Left$(strPath, intCounter)

End Function


Agora terá de ter os nomes e extensões dos ficheiros na sua tabela:

Dim strCaminho As String
strCaminho = GetPathPart & Me.SuaCaixaTextoDoFicheiro

Primeiramente obrigado pela ajuda JPaulo!

Desculpe a minha falta de conhecimento, mas onde coloco esse codigo?
Na caixa de texto onde escolherei o diretorio dos arquivos?

Veja se é o isto que pretende;

http://dl.dropbox.com/u/771097/AbreWord.rar

Amigos, eu experimentei o exemplo aqui e como usei um arquivo de nome meio extenso, deu erro, pois o campo de escolher o arquivo está com tamanho 50 na tabela. Por isso fica a dica para aumentar o tamanho desse campo, até mesmo porque pode ter um arquivo dentro de uma subpasta que está dentro de outra que esteja dentro de outra, sei lá, rsrsrsrs.
A dica é para o caso de um usuário menos experiente resolver usar o exemplo.

Bem observado, corrigido;

http://dl.dropbox.com/u/771097/AbreWordnumDiretorio.rar