Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 " & ImePoljaSt