Prikazi cijelu temu 19.12.2010 12:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Autonumber se ponavlja
Evo ti procedura.
Na ovim poljima u field size upisi 8.
Evo primjera poziva za tabelu Stroj.
?PrebaciKljuc("Stroj","IDStroja","IDstroja_N")

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String)
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim SQL1 As String
  6. Dim SQL2 As String
  7. Dim StariKljuc As Integer
  8. Dim NoviKljuc As String
  9.  
  10.  
  11. Set Db = CurrentDb
  12. SQL1 = "SELECT ID, ID_N FROM Proces"
  13. Set Rs1 = Db.OpenRecordset(SQL1)
  14.  
  15. Do While Not Rs1.EOF
  16. StariKljuc = Rs1!ID
  17. NoviKljuc = Rs1!ID_N
  18. SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & ImeTabele & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc
  19. Set Rs2 = Db.OpenRecordset(SQL2)
  20.     Do While Not Rs2.EOF
  21.     Rs2.Edit
  22.     Rs2.Fields(0) = NoviKljuc
  23.     Rs2.Update
  24.     Rs2.MoveNext
  25.     Loop
  26. Rs2.Close
  27. Rs1.MoveNext
  28. Loop
  29. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.