Private Sub Command7_Click()
Dim g As Integer, d As String, Mjesec1 As String, firma As String, ime As String
g = Year(Now())
firma = DLookup("[Statisticki broj]", "tpreduzece", "Sifra_preduzeca = " & Forms!test!SifraFirme)
d = Len(Forms!test!Mjesec1)
If d = 1 Then
Mjesec1 = "0" & Right(Str(Forms!test!Mjesec1), 1)
Else
Mjesec1 = Str(Forms!test!Mjesec1)
End If
ime = firma & "_" & Mjesec1 & g
UsporiShell Db_Putanja & "\" & pkzip.exe & "  " & ime & ".zip " & Db_Putanja & "\" & ime & ".xml", vbHide
'UsporiShell putanjafajla & "\pkzip " & PutZipa & "\" & ImeFajla & ".zip " & PutZapisa, vbHide
End Sub