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 "Upisali ste koli
inu koja je vea od zalihe!" _
& vbCrLf & " " _
& vbCrLf & "Na stanju ima " _
& stanje_na_skladistu _
& vbCrLf & " " _
& vbCrLf & "Ni na drugom skladisštu nema"
End If

Exit_Quantity_Exit:
    Exit Sub
    
Err_Quantity:
MsgBox "Greška broj " & Err.Number & vbclrf & Err.Description
'Err_Quantity_Exit:
    'MsgBox Error$
    Resume Exit_Quantity_Exit
End Sub