Public Function PrethodniPopis (Art As Integer, Pop As Integer) As Integer
On Error Resume Next

Dim SQLString As String
Dim baza As Database
Dim Skup As Recordset


Set baza = CurrentDb

SQLString = "SELECT Kolicina FROM StavkePopisa WHERE PopisID=" & (Pop-1) & " AND ArtiklID=" & Art & ";"
Set Skup = baza.OpenRecordset(SQLString)

if isnull(Skup.fields(0)) then
	PrethodniPopis=0
else
	PrethodniPopis=Skup.fields(0)
end if

Skup.Close
Set baza = Nothing

End Function