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 = "" 'Brisanje vrijednosti

End If

Exit_Quantity_Exit:
    Exit Sub
Err_Quantity_Exit:
    MsgBox Error$
    Resume Exit_Quantity_Exit
End Sub