Predmet:Re: put za backup podataka

---

IZmijeni samo ovo:
Public Sub Compact_MDB( Dim dbPath As String) 'funkcija br 1
dim OldDbName As String, NewDbName As String, DbBackup As String
Dim Response As Integer, fs As Object

OldDbName = "apoteka2014_be" & ".mdb" 'ime splitovane baze podataka
NewDbName = "apoteka2014_be" & ".mdb" 'ime splitovane baze podataka

U ovom slucaju mozes upisati putanju pri pozivu procedure zavisno koja ti putanja treba.

---