Predmet:Re: Pitanja u vezi procedura i pisanja koda
PreuzmiIzvorni kôd (Visual Basic):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
Ne ulazim U tacnost SQL upita.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.