[Resolvido]CurrentProject.Path apontando para o diretório do Front End

Amigos, andei lendo sobre CurrentProject.Path , que deveria apontar para o caminho do meu Back End, para que eu aponte a pasta de armazenamento de fotos

CurrentProject.Path & "\Fotos\"

o que ocorre é que ela esta apontando para o diretório do meu front end

alguem sabe porque?

desde já agradeço

CurrentProject.Path tal como o nome indica é o projeto onde está a correr essa instrução.

Use a função abaixo para obter o caminho do back-end:

Código:

Public Function CaminhoBE() As String

    Dim dbs As Database
    Dim tdf As TableDef

    Dim varBE As String, i As Integer, contrabarra As Integer
    
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        ' Se a tabela tem uma seqüência de conexão, é uma tabela vinculada.
        If Len(tdf.Connect) > 0 Then
            varBE = Right$(tdf.Connect, Len(tdf.Connect) - 10)
            Exit For
        End If
    Next
    
    For i = 1 To Len(varBE)
        If Mid$(varBE, i, 1) = "\" Then contrabarra = i
    Next i
    
    varBE = Left$(varBE, contrabarra - 1)
    CaminhoBE = varBE
    
    Set tdf = Nothing
    Set dbs = Nothing
    
End Function

Obrigado Claudio

vou testar

Claudio desculpe minha ignorância em programação

como posso receber o valor da função?

FimPath = caminhobe () & "\Inform\"

?

abraço

Claudio o valor esta informando

PWD=12345abc;DATABASE=I:\bd

preciso que retorne somente o caminho

o que eu poderia alterar na função para obter?

queridos amigos

alterei o valor para 32 na seguinte linha do código:

varBE = Right$(tdf.Connect, Len(tdf.Connect) - 32)

agradeço a todos pela paciencia