pmiroslav 12.07.2012 10:53
Predmet:Re: Limitiranje upisa količine

To je sada u redu.
Nisam zapravo uočio dio 'Call Rekord'

Puno hvala

zxz 12.07.2012 11:09
Predmet:Re: Limitiranje upisa količine

Nesto meni ovo sve nije bas naj jasnije jer se sjecam ove tvoje app.
Ako imas radne naloge i u radnim nalozima koliko se sjecam imas sve kolicine na osnovu onih tvoji sklopova i podsklopova.
Radne naloge mozes gledati kao ulaz robe.
E sad trebas imati i evidenciju izvrsenja i to bi ti bio kao izlaz robe.
Znaci izvrsenje nesmije prekoraciti kolicine iz radnog naloga i izvrsenja upisuju izvrsenici.
Nekada davno nesto slicno sam radio Jasminu ako nadjem zakacit cu.

pmiroslav 12.07.2012 11:24
Predmet:Re: Limitiranje upisa količine

Evo joÅ¡ uvjek ima nekih problema. kada radim na formi 'frmEvidencija' i odem na slijedeći rekord
javlja se greška

Run-Time Error '3021'
No current record

u Debug prozoru kursor se zaustavi na 'Rs.MoveFirst'

Mislim da se to događa kada nema upisanne nikakve količine za određeni dio.
Prilozi:
PrimjerOperacije_3.rar (Velicina datoteke:108.14 KB)

zxz 12.07.2012 11:30
Predmet:Re: Limitiranje upisa količine

Kom = 0
KontrolaKomada = False
T = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
Set Rs = Me.RecordsetClone
'Dodaj ovdje samo ovo
if rs.recordcount=0 goto Kraj
Rs.MoveFirst

pmiroslav 12.07.2012 11:45
Predmet:Re: Limitiranje upisa količine

Sada je ovo krasno.
Ovo mi treba zato Å¡to poslovođe unose koliko je čega napravljeno pa moram spriječiti da se u slijedećoj fazi upiÅ¡e neka količina, a da ista ili veča količina nije uneÅ¡ena u predhodnoj fazi.

pmiroslav 13.07.2012 10:31
Predmet:Re: Limitiranje upisa količine

Ovo sve radi OK jedino bih htio popraviti joÅ¡ neke kozmetičke srvari. Problem mi je dio:
PreuzmiIzvorni kôd (vbnet):
  1. If Format$(T) = "" Then GoTo Kraj
  2.     If Kom > Val(T) Then
  3.     MsgBox "VaÅ¡ unos mora biti manji od: " & Val(T) + 1
  4.     Me.komada = 0
  5.     KontrolaKomada = True
  6.     End If
i
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub komada_Exit(Cancel As Integer)
  2. Cancel = KontrolaKomada
  3. End Sub
Ovime se u textBox 'komada' upiÅ¡e 0, a ja bih trebao da se taj pogreÅ¡an red potpuno obriÅ¡e, kako bi se mogao vratiti u prvu subformu i izabrati bredhodnu radnu operacij pa tamo daoadi količinu koja možda greÅ¡kom nije upisana.

zxz 13.07.2012 11:03
Predmet:Re: Limitiranje upisa količine

Umjesto me.komada=0
Stavi ovo:
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.Delete
End With

pmiroslav 13.07.2012 11:11
Predmet:Re: Limitiranje upisa količine

Ti si genijalac.
Hvala

pmiroslav 16.07.2012 14:22
Predmet:Re: Limitiranje upisa količine

RijeÅ¡ili smo problem oko spriječavanja krivog upisivanje realizacije, ali mi ostaje problem starih unosa u tablici. PoÅ¡to ih ima jako puno (oko 15.000) dali je moguće napraviti Query upit koji bi mi izbacio samo neispravne unose.
Znači gdje je Količina kod veće Radne_op veča od količine predhodne Radne_op
I
Gdje nedostaje radna Opreacija

Prilažem sliku da bude jasnije
Prilozi:
PrimjerQuery.rar (Velicina datoteke:17.53 KB)
Query.jpg (Velicina datoteke:96.79 KB)

dex 16.07.2012 18:35
Predmet:Re: Limitiranje upisa količine

Evo, probao sam nesto za izdvajanje gde je broj komada veci nego u prethodnoj operaciji.
Ovo ne radi kako treba jer se u primeru koji si okacio vise puta ponavlja kombinacija NalogID i IDdijela.
Da li treba ubaciti i datum u igru (razdvojiti ih i po datumu)?
Vidi Query prethodne i funkciju prethodna u modulu1
Prilozi:
PrimjerQueryDex.zip (Velicina datoteke:52.79 KB)