Prikazi cijelu temu 29.12.2010 12:03
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Server i Access baza
Evo ja se tu neÅ¡to mučim ali baÅ¡ mi ne ide.

PreuzmiIzvorni kôd (vbnet):
  1. Function Slaganje(kat As Integer, Stroj As String)
  2. Dim Baza As Database
  3. Dim Ulazna As Recordset
  4. Dim Zavrsna As Recordset
  5. Dim Dio As String
  6. Dim Cjelina As String
  7.  
  8. CurrentDb.Execute "DELETE*FROM[tblShema]"
  9. Set Baza = CurrentDb()
  10. Set Ulazna = Baza.OpenRecordset("tblShemaMontaze", dbOpenDynaset)
  11. Set Zavrsna = Baza.OpenRecordset("tblShema", dbOpenDynaset)
  12. Dio = Ulazna![IDDijela]
  13. Cjelina = Ulazna![IDStroja]
  14.  
  15. If Ulazna.RecordCount > 0 Then
  16. Ulazna.MoveFirst
  17. Do While Not Ulazna.EOF
  18.  
  19. If Ulazna![kategorija] = kat And Ulazna![IDStroja] = Stroj Then
  20.  
  21. With Zavrsna
  22. .AddNew
  23. ![kategorija] = Ulazna![kategorija]
  24. ![IDStroja] = Ulazna![IDStroja]
  25. ![Index] = Ulazna![IndexSklop]
  26. ![IDDijela] = Ulazna![IDDijela]
  27. ![kom] = Ulazna![kom]
  28. .Update
  29. End With
  30. End If
  31.  
  32. If Dio = Cjelina Then ' Tu bi trebalo ako je IDdijela postoji u Koloni IDstroja
  33.                       ' da u nastavku ispiÅ¡e posdatke o njemu
  34. With Zavrsna
  35. .AddNew
  36. ![kategorija] = Ulazna![kategorija]
  37. ![IDStroja] = Ulazna![IDStroja]
  38. .Update
  39. End With
  40.  
  41. End If
  42.  
  43. Ulazna.MoveNext
  44. Loop
  45. End If
  46. End Function

U konačnici bih trebao dobiti neÅ¡to kao Å¡tp je u tablici SHEMA koja je u prilogu

Prilozi:
Shama_2.rar
Preuzimanja:219
Velicina datoteke:8.45 KB

Pozdrav