magazzino disordinato di appunti
Percorso del database corrente
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