Prikazi cijelu temu 22.01.2011 15:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Evo ostatak koda.
Ide u isti modul.
Nemoj nista ispravljati samo prekopiraj sve po redu u novi modul. Ono gore prije i ovo.
Ukoliko ne bude islo poslat cu ti modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function BrojKomada()
  2. Dim DB As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim BrKomada As Long
  6. Dim IDdijela As String
  7.  
  8. Set DB = CurrentDb
  9. Set Rs1 = DB.OpenRecordset("Indeks")
  10. Do While Not Rs1.EOF
  11. IDdijela = Rs1!IDdijela
  12. If Rs1!KOMADA = 1 Then
  13. BrKomada = Rs1!Kom
  14. Else
  15. BrKomada = Rs1!KOMADA
  16. End If
  17. Set Rs2 = DB.OpenRecordset("SELECT * FROM Indeks WHERE idstroja ='" & IDdijela & "'")
  18.     Do While Not Rs2.EOF
  19.     Rs2.Edit
  20.     Rs2!KOMADA = BrKomada * Rs2!Kom
  21.     Rs2.Update
  22.     Rs2.MoveNext
  23.     Loop
  24. Rs2.Close
  25. Rs1.MoveNext
  26. Loop
  27. Rs1.Close
  28.  
  29. End Function
  30.  
  31. Function Slaganje()
  32. Dim Rs As Recordset
  33. Dim SQL As String
  34. Dim Kat As String
  35. Dim I As Integer
  36. Dim IDstroja As String
  37. Dim IDdijela As String
  38. Dim Brojac As Integer
  39.  
  40.  
  41. Set DB = CurrentDb
  42. SQL = "SELECT * FROM Indeks"
  43. Set Rs = DB.OpenRecordset(SQL)
  44.  Do While Not Rs.EOF
  45.  Rs.Edit
  46.  Rs!Slaganje = ""
  47.  Rs.Update
  48. Rs.MoveNext
  49. Loop
  50. Rs.Close
  51. For I = 0 To 5
  52. SQL = "SELECT * FROM Indeks WHERE Kat=" & I
  53. Set Rs = DB.OpenRecordset(SQL)
  54.  Do While Not Rs.EOF
  55.  Brojac = Brojac + 1
  56.  IDdijela = Rs!IDdijela
  57.  Rs.Edit
  58.  If Format$(Rs!Slaganje) = "" Then
  59.  Rs!Slaganje = I & "." & Str(Brojac)
  60.  Else
  61.  Rs!Slaganje = Rs!Slaganje & "." & I & "." & Str(Brojac)
  62.  End If
  63.  Kat = Rs!Slaganje
  64.  Rs.Update
  65.  Unos IDdijela, Kat, I
  66.  Rs.MoveNext
  67.  Loop
  68.  Rs.Close
  69.  Brojac = 0
  70. Next I
  71. End Function
  72.  
  73. Function Unos(ID As String, KLASA As String, K As Integer)
  74. Dim Rs As Recordset
  75. Dim SQL As String
  76. Dim Slaganje As String
  77. Dim Brojac As Integer
  78. Set DB = CurrentDb
  79.  
  80. SQL = "SELECT * FROM Indeks WHERE IDstroja='" & ID & "'"
  81. Set Rs = DB.OpenRecordset(SQL)
  82.  Do While Not Rs.EOF
  83.  Brojac = Brojac + 1
  84.  Slaganje = KLASA & "." & Str(Brojac)
  85.  Rs.Edit
  86.  Rs!Slaganje = Slaganje
  87.  Rs.Update
  88.  Rs.MoveNext
  89.  Loop
  90. Rs.Close
  91. End Function
  92.  
  93. Function Pasus(K As Integer) As String
  94. Dim I As Integer
  95. I = K
  96. Do While I > Brojac
  97. I = I - 1
  98. Pasus = Pasus & "  "
  99. Loop
  100.  
  101. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.