Prikazi cijelu temu 10.07.2013 11:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Funkcija SUM uz uvijet
Ja sam pretpostavio da ti se textbox zove suma.
Mozes to rijesiti procedurom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. Dim Rs As Recordset
  3. Dim suma As Integer
  4. Dim Iznos As Integer
  5. Dim ID As Integer
  6.  
  7. Set Rs = Me.RecordsetClone
  8. If Rs.RecordCount = 0 Then GoTo Kraj
  9. Rs.MoveLast
  10. Rs.MoveFirst
  11. On Error Resume Next
  12. Do While Not Rs.EOF
  13. Iznos = Rs!Ulaz
  14. If Err.Number > 0 Then
  15. Iznos = 0
  16. Err.Clear
  17. End If
  18. ID = Rs!IDDokumenta
  19. If ID = 1 Then
  20. Iznos = 0
  21. End If
  22. suma = suma + Iznos
  23. Rs.MoveNext
  24. Loop
  25. Kraj:
  26. Me.suma = suma
  27. Exit Sub
  28. End Sub

Ili upitom
Napravi ovaj upit:
PreuzmiIzvorni kôd (SQL):
  1. SELECT 1 AS ID, SUM(Ulaz) AS SUMA
  2. FROM ImeTabele
  3. WHERE IDDokumenta<>1
  4. GROUP BY 1;

Daj Mu ime Q_Suma
sada na formi txtbox gdje si imao sumu pretvori u combo box(desni mis pa Change to).
Znaci sada imamo combo box.
U controlsource upisi =1
U rowsource ime Query-a tj. Q_Suma
Solumncount 2
Column witdth. 0;5
Na on curent ide ovo:
Private Sub Form_Current()
Me.suma.RowSource = Me.suma.RowSource
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.