Predmet:Re: sql upit u VBA-modu

---

Opsti oblik:
UsporiShell PutanjaappZipa & "\pkzip " & Util.PutZipaZipa & "\" & ImeFajla & ".zip " & PutZapisaFilea, vbHide

da pretpostavimo da ti je sve na jednom jestu i mdb i xml i pkzip exe.
Sto znaci da se sve nalazi na putanji Db_Putanja.
To je procedura koja nalazi putanju mdb.
--------------------------------------------------
-----------
firma = DLookup("[Statisticki broj]", "tpreduzece", "Sifra_preduzeca = " & Forms!test!SifraFirme)

U firma imas dimo imena filea
Cijelo ime:
Dim Ime filea
ImeFilea=firma & & mjesec1
Dim app_Path

app_Patth=Db_Putanja
Znaci sad u app_path imas putanju do dir gdje se sve nalazi.
i sad sve da sklopimo:
UsporiShell app_path & "pkzip " & app_path & ImeFajla & ".zip " & app_path & ImeFajla & ".XML" , vbHide
To bi u shelu izgledalo ovako ako se to napr nalazi na putanji C:\Mojabaza
C:\Mojabaza\pkzip C:\Mojabaza\pojeime.zip C:\Mojabaza\mojeime.xml
ovo trebas dobiti.

Provejri samo sta ti vraca procedura db_Putanja
jeli vraca:
C:\Mojabaza
ili
C:\Mojabaza\
ako vraca ovo drugo onda je ok.
A ako vraca prvo onda trebas jos dodati izmedju \
Ali prvo provjeri.

---