Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 "