General: Le chemin et le nom de la base de données actuelle	Author(s) Dev Ashish

Obtenir le chemin et le nom de la base de données actuelle.

La propriété Name de l'objet base de données contient cette information. Par exemple:

?CurrentDB.Name

Pour en retrouver le  répertoire, utiliser cette fonction.

'******************** Code Begin ****************
'Le code est une gracieuseté de
'Terry Kreft & Ken Getz
'
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
'******************** Code End ****************

'*************** Code Start ******************
Function fDBName(strFullName As String) As String
Dim intLen As Long
Dim i As Integer
    On Error GoTo fDBName_Err

    intLen = Len(strFullName)
    For i = intLen To 1 Step -1
        If Mid$(strFullName, i, 1) = "\" Then
            fDBName = right$(strFullName, intLen - i)
            Exit For
        End If
    Next i

fDBName_Exit:
    Exit Function
fDBName_Err:
    fDBName = vbNullString
    Resume fDBName_Exit
End Function
'*************** Code end  ******************