pmiroslav 22.01.2011 18:49
Predmet:Re: Server i Access baza

Tko je pobjegao?

zxz 22.01.2011 19:32
Predmet:Re: Server i Access baza

Hehe izgleda ja. kad sam navracao nije te bilo.
Jeli todo sad to sto si kopirao radi.
Ima li gresaka?

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

Sve Å¡to sam kopiro radi, ali kako si slao funkcije po etapama nisam bio siguran daje to sve, pa sam Å¡utio.
Evo sada analiziram pa se javim.

zxz 22.01.2011 20:37
Predmet:Re: Server i Access baza

Hehehe neka moras malo da radis.

pmiroslav 22.01.2011 21:15
Predmet:Re: Server i Access baza

Uvezao sam modul u svoju originalnu bazu i za početak problemi su slijedeči:

Kada u ComboBox-u SelectProduct izaberem Poziciju, što je osnovni elemenat koji nema sastavnih dijelova, javlja se greška
Otvori se Funkcija Zapisi i stane na

Rs1.AddNew
Rs1!IDdijela = Rs2!IDStroja

Isto se dogodi i ako izaberem Čvor a on slučajno nema upisane svoje sastavne dijelove.

zxz 22.01.2011 21:24
Predmet:Re: Server i Access baza

Da to sam i ja malo gledao dok sam te cekao.
Gresku cini kod koji sam ja napravio da cita i sklop cvor i ostalo koji odabers.
evo rjesenja:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisi(Kat As Integer, IDK As String, Op As Integer)
  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. If Op = 0 Then
  9. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  10. & " WHERE IDstroja='" & IDK & "'" '
  11. Else
  12. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  13.  & " WHERE IDstroja In (SELECT IDDijela FROM Indeks WHERE kat=" & Kat & ") Order BY IndexSklop" '& Imetabele
  14. End If
  15. Set Rs1 = DB.OpenRecordset(SQL1)
  16. Set Rs2 = DB.OpenRecordset(SQL2)
  17. If Op = 0 Then
  18. If Rs2.RecordCount > 0 Then
  19.    Rs1.AddNew
  20.     Rs1!IDstroja = "0000001"
  21.     Rs1!IDdijela = Format$(Rs2!IDstroja)
  22.     Rs1!Kat = Kat - 1
  23.     Rs1!Kom = 1
  24.     Rs1.Update
  25. End If
  26. End If
  27.     Do While Not Rs2.EOF
  28.     Rs1.AddNew
  29.     Rs1!IDstroja = Rs2!IDstroja
  30.     Rs1!IDdijela = Rs2!IDdijela
  31.     Rs1!Kat = Rs2!Kat
  32.     Rs1!Kom = Rs2!Kom
  33.     Rs1.Update
  34.     Rs2.MoveNext
  35.     Loop
  36. Rs1.Close
  37. Rs2.Close
  38. End Function

pmiroslav 22.01.2011 21:34
Predmet:Re: Server i Access baza

Sada se ovori modul u na Funkciji BrojKomada i zaustavi na
If Rs1!KOMADA = 1 Then

pmiroslav 22.01.2011 21:39
Predmet:Re: Server i Access baza

Kada otvaram Q_Izvjestaj
trazi mi vrijednost za
Index.Komada
i
Index.Slaganje

zxz 22.01.2011 21:48
Predmet:Re: Server i Access baza

da to sam ti napisao da trebas dodati ta polja u indeks.
komada je integer
slaganje je text 255 karaktera

pmiroslav 22.01.2011 22:21
Predmet:Re: Server i Access baza

Tako je. Dodao sam to na početku u reduciranoj bazi, a nisam u ovoj velikoj.
Kako mi se čini na ovim elementima sa malo dijelova sve je u redu, a za ostalo ću morati pričekati do ponedeljka pa da si na poslu isprintam usporedne izvjeÅ¡take pa da vidim kao to izgleda kod sklopova i strojeva.
Hvala za sada
Laku noć