Corrispondente di App.Path di VB in Access(era: Path)

[izzusan]

Aiutoo

ho un problema

in visual per dare un percorso si usa app.path

mentre in vb in access cosa si usa apl posto di app.path?

[DeBe99]

In Access non esiste, devi ricavartelo partendo dal nome (currentdb.name)

Public Function AppPAth() As String
Dim Path As String
Dim x As Integer
Dim x2 As Integer
Path = CurrentDb.Name
'Cerco l'ultimo \
x = 1
While x <> 0
    x2 = x + 1
    x = InStr(x2, Path, "\")
Wend
'Prendo stringa prima dell'ultimo \
AppPAth = Left(Path, x2 - 2)
End Function

[izzusan]

Grazie mille sei un genio!