Dosya adı ve yolunu bulma
  ?CurrentDB.Name
yazıldığında geçerli veritabanının yolu ve adı öğrenilir. Geçerli veritabanının yolu ve adı ayrı ayrı
öğrenilmek istenirse:

'Veritabanı yolunu öğrenmek için;
'************************************
Function CurrentDBDir() As String
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
'************************************

 
'Fullpath içinden dosya adını bulmak için;
'*********************************
Public Function DosyaAdı(T$) As String 
 Dim x%, ct%
 DosyaAdı$ = " " 'T$
 x% = InStr(T$, "\")
 Do While x%
    ct% = x%
    x% = InStr(ct% + 1, T$, "\")
 Loop
 If ct% > 0 Then DosyaAdı$ = Mid$(T$, ct% + 1)
End Function
'*********************************
'Veritabanı adını öğrenmek için;

CurrentDbName = DosyaAdı(Currentdb.Name)