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