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_String FROM Proces"
Set Rs1 = DB.OpenRecordset(SQL1)

Do While Not Rs1.EOF
StariKljuc = ID
NoviKljuc = ID_String
SQL2 = "SELECT " & ImePoljaNovogKljuca & " FROM " & Imetabela & " WHERE " & ImePoljaStarogKljuca & "=" & StariKljuc
Do While Not Rs2.EOF
Rs2.Edit
Rs2.Fields(0) = NoviKljuc
Rs2.MoveNext
Loop
Rs2.Close
Rs1.MoveNext
Loop
End Function