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.