Prikazi cijelu temu 07.03.2012 20:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Stanje robe rjesenje
U rowsource combo8 upisi ovaj SQL.
PreuzmiIzvorni kôd (SQL):
  1. 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
  2. FROM stanje
  3. WHERE (((stanje.NSN)=[Forms]![frm_unos]![NSN]))
  4. GROUP BY stanje.NSN;

Ovu proceduru stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function RobaStanje(DocBr As String, NSN As String, Kol, Stanje As Single, SifraD As Integer)
  2. Dim DB As Database
  3. Dim Rs As Recordset
  4. Dim SQL As String
  5. Dim X As Single
  6.  
  7.  
  8. If SifraD = 1 Then
  9. X = 1
  10. ElseIf SifraD = 2 Then
  11. X = -1
  12. Else
  13. X = 0
  14. End If
  15.  
  16. SQL = "SELECT Sifradoc FROM tblStavke  WHERE Broj_Doc='" & DocBr & "' AND NSN='" & NSN & "'"
  17. Set DB = CurrentDb
  18. Set Rs = DB.OpenRecordset(SQL)
  19. If Rs.RecordCount = 0 Then
  20.    If Format$(Kol) = "" Then
  21.    RobaStanje = Stanje
  22.    Else
  23.    RobaStanje = Stanje + (Val(Kol) * X)
  24.    End If
  25. Else
  26. RobaStanje = Stanje
  27. End If
  28. Kraj:
  29. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.