<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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)
    D