Function Db_Putanja() As String
'---------------------------------------------
-----
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'_____________________________________________
_____
Dim Db As Database, Putanja As String

On Error Resume Next 'Ako naiđeš na grešku nastavi
Set Db = DBEngine(0)(0) 'Setovanje baze
Putanja = Db.Name 'Upis putanje baze i njenog imena
Do Until Right$(Putanja, 1) = "D:\" 'Petlja za odvajanje imena baze od putanje baze
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop

Db_Putanja = Putanja 'Upis putanje u funkciju
End Function