pmiroslav 11.07.2012 10:19
Predmet:Limitiranje upisa količine

Pozdrav svima.
Na formi 'frmEvidencija' imam dvije sihronizirane subforme. U prvoj subformi biram redni broj radne operacije, a u drugoj upisujem koliko je komada nekog artikla napravljeno prema toj radnoj operaciji.
Problem je kaku u subformi 'frmRealizacijaSub spriječiti da se upiÅ¡e veći broj komada od komada upisanih sa predhodni redni broj operacije.

Znači, u subformi 'IZBOR RADNE OPERACIJE' izabrao sa redni broj 1 i u subformu 'UPIS GOTOVIH PROIZVODA' upisao sam recimo 40 komada.
Nakon toga u prvoj subformi izaberem redni broj 2 i u drugu subformu ne smijem upisati broj veči od 40 i tako za svaku slijedeću operaciju
Prilozi:
PrimjerOperacije.rar (Velicina datoteke:84.60 KB)

zxz 11.07.2012 12:48
Predmet:Re: Limitiranje upisa količine

Citat:
Znači, u subformi 'IZBOR RADNE OPERACIJE' izabrao sa redni broj 1 i u subformu 'UPIS GOTOVIH PROIZVODA' upisao sam recimo 40 komada.
Nakon toga u prvoj subformi izaberem redni broj 2 i u drugu subformu ne smijem upisati broj veči od 40 i tako za svaku slijedeću operaciju

Jel u svim ostalim mora biti manje ili jednako 40 ili manje ili jednako od predhodnog upisa.

pmiroslav 11.07.2012 13:09
Predmet:Re: Limitiranje upisa količine

Mora biti manje ili jednako od prednodnog upisa za isti BROJ iz tblRealizacija

zxz 11.07.2012 13:24
Predmet:Re: Limitiranje upisa količine

Na vrhu:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim BrKom As Integer

Trebas na vrhu svakog modula da imas option explicit.
Nemora biti ali je daleko sigurnije.
Ovo ima objasnjeno u Vb skola cini mi se.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub komada_Exit(Cancel As Integer)
  2.  
  3. If BrKom <> 0 Then
  4.     If Me.komada > BrKom Then
  5.     MsgBox "nemožete upisati viÅ¡e od: " & BrKom
  6.     Cancel = -1
  7.     End If
  8. End If
  9. BrKom = Me.komada
  10.  
  11. End Sub

pmiroslav 11.07.2012 13:49
Predmet:Re: Limitiranje upisa količine

Nisi razumio.
Kada na subformi 'Izbor Radne operacije' odaberem
1 - 204 - 204 RUČ - Ručni rad montaža

prelazim u drugu subformu i u njoj za tu prvu operaciju trebao bih moči upisivati neograničene količine, jer to se odnosi na radnu operaciju redni broj 1.
Kada sam s time zavrÅ¡io vračam se na subformu 'Izbor Radne operacije' i biram slijedeći redni broj

2 - 204 - 204 RUČ - Lićenje piÅ¡toljem

ponovno prelazim na drugu subformu i ponovno trebam imati mogućnost viÅ¡e upisa. ali sada zbroj količine ne smije biti veči od zbroja količine iz predhodnog upisa.

Ovo se svodi na slijedeće:
Neki artikl se izrađuje iz viÅ¡e faza. U svakoj slijedećoj fazi ne mogu raditi na viÅ¡e komada nego Å¡to je zavrÅ¡eno u predhodnoj fazi.

zxz 11.07.2012 16:52
Predmet:Re: Limitiranje upisa količine

Forma radne operacije
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4.  
  5. Private Sub Form_Current()
  6. 'Written by Helen Feddema 4-Oct-2007
  7. 'Last modified 4-Oct-2007
  8.  
  9. On Error GoTo ErrorHandler
  10. Call Rekord
  11.    Me.txtSelectedID.Value = Me.BROJ_OP
  12.    
  13. ErrorHandlerExit:
  14.    Exit Sub
  15.  
  16. ErrorHandler:
  17.    MsgBox "Error No: " & Err.Number & "; Description: " & _
  18.       Err.Description
  19.    Resume ErrorHandlerExit
  20.  
  21. End Sub
  22.  
  23.  
  24. Function Rekord()
  25. On Error Resume Next
  26. Dim Bok As Integer
  27. Bok = Me.Recordset.AbsolutePosition + 1
  28. Me.Tag = Bok
  29. End Function

forma realizacijasub
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Function KontrolaKomada() As Boolean
  5. Dim Rs As Recordset
  6. Dim Kom As Integer
  7. Dim Rekord As Integer
  8.  
  9. Kom = 0
  10. KontrolaKomada = False
  11. Rekord = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
  12. Set Rs = Me.RecordsetClone
  13. Rs.MoveFirst
  14. Do While Not Rs.EOF
  15. Kom = Kom + Rs!komada
  16. Rs.MoveNext
  17. Loop
  18. If Rekord > 1 Then
  19.  If Format$(Me.Tag) = "" Then GoTo Kraj
  20.     If Kom > Val(Me.Tag) Then
  21.     MsgBox "vaÅ¡ unos mora biti manji od: " & Val(Me.Tag) + 1
  22.     Me.komada = 0
  23.     KontrolaKomada = True
  24.     End If
  25. Else
  26. Me.Tag = Kom
  27. End If
  28. Kraj:
  29. End Function
  30.  
  31. Private Sub komada_Exit(Cancel As Integer)
  32. Cancel = KontrolaKomada
  33. End Sub

pmiroslav 11.07.2012 17:48
Predmet:Re: Limitiranje upisa količine

Ovo je sada vrlo blizu pravog rješenja, ali imao jo jedan problem.
Količina unosa se sada veže za unos na prvoj radnoj operaciji, a treba se komparirati uvjek sa predhodnom opreracijom ( 2. sa 1. - 3. sa 2. - 4. sa 3. itd)
npr.
Za prvu operaciju unešeno je ukupno 50 komada
za drugu je do određenog perioda uneÅ¡eno samo 45 komada
znači za treču operaciju ne može se unjieti viÅ¡e id 45 komada ( a sada dozvoljava 50)
Prilozi:
Image3.jpg (Velicina datoteke:60.37 KB)
Image4.jpg (Velicina datoteke:102.75 KB)
Image5.jpg (Velicina datoteke:106.93 KB)

zxz 11.07.2012 19:10
Predmet:Re: Limitiranje upisa količine

PreuzmiIzvorni kôd (Visual Basic):
  1. Function KontrolaKomada() As Boolean
  2. Dim Rs As Recordset
  3. Dim Kom As Integer
  4. Dim T
  5.  
  6. Kom = 0
  7. KontrolaKomada = False
  8. T = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
  9. Set Rs = Me.RecordsetClone
  10. Rs.MoveFirst
  11. Do While Not Rs.EOF
  12. Kom = Kom + Rs!komada
  13. Rs.MoveNext
  14. Loop
  15.  
  16.  If Format$(T) = "" Then GoTo Kraj
  17.     If Kom > Val(T) Then
  18.     MsgBox "VaÅ¡ unos mora biti manji od: " & Val(T) + 1
  19.     Me.komada = 0
  20.     KontrolaKomada = True
  21.     End If
  22. Kraj:
  23. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Rekord()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Bok As Integer
  5. Dim SQL As String
  6.  
  7.  
  8. On Error Resume Next
  9. Set Db = CurrentDb()
  10. Set Rs = Me.RecordsetClone
  11. Rs.Bookmark = Me.Bookmark
  12. Rs.MovePrevious
  13. Bok = Rs!BROJ_OP
  14. Set Rs = Nothing
  15. If Bok = 0 Then
  16. Me.Tag = ""
  17. Else
  18. SQL = "SELECT komada FROM tblRealizacija WHERE broj_op=" & Bok & " AND Broj=" & Forms![frmEvidencija]![broj]
  19. Set Rs = Db.OpenRecordset(SQL)
  20. Bok = 0
  21. Do While Not Rs.EOF
  22. Bok = Rs!komada + Bok
  23. Rs.MoveNext
  24. Loop
  25. Me.Tag = Bok
  26. End If
  27. Set Rs = Nothing
  28. Set Db = Nothing
  29. End Function

pmiroslav 12.07.2012 07:56
Predmet:Re: Limitiranje upisa količine

Upisao sam ove funkcije koje si napravio i ništa se ne dešava.
Prilozi:
PrimjerOperacije_2.rar (Velicina datoteke:106.90 KB)

zxz 12.07.2012 10:36
Predmet:Re: Limitiranje upisa količine

Pa ne pozivas ove procedure ni odakle.
Imao si prije gore sto sam napravio samo je trebalo zamiijeniti procedure,
Forma radne operacije fali ovo sto si ti napravio i ja dodao samo poziv:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. 'Written by Helen Feddema 4-Oct-2007
  3. 'Last modified 4-Oct-2007
  4.  
  5. On Error GoTo ErrorHandler
  6. Call Rekord
  7.    Me.txtSelectedID.Value = Me.BROJ_OP
  8.    
  9. ErrorHandlerExit:
  10.    Exit Sub
  11.  
  12. ErrorHandler:
  13.    MsgBox "Error No: " & Err.Number & "; Description: " & _
  14.       Err.Description
  15.    Resume ErrorHandlerExit
  16.  
  17. End Sub
forma realizacijasub
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub komada_Exit(Cancel As Integer)
  2. Cancel = KontrolaKomada
  3. End Sub