Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Quantity_Exit(Cancel As Integer) On Error GoTo Err_Quantity_Exit Dim stanje_na_skladistu As Integer Dim Kolicina As String Dim stanje_na_drugom_skladistu As Integer 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") stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _ "[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra") If (stanje_na_skladistu < Me.Kolicina) 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