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