Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (3):1,2,3

#1 11.07.2012 10:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  PrimjerOperacije.rar
Preuzimanja:270
Velicina datoteke:84.60 KB

Pozdrav
↑  ↓

#2 11.07.2012 12:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 11.07.2012 13:09
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Limitiranje upisa količine
Mora biti manje ili jednako od prednodnog upisa za isti BROJ iz tblRealizacija
Pozdrav
↑  ↓

#4 11.07.2012 13:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 11.07.2012 13:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 11.07.2012 13:54 od strane pmiroslav. ↑  ↓

#6 11.07.2012 16:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 11.07.2012 17:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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)

Slicice prilozenih slika:
Image3.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:285
Velicina datoteke:60.37 KB
Velicina slike: 790 x 361 Pikseli
Image4.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:272
Velicina datoteke:102.75 KB
Velicina slike: 797 x 565 Pikseli
Image5.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:281
Velicina datoteke:106.93 KB
Velicina slike: 817 x 590 Pikseli

Pozdrav
↑  ↓

#8 11.07.2012 19:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 12.07.2012 07:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Limitiranje upisa količine
Upisao sam ove funkcije koje si napravio i ništa se ne dešava.

Prilozi:
Informacije o tipu datoteke za:rar  PrimjerOperacije_2.rar
Preuzimanja:265
Velicina datoteke:106.90 KB

Pozdrav
↑  ↓

#10 12.07.2012 10:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 15 pm.