Function Kompakt()
Dim Db As DATABASE
Dim StaroIme As String
Dim NovoIme As String
Dim Putanja As String

Set Db = CurrentDb()
StaroIme = Db.Name
Putanja = ImeBaze(StaroIme)
NovoIme = Putanja & "Nova.mdb"
StaroIme = Putanja & "_be.mdb" '* ovdje se vrsi izmjena imena

    If Dir(NovoIme) <> "" Then _
        Kill NovoIme
    DBEngine.CompactDatabase StaroIme, _
        NovoIme
        Kill StaroIme
        Name NovoIme As StaroIme
End Function
Function ImeBaze(Putanja As String) As String

    Do Until Right$(Putanja, 1) = "."
        Putanja = Left$(Putanja, Len(Putanja) - 1)
    Loop
    Putanja = Left$(Putanja, Len(Putanja) - 1)
   ImeBaze = Putanja
End Function