Function PrebaciKljuc(ImeTabele As String, ImePoljaStarogKljuca, ImePoljaNovogKljuca As String)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2 As String
Dim StariKljuc As Integer
Dim NoviKljuc As String


Set Db = CurrentDb
SQL1 = "SELECT ID, ID_N FROM Proces"
Set Rs1 = Db.OpenRecordset(SQL1)

Do While Not Rs1.EOF
StariKljuc = Rs1!ID
NoviKljuc = Rs1!ID_N
SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & ImeTabele & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc
Set Rs2 = Db.OpenRecordset(SQL2)
    Do While Not Rs2.EOF
    Rs2.Edit
    Rs2.Fields(0) = NoviKljuc
    Rs2.Update
    Rs2.MoveNext
    Loop
Rs2.Close
Rs1.MoveNext
Loop
End Function