Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101

Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
Private Sub Quantity_Exit(Cancel As Integer) On Error GoTo Err_Quantity Dim stanje_na_skladistu As Integer Dim Kolicina As String Dim stanje_na_drugom_skladistu As Integer stanje_na_drugom_skladistu = 0 stanje_na_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _ "[Skladiste]=forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra") Kolicina = DLookup("[Mjera]", "[Q_Stanje]", "[sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra") On Error Resume Next stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _ "[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra") If Err.Number = 94 Then Err.Clear On Error GoTo 0 stanje_na_drugom_skladistu = 0 ElseIf Err.Number > 0 Then MsgBox "Nekad druga greska" & Err.Number & vbCr '"Ako je sve OK ovo nece nikad proraditi" End If If stanje_na_skladistu < Me.Kolicina And stanje_na_drugom_skladistu > 0 Then 'Provjera MsgBox "Upisali ste koli inu koja je vea od zalihe!" _ & vbCrLf & " " _ & vbCrLf & "Na stanju ima " _ & stanje_na_skladistu _ & vbCrLf & " " _ & vbCrLf & "Ali na drugom skladištu ima " _ & stanje_na_drugom_skladistu _ & " " & Kolicina, , "Prevelika koli ina!" 'Poruka o gresci 'Me.Sifra.SetFocus 'Me.Sifra.Text = "" 'Brisanje vrijednosti ElseIf stanje_na_skladistu < Me.Kolicina Then MsgBox "Upi