Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Zapisi(ImeT As String, IDK As String) Dim Rs1 As Recordset Dim Rs2 As Recordset Dim SQL1 As String Dim SQL2 As String SQL1 = "SELECT * FROM Indeks" SQL2 = "SELECT * FROM " & ImeT _ & " WHERE IDstroja='" & IDK & "' Or IDstroja In (SELECT IDDijela FROM Indeks) " _ & "Or IDstroja In (SELECT ID FROM Proces WHERE Klasa=5)" Set Rs1 = Db.OpenRecordset(SQL1) Set Rs2 = Db.OpenRecordset(SQL2) Do While Not Rs2.EOF Rs1.AddNew Rs1!IDstroja = Rs2!IDstroja R