Predmet:Re: Pitanja u vezi procedura i pisanja koda

---

Da ne bih otvarao novu temu, nastaviću ovdje.

Funkcija:

Public Function SaldoPozitivno(ByVal pArt As String) As Double
On Error GoTo Err_SaldoPozitivno

Dim rst As ADODB.Recordset
Dim SumaKol As Double

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient


MsgBox pArt


rst.Open "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 & "'", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic


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

Gdje griješim kad je pozivam na način kako je navedeno u nastavku?

Private Sub Text0_LostFocus()
Dim a As String
Dim b As Double

a = Me.Text0
b = SaldoPozitivno("a")

Me.Text2 = b

End Sub