zxz 22.03.2012 19:00
Predmet:Re: Pregled stanja

Evo SQL Za Query kojem treba dati ime Q.
PreuzmiIzvorni kôd (SQL):
  1. SELECT tblStavke.NSN, SUM(IIf([vrdoc]="1",[klc],[klc]*(-1))) AS Stanje
  2. FROM tblDoc INNER JOIN tblStavke ON tblDoc.BrD = tblStavke.BrD
  3. GROUP BY tblStavke.NSN;

Na subformu dodaj dva polja:
Jedno polje combo sa imenom Stanje.
U rowsource comba stavi ime ovog Querya odnosno Q.
Colmncoun: 2
Controlsource:NSN
Visible= no

Drugo polje je tekstualno i nka se zove StanjeP:
Za njega viise nista netrebas namijestati.

Evo ti kod koji trebas stqaviti u modul subforme:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Vr As Single
  4.  
  5. Private Sub Form_Current()
  6. Dim KlcStanje
  7.  
  8. Me.Stanje.RowSource = Me.Stanje.RowSource
  9. KlcStanje = Me.Klc
  10. If Format$(KlcStanje) = "" Then
  11. Vr = 0
  12. Else
  13. Vr = Val(KlcStanje)
  14. End If
  15. Me.StanjeT = Me.Stanje.Column(1)
  16. End Sub
  17.  
  18. Private Sub Klc_AfterUpdate()
  19. Dim StanjeAf
  20. Dim StanjeQ As Single
  21. Dim StanjeT As Single
  22. Dim K
  23. Dim P As Single
  24.  
  25. StanjeAf = Me.Klc
  26. If Format$(StanjeAf) = "" Then GoTo Kraj
  27. StanjeQ = Me.Stanje.Column(1)
  28.  
  29. K = Forms![frm_Doc]![vrdoc]
  30. If Format$(K) = "" Then GoTo Kraj
  31. If Val(K) = 1 Then
  32. P = 1
  33. Else
  34. P = (-1)
  35. End If
  36.  
  37. StanjeT = Vr - StanjeAf
  38. StanjeT = StanjeQ - (StanjeT * P)
  39. Me.StanjeT = StanjeT
  40. Izlaz:
  41. Exit Sub
  42. Kraj:
  43. Me.StanjeT = 0
  44. End Sub

Dado 22.03.2012 19:09
Predmet:Re: Pregled stanja

Ok, sada trenutno nemam vremena da to primjenim, ali sutra na poslu cu to uraditi. Hvala i velik pozdrav i nadam se da necu biti naporan ako budem imao problema da se opet javim. Jos jednom pozdrav.

Dado 22.03.2012 19:56
Predmet:Re: Pregled stanja

Ma nigdje ja ne vidimu tvom odgovoru StanjeT. Disappointed

Dado 22.03.2012 20:06
Predmet:Re: Pregled stanja

Evo radi hvala ti samo sam ja dao naziv txt polje StanjeP ne gledajuci dalje i nije islo sada kada sam promjenio naziv u StanjeT radi. Svaka cast majstore. Hvala ti i svako dobro.

Dado 23.03.2012 09:52
Predmet:Re: Pregled stanja

Evo mene opet. E sinoc sam probao na ovom svom primjeru koji sam postavio na forumu. Evo sada pokusavam da to uradim u pravoj app i evo sta se dogadja. U prilogu je slika sa porukom? Sta bi sada moflo biti.
Prilozi:
problem.JPG (Velicina datoteke:151.56 KB)

Dado 23.03.2012 11:18
Predmet:Re: Pregled stanja

Jeli možda ima kakve veze sto je u mene na app. ide prvo forma za unos podataka o dokumentu i partneru a poslije zatvaranja te forme ide forma stavke gdje unosim količine. Dali to predstavlja problem ili pak ovi kodovi koje imam na formi stavke na "Before Insert"; "OnLoad" i "OnAcitvate"

pmiroslav 23.03.2012 11:46
Predmet:Re: Pregled stanja

Option Compare Database
Option Explicit
Dim Vr As Single

Dali imaÅ¡ ovo na početku procedure

pmiroslav 23.03.2012 11:54
Predmet:Re: Pregled stanja

Pardon, vidim da imaÅ¡ ali misli da bi to trebalo ići gore na početku procedure. Znači iznad onoga

Private Sub Form_BeforeInsert (Cancel As Integer)...

Dado 23.03.2012 12:26
Predmet:Re: Pregled stanja

Evo prilozit cu sve procedure koje imam na form frm_StavI, tj. unos stavki prilikom izlaza. Sada dali ovaj kod sto je zxz napisao ima problema sa osalim kodovima koje imam, stvarno ne znam?
Prilozi:
procedure frm_stavke.doc (Velicina datoteke:66.5 KB)

pmiroslav 23.03.2012 13:09
Predmet:Re: Pregled stanja

Teško je to tako vidjeti.
zar ne možeÅ¡ poslati primjer sa formama gdje stoje te procedure pa će se vidjeti gdje je problem