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