[Resolvido]Função que informa o caminho do BE (Back_End)

Boas,
Depois de procurar bastante neste e outros sites e ter encontrado varias possibilidades
mas sem sucesso com elas decidi então postar esta msg de pedido.
A ver se consigo me explicar:

tenho uma tabela denominada: tblCaminhoBe
dentro dela tenho três colunas
uma denominada: NomeBe (o qual me indica o nome do Back_End)
uma denominada: FotoDir
e a outra denominada: Path_0 (o qual me indica o caminho do Back_end e o nome do proprio)
ex: C:\Windows\....\BaseDeDados_Be.accdb

O que preciso fazer e não estou conseguindo é gravar na coluna FotoDir o caminho do Back_End sem o nome do proprio.
Ex: C:\Windows\....\PastaDoBack_End

Se possivel,seria melhor conseguir esse caminho,via formula, sem recorrer a coluna Path_0 pois tenho o sistema do ChecaVinculo do grande Avelino Sampaio na minha base de dados e se por algum motivo da problema a actualizar o caminho do Path_0 não afecta o caminho do FotoDir.

Para que afinidade preciso de tal coisa?
pois bem simples.
Minha Base de dados é um programa de gestão de estoque
que estou criando para a minha empresa e vai trabalhar em rede.
Na pasta em que se encontrar a base de dados ira se encontrar tambem outras pastas como
\Imagem \Relatorios \Icons e assim sera mais facil poder chamar as imagens
fazendo referencia ao FotoDir mais CaminhoFoto que sera o caminho gravado na base de dados. (\Imagem\Puxadores|Imagem1.jpg)
No total terei \\servidor\....\PastaDoBack_End\Imagem\Puxadores|Imagem1.jpg
e não \\servidor\....\PastaDoBack_End\BaseDeDados_Be.accdb\Imagem\Puxadores|Imagem1.jpg que é o que tenho neste momento.

Desde já agradeço aos que me ajudarem
pois estou bloqueado por causa desse
pequeno problema.
E espero que tenha me explicado bem e não
tenha ficado muito confuso.
Obrigado
Pedro Melo

Olá, seja bem vindo ao fórum!

Dê uma pesquisada por Split aqui mesmo no fórum ou no F1 do VBA do Access. Você pode utilizar essa função para separar texto.

Eu ja sou membro á algum tempo
mas infelizmente a Microsoft me bloqueou minha conta email.
E como jà não sabia a palavra passe de acesso ao forum
tive que criar nova conta.
Obrigado pela resposta rápida. vou ver o que dizes.
darei resposta.

Edit:Nenhum resultado encontrado.
Pelo que eu percebi Split ira se basear sobre o caminho que eu tenho em Path_0
Pois justamente é o que preciso evitar.
Preciso de uma formula que encontre sem depender de outros dados que dependem de outras formulas...
mesmo assim criquio

Obrigado!
Pedro Melo

O ideal seria mesmo uma formula pois primeiro deixaria o ChecaVinculo trabalhar
depois quando o o formulário de login abri-se eu faria uma comparação
entre o Path_0 que contem o caminho e o nome do Back_End com o FotoDir + NomeBe
e se não for igual então entraria a formula para me dar o local do Back_End.
Não sei se me fiz perceber.

Obrigado
Pedro Melo

Olá

No módulo mod_checaVinculo vc tem a função fncBackEndAtual que captura o caminho completo da propridade connect de uma tabela vinculada (com o nome do back_end)

Código:

Public Function fncBackEndAtual() As String
Dim strCon As String
Dim strTabelaLink As String
Dim tbl As DAO.TableDef
Dim k
On Error GoTo trataerro

For Each tbl In CurrentDb.TableDefs
    If Len(tbl.Connect & "") > 0 Then strTabelaLink = tbl.Name
Next
'-----------------------------------------------------
'Vou usar a última tabela vinculada, para obter
'o caminho do back-end (propriedade Connect).
'-----------------------------------------------------
strCon = CurrentDb.TableDefs(strTabelaLink).Connect
'-----------------------------------------------------
'Agora vou retirar apenas o caminho do accdb,
'sem o ";DATABASE=" que o precede na string Connect.
'-----------------------------------------------------
fncBackEndAtual = Right$(strCon, (Len(strCon) - (InStr(1, strCon, ";DATABASE=", 2) + 9)))

sair:
    Exit Function
trataerro:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
    Resume sair:
End Function

Crie uma outra função para extrair somente o caminho

Exemplo:

Código:

Public Function fncCaminhoBe() As String
fncCaminhoBe = Replace(fncBackEndAtual, "\" & DLookup("NomeBe", "tblCaminhoBe"), "")
End Function

Com isso vc está pegando o caminho já válido após checagem

Sucesso!

Oi.
Muito obrigado.
Por acaso o Avelino ja me tinha dado uma formula desse tipo so nao entendo como
a chamar e a usar pra gravar o caminho no coluna FotoDir depois de verificar o vinculo...

Obrigado
Pedro Melo

Olá

O caminho completo para indicar a imagem

me!CampoImagem.picture = fncCaminhoBe() & "\Imagem\Puxadores\Imagem1.jpg"

Sucesso!

Avelino
Nao ha duvida que es mesmo um mestre para mim...
bem facil depois de ver o resultado e eu nao chegava la....
vou testar isso amanha pois hoje nao estou com a base de dados.
mas presumo que sera resolvido o problema.
muito mas muito obrigado Avelino.

Pedro Melo

edit: Já testei e aprovei. Um especial muito obrigado a quem já considero meu Mestre, quem tenho muita
consideração e se a vida o permitir adoraria conhecer um dia:
o Grande Avelino.

Muito Obrigado
Pedro Melo
RESOLVIDO