Public Function SaldoPozitivno(ByVal pArt As String) As Double
 On Error GoTo Err_SaldoPozitivno
 Dim cn As ADODB.Connection
 Dim rst As ADODB.Recordset
 Dim SumaKol As Double
 Dim SQL As String
 
SQL = "SELECT Ulaz1.kol As Kol" & _
 " FROM Ulaz1, Ulaz " & _
 " WHERE Ulaz.UlazId = Ulaz1.UlazId And Ulaz1.art = '" & pArt & "' " & _
 " UNION SELECT -Izlaz1.kol As Kol" & _
 " FROM Izlaz, Izlaz1, Ulaz1 " & _
 " WHERE Izlaz.IzlazId = Izlaz1.IzlazId and Izlaz1.UlazId = Ulaz1.UlazId And Izlaz1.art = '" & pArt & "'"
Set cn = CurrentProject.AccessConnection
Set rst = New ADODB.Recordset
With rst
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM tblProdaja"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open
   End With



 MsgBox pArt

 SumaKol = 0
 Do Until rst.EOF
 SumaKol = SumaKol + rst!Kol
 rst.MoveNext
 Loop


 SaldoPozitivno = SumaKol

 rst.Close

 Set rst = Nothing


Exit_SaldoPozitivno:
 Exit Function

Err_SaldoPozitivno:
 MsgBox Err.Description
 Resume Exit_SaldoPozitivno

 End Function