Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (22):1,2 ... 9,10,11,12,13 ... 21,22
 Prikazi prvu neprocitanu poruku

#101 22.01.2011 19:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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

#102 22.01.2011 20:36
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#103 22.01.2011 20:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Hehehe neka moras malo da radis.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#104 22.01.2011 21:15
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#105 22.01.2011 21:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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

#106 22.01.2011 21:34
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Sada se ovori modul u na Funkciji BrojKomada i zaustavi na
If Rs1!KOMADA = 1 Then
Pozdrav
↑  ↓

#107 22.01.2011 21:39
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Kada otvaram Q_Izvjestaj
trazi mi vrijednost za
Index.Komada
i
Index.Slaganje
Pozdrav
↑  ↓

#108 22.01.2011 21:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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

#109 22.01.2011 22:21
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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ć
Pozdrav
↑  ↓

#110 22.01.2011 22:40
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
laku noc i tebi.
e sada ovo za sutra.
imam ja nekih izmjena i u izvjestaju.
napr stroj kuca fontom 13 sklop 12 itd.

mada bih ja ovo volio napraviti od pocetka pogotovo ako imas nacrte?
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (22):1,2 ... 9,10,11,12,13 ... 21,22

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 7: 59 am.