Prikazi cijelu temu 21.01.2011 17:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Uf Ima lijepo posla na ovome.
Neznam kako bi ti ovo naplatio ili u pivu ili da ti dam jedan dalekovodni stub da nacrtas.
Evo danas sam slobodan pa sam uzeo ovo tvoje.
Prvo sam prebacio podatke sve u jednu zabelu (Sklopove, kombinacije, strojeve itd) i dao joj ime Tbl_Zbirna.
Mislim da ti ****lje ovako. da sve imas na jednomk mjestu.
Jednostavno uzmi jednu od ovih tabela sklopova cvorova ili bilo koju i kopiraj je pod imenom Tbl_Zbirna.
Poslije toga pokreni sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim DB As Database
  4. Function Zbirna()
  5. Dim Rs1 As Recordset
  6. Dim Rs2 As Recordset
  7. Dim Imetabele(0 To 4) As String
  8. Dim N As Integer
  9. Dim I As Integer
  10.  
  11. DB.Execute "DELETE*FROM [Tbl_Zbirna]"
  12. Set DB = CurrentDb
  13. Imetabele(0) = "TblKombinacija"
  14. Imetabele(1) = "Stroj"
  15. Imetabele(2) = "Sklop"
  16. Imetabele(3) = "Podskl"
  17. Imetabele(4) = "Cvor"
  18. Set Rs2 = DB.OpenRecordset("Tbl_Zbirna")
  19. For I = 0 To 4
  20. Set Rs1 = DB.OpenRecordset(Imetabele(I))
  21. Do While Not Rs1.EOF
  22.     Rs2.AddNew
  23.     For N = 0 To 4
  24.     Rs2.Fields(N) = Rs1.Fields(N)
  25.     Next N
  26.     Rs2.Update
  27. Rs1.MoveNext
  28. Loop
  29. Next I
  30. End Functi
on

Najbolje otvori novi modul. One stare pobrisi pa sav kod od sad stavljaj u njega.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.