Function RobaStanje(DocBr As String, NSN As String, Kol, Stanje As Single, SifraD As Integer)
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim X As Single


If SifraD = 1 Then
X = 1
ElseIf SifraD = 2 Then
X = -1
Else
X = 0
End If

SQL = "SELECT Sifradoc FROM tblStavke  WHERE Broj_Doc='" & DocBr & "' AND NSN='" & NSN & "'"
Set DB = CurrentDb
Set Rs = DB.OpenRecordset(SQL)
If Rs.RecordCount = 0 Then
   If Format$(Kol) = "" Then
   RobaStanje = Stanje
   Else
   RobaStanje = Stanje + (Val(Kol) * X)
   End If
Else
RobaStanje = Stanje
End If
Kraj:
End Function