General

6.27 Percorso del database corrente.
  Paolo Holtz
Public Function PathCorrente() As String
   'Autore: Paolo Holzl
   'Restituisce: il percorso completo del database corrente
   PathCorrente = Left(CurrentDb.Name,Len(CurrentDb.Name)- _
            Len(Dir(CurrentDb.Name))) 
End Function

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.