zxz 07.01.2011 19:12
Predmet:Re: Server i Access baza

Da upravo to sam i napravio. Samo da bi provjerio sta ti je preneseni kljuc.
Evo sad cu sjesti napraviti ti proceduru za izdvajanje elemenata.
Medjutim imas ti tu jos problema koliko sam ja vidio. Onaj tvoj izvjestaj mi ne udise jasnoscu ili ga ja neznam koristiti.
Na njemu se nevidi ni sta je sklop niti podsklop niti cvor itd i sta cemu pripada.
Psto si ti to zaokruzio nivoe odnosno imas ih 4 ako izuzmemo ono kombinacija sto mislim kada odaberes vise strojeva sklopova itd. mogao bi napraviti i cetiri izvjestaja pa uvoziti jedan u drugi pa bi se znalo sta cemu pripada ili pak ootvoriti group header sa ovim grupama.

I dalje mislim da bi trebalo ovo ponovo sve preurediti inace ces kuburiti stalno.
Neznam dali gdje zapisujes ove sheme kako si ih nazvao ili mozda bolje raci radne naloge.
Pitam zbog toga da znam dali se baza povecava.

zxz 07.01.2011 23:41
Predmet:Re: Server i Access baza

Napravi jednu tabelu (mozes kopirati unu neku Shema, Shema moja itd.) Bitno je da ima polja:
IdStroja
IdDijela
Kat
KOM

PreuzmiIzvorni kôd (Visual Basic):
  1. Ovaj kod kopiraj u neki modul.
  2. Option Compare Database
  3. Option Explicit
  4. Dim Db As Database
  5. Function Strojevi(ID As String, Kategorija As Integer)
  6. Dim ImeTabele As String
  7.  
  8. Set Db = CurrentDb
  9. Db.Execute "DELETE*FROM [Indeks]"
  10.  
  11. Select Case Kategorija
  12. Case 0
  13. Kombinacija:
  14. ImeTabele = "tblKombinacija"
  15. Zapisi ImeTabele, ID
  16. GoTo STROJ
  17. Case 1
  18. STROJ:
  19. ImeTabele = "Stroj"
  20. Zapisi ImeTabele, ID
  21. GoTo SKLOP
  22. Case 2
  23. SKLOP:
  24. ImeTabele = "SKLOP"
  25. Zapisi ImeTabele, ID
  26. GoTo Podsklop
  27. Case 3
  28. Podsklop:
  29. ImeTabele = "PODSKL"
  30. Zapisi ImeTabele, ID
  31. GoTo Cvor
  32. Case 4
  33. Cvor:
  34. ImeTabele = "CVOR"
  35. Zapisi ImeTabele, ID
  36. End Select
  37.  
  38. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisi(ImeT As String, IDK As String)
  2. Dim Rs1 As Recordset
  3. Dim Rs2 As Recordset
  4. Dim SQL1 As String
  5. Dim SQL2  As String
  6.  
  7. SQL1 = "SELECT * FROM Indeks"
  8. SQL2 = "SELECT * FROM " & ImeT _
  9.  & " WHERE IDstroja='" & IDK & "' Or IDstroja In (SELECT IDDijela FROM Indeks) " _
  10.   & "Or IDstroja In (SELECT ID FROM Proces WHERE Klasa=5)"
  11. Set Rs1 = Db.OpenRecordset(SQL1)
  12. Set Rs2 = Db.OpenRecordset(SQL2)
  13.     Do While Not Rs2.EOF
  14.     Rs1.AddNew
  15.     Rs1!IDstroja = Rs2!IDstroja
  16.     Rs1!IDdijela = Rs2!IDdijela
  17.     Rs1!kat = Rs2!kat
  18.     Rs1!KOM = Rs2!KOM
  19.     Rs1.Update
  20.     Rs2.MoveNext
  21.     Loop
  22. Rs1.Close
  23. Rs2.Close
  24. End Function
Ovimces dobiti sve elemente da krenes bilo odakle. Hocu reci od sklopa stroja itd.
U tvome combu SelectProdukt ti je u koloni 1 (column(1) Ulazni parametar kategorija u proceduri a id u column(0)
Ovim ces dobiti sve sastavne elemente. E sad sta ces dalje neznam. Dali mislis mijenjati izvjestaj ili ces ga ostaviti onakvog.

pmiroslav 13.01.2011 11:16
Predmet:Re: Server i Access baza

Evo smo da se javim kako nebi ispalo da sam odustao.
Ali bio mi se pokvario kompjuter pa sam imao problema oko toga, a i trenutno na poslu se nakupilo zaostataka pa nemam vremena da ovo pošteno istestiram.

Pozdrav

zxz 13.01.2011 20:12
Predmet:Re: Server i Access baza

Hehe i ja sam u frci a mislio sam napraviti jos jednu proceduru na drugi nacin.
Isto ce se dobiti samo na drugi nacin.
Kada stignem napravit cu.

zxz 14.01.2011 12:26
Predmet:Re: Server i Access baza

Samo jos jedno pitanje.
Jel tebi ovi podaci trebaju samo u uzvjestaju.
Pitam iz razloga sto imam ideju da napravim izvjestaj sa kolicinama.
Nemam vremena ove sedmice ali iduce cu imati nadam se.

pmiroslav 14.01.2011 13:38
Predmet:Re: Server i Access baza

Podaci mi trebaju za viÅ¡e različitih namjena
-prinranje trebovnica
-izračune cijene koÅ¡tanja
-zbirnik materijala koji je potreban za izradu.
-pregled vremena izrade
-preglede radnih operacija itd.

ovo je več dosta velika baza i služi za pračenje proizvodnog procesa.

P:S:
Imama ja jedno pitanje
Kako Funkciju koju si mi zadnju dao pokrenuti sa forme.

zxz 14.01.2011 16:05
Predmet:Re: Server i Access baza

Aha.
Cini ni se da ti se onaj combo zove select produkt I drugi select categori. gdje su ti ulazni prametri za proceduru Strojevi.
Znaci trebalo bi poziv staviti na after update te kontrole.
Pa bi bilo na selectProdukt:
call Strojevi(Me.selectProduct,me.SelectCategori)

Nism siguran u tvoje nazive polje provjerit cu. Sad nisam u prilici.

pmiroslav 15.01.2011 18:32
Predmet:Re: Server i Access baza

Prvo da ti se zahvalim na tvom dosadašnjem trudu i strpljenju da ovo nekako riješimo.
Danas sam testirao funkciju koji si mi zadnju poslao i nekako se čudno ponaÅ¡a.
U reduciranoj bazi sa samo dva stroja, koju sam prikaćio Funkcija upiÅ¡e u tablicu Indeks ispravne podatke ali nisu baÅ¡ složeni po redosljedu kako bih ja to želio.
Međutim kada istu funkciju pokrenem u originalnoj bazi gdje ima puno rekorda u tablicu indeks upiÅ¡u se i neki djelovi koji tamo ne pripadaju.
Prilozi:
01_Cvor.jpg (Velicina datoteke:161.75 KB)
02_Sklop.jpg (Velicina datoteke:293.41 KB)

pmiroslav 15.01.2011 18:36
Predmet:Re: Server i Access baza

Evo i nova baza sa svim podacima.
Podjelio sam rar u dva dijela da stane u Attach
Prilozi:
Proces_New_1.part01.rar (Velicina datoteke:488.28 KB)
Proces_New_1.part02.rar (Velicina datoteke:320.54 KB)

zxz 16.01.2011 11:07
Predmet:Re: Server i Access baza

Ovo sto se tice slaganja si u pravu nece sloziti po redosledu niti ce broj komada izbaciti odnosno izmnoziti. To sam mislio da se uradi u izvjestaju direktno. Naravno moze se napraviti i procedura.
Druga stvar trebalo bi ovu tabelu sto se brise na kraju izbaciti iz baze vani jer nije dobro u bazi stalno brisati i dodavati podatke. Ovo sve moze ostati dok ne rijesimo ovaj dio, odnosno dok ne izdvojimo podatke.
Ovo cu provjeriti za pozicije sto si naveo. Moguce da postoji negdje rupa u proceduri. Sto se tice samog postupka mislim da tu nisam pogrijesio.