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

Rs2.Close

Rs1.MoveNext

End Function