Predmet:Stanje robe rjesenje
U rowsource combo8 upisi ovaj SQL.
PreuzmiIzvorni kôd (SQL):SELECT stanje.NSN, Robastanje(Forms!frm_unos!Broj_doc,Forms!frm_unos!NSN,Forms!frm_unos!Kolicina,[ukupno],Forms!frm_unos!VrstDoc) AS PStanje, SUM(stanje.Stanje) AS Ukupno
FROM stanje
WHERE (((stanje.NSN)=[Forms]![frm_unos]![NSN]))
GROUP BY stanje.NSN;
Ovu proceduru stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):Function RobaStanje(DocBr As String, NSN As String, Kol, Stanje As Single, SifraD As Integer)
Dim DB As Database
Dim Rs As Recordset
Dim SQL As String
Dim X As Single
If SifraD = 1 Then
X = 1
ElseIf SifraD = 2 Then
X = -1
Else
X = 0
End If
SQL = "SELECT Sifradoc FROM tblStavke WHERE Broj_Doc='" & DocBr & "' AND NSN='" & NSN & "'"
Set DB = CurrentDb
Set Rs = DB.OpenRecordset(SQL)
If Rs.RecordCount = 0 Then
If Format$(Kol) = "" Then
RobaStanje = Stanje
Else
RobaStanje = Stanje + (Val(Kol) * X)
End If
Else
RobaStanje = Stanje
End If
Kraj:
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.