zxz 01.02.2011 19:21
Predmet:Re: Server i Access baza

Jesil ovo zadnje implementirao.

pmiroslav 01.02.2011 19:28
Predmet:Re: Server i Access baza

Citiraj zxz:
Ti hoces da prepises kat grupe napr stroj a podgrupa moze biti bilo sta sklop podsklop cvor te kat isto tako moze biti 3,4 itd.
Kada hoces u sklop napr. dodati cvor kat sklopa je 2 a cvora 4
Jedino mozes ovo napraviti kada ima rekorda da ti pokaze.

Kod koji si mi dao znao sam i ja ali me on ne zadovoljava jer ako neme rekorda za određeni izbor tj. krene se od poćetka, onda se nema Å¡to prepisati u novi red. A kada ima podataka onda mi se kada zavrÅ¡i upis, uvjek javlja greÅ¡ka (slika)

Mislio sam da se iskoristi recimo ovakav query i iz njega Proces.Klasa
PreuzmiIzvorni kôd (vbnet):
  1. SELECT Indeks.Slaganje, PROCES.PozKratica, PROCES.NAZIV, PROCES.KLASA, Indeks.Kat, Indeks.IDstroja, Indeks.Kom, Indeks.Komada
  2. FROM Indeks INNER JOIN PROCES ON Indeks.IDdijela = PROCES.ID;
Prilozi:
greska.jpg (Velicina datoteke:94.02 KB)

pmiroslav 01.02.2011 19:53
Predmet:Re: Server i Access baza

Ja sam malo doradio funkciju koju si mi prije dao i u nju povukao broj za kategoriju, e sad ne znam kako to iskoristiti za Defaukt value

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub MeniD_AfterUpdate()
  2. Dim Nodx As Node
  3. Dim Rs As Recordset
  4. Dim Indeks As String
  5. Dim Tekst As String
  6. Dim Text_Poz As String
  7. Dim Text_Naz As String
  8. Dim Text_Label As String
  9. Dim Kategorija As Integer ' [b]Dodao sam ovo[/b]
  10. Dim Kom As Integer
  11. Dim SQL As String
  12. Dim ImgI As Integer
  13. Dim Db As Database
  14. Dim Nadredjeni As String
  15.  
  16. Strojevi Me.MeniD, Me.MeniC
  17. Set Db = CurrentDb
  18.  
  19. SQL = "SELECT * FROM Q_Indeks ORDER BY Slaganje"
  20. On Error Resume Next
  21.  
  22. Me.sTREE.SetFocus
  23. Start:
  24.             Set Rs = Db.OpenRecordset(SQL)
  25.             sTREE.Nodes.Clear              
  26.             Rs.MoveFirst
  27.             Nadredjeni = "@" & Rs!Slaganje
  28.             Indeks = "@" & Rs!Slaganje
  29.             Text_Naz = Rs!NAZIV
  30.             Text_Poz = Rs!PozKratica
  31.  
  32.             Kategorija = Rs!KLASA    '[b]Ovo sam dodao[/b]
  33.  
  34.             Tekst = Text_Poz & " - " & Text_Naz & " - " & Kategorija
  35.            
  36.         '---------------------------------------
  37.         Do While Not Rs.EOF
  38.         If Nadredjeni = Indeks Then
  39.         Set Nodx = sTREE.Nodes.Add(, , Indeks, Tekst)
  40.         Nodx.Bold = True
  41.         Else
  42.         Nodx.Bold = False
  43.        
  44.         Set Nodx = sTREE.Nodes.Add(Nadredjeni, tvwChild, Indeks, Tekst)
  45.        End If
  46.         ImgI = Val(Rs!KLASA)
  47.         sTREE.Nodes(Indeks).image = ImgI
  48.         Rs.MoveNext
  49.  
  50.         Kom = Rs!Kom
  51.         Text_Naz = Rs!NAZIV
  52.         Text_Poz = Rs!PozKratica
  53.  
  54.         Kategorija = Rs!KLASA  ' [b]I  ovo sam dodao[/b]
  55.  
  56.         Tekst = Kom & " x " & Text_Poz & " - " & Text_Naz & " - " & Kategorija
  57.         Indeks = "@" & Rs!Slaganje
  58.         Nadredjeni = Parentni(Rs!Slaganje)
  59.         Loop
  60. Rs.Close
  61. Exit Sub
  62.  
  63. End Sub
Prilozi:
kat.jpg (Velicina datoteke:177.89 KB)

zxz 01.02.2011 23:22
Predmet:Re: Server i Access baza

hehe zato sam stavio on error resume next.
Ovdje se to moze staviti jer ako i ne uradi upisat ces.
Jedino sto mozemo staviti je ako hoces naprimjer kada opdaberes sklop da ti daje kat od podsklopa.
Opet napominjem da ti na sklop mozes dodati nap cvor te zato bi se kat trebao pisati bar u prvi red pa poslije neka se prepisuje kao default.
Umjesto kat trebas staviti combo pa da bude tekst. neka i drugi znaju sta je to:
U combo rowsource upises:
0;Kombinqacija;1;Stroj itd..
U table Qyery vale list.

pmiroslav 02.02.2011 12:45
Predmet:Re: Server i Access baza

Čini mi se da sam ovo uspio rijeÅ¡izi na slijedeći način:
Na formu sam dodao Text Box koji sam nazvao txtKat.

U Proceduri Sub sTree dodaosam

Me.txtKat = Val(Right(sTREE.Object.SelectedItem.Text, 1))

Što mi u taj TextBox upiše kaegoriju selektitanog dijela na stablu

Na formi F_Izmjeme u polju Kat

Default Value = =[Forms]![Frm_Strojevi]![txtKat]

sada sve radi OK.

zxz 02.02.2011 16:19
Predmet:Re: Server i Access baza

Mozes ti to upisati i direktno u default value ali sto sam napomenuo obicno klines na grupu a upisujes podgrupu. Mislio sam ja upisati idgrupe-1 medjutim ima slucajeva da je grupa sklop a podrgrupa napr.cvor.

pmiroslav 02.02.2011 20:36
Predmet:Re: Server i Access baza

Nema tu nikakve komplikacije . Svar je jednostavna.
Kada na stablu editiram neki element npr.

5501.10 - NAZIV ( 2 Kategorija ili Klasa)
svim pripadajućim elementima koje upisujemo u tom trenutku u subformu F_Izmjene mora se upisati ista kategorija tj. 2. u polje KAT.

ako editiram

5501.10.01 - NAZIV (3 Kategorij)
Svim elementima u F_Izmjena upisuje se KAT = 3 itd.

Nema različitih varijanti za jedan izbor na stablu.

zxz 02.02.2011 20:49
Predmet:Re: Server i Access baza

Ne razumijem.
Evo konkretno.
Izberemo stroj 17.
Na njemu kliknemo dupli klik na glavina koja je Kat 1.
U desnom prozoru dobijemo 2 elementa i to:
Glavina i
PRIRUBNICA

koji su kat 3.

Mozda si ti sta mijenjao.
ja sam to zamislio i napravio tako da biras u meniju grupu a u podmeniju dobijes podgrupu od te grupe.

pmiroslav 03.02.2011 08:18
Predmet:Re: Server i Access baza

NiÅ¡ta nisam mjenjao. Ali u tablicu Tbl_Zbitna uz element ne upisujemo koja je njegova kategorija več koja je kategorija viÅ¡eg elementa u koji se on ugrađuje.
Znači kada smo iz starih tablica
tblKombinacija, Stroj , Sklop, Podsklop i Cvor sve kopirali u novu tablicu Tbl_Zbirna tada smo

Ako smo kopirali iz
tblKombinacija polje Kat = 0
Stroj polje Kat = 1
Sklop polje Kat = 2
Podsklop polje kat = 3
Cvor polje kat =4

kat = 5 se ne koristi u Tbl_Zbirna jer Pozicija nema sastavnih dijelova

znači kat se odnosi na IDstroja, ane na IDdijela

zxz 03.02.2011 11:15
Predmet:Re: Server i Access baza

Dobro bitno je da radi kako ti mislis da treba.
Bolje je da idemo dalje.
Sada naparavi sub dir u dir baze podataka. Posto ti je baza na serveru znaci na sreveru mozes napraviti subdir napr da se zove bitmap i nemore tako ali eto. Skeniraj nekoliko slika pozicija i strojeva i postavi tu ali daji imena iddijela. Ako imas vecinu u acadu onda ****lje da sve bude u dwg. Ostale koje imas na pausu onda bi mogao skenirati pa uvesti u akad kao vanjsku ref.
Bitno je samo da bude jedinstveno. ako je bmp neka sve bude bmp ako je jpg neka sve bude jpg ili pak dwg.