<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 />
Option Compare Database
Option Explicit
Dim DB As Database
Function Zbirna()
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Imetabele(0 To 4) As String
Dim N As Integer
Dim I As Integer

DB.Execute "DELETE*FROM [Tbl_Zbirna]"
Set DB = CurrentDb
Imetabele(0) = "TblKombinacija"
Imetabele(1) = "Stroj"
Imetabele(2) = "Sklop"
Imetabele(3) = "Podskl"
Imetabele(4) = "Cvor"
Set Rs2 = DB.OpenRecordset("Tbl_Zbirna")
For I = 0 To 4
Set Rs1 = DB.OpenRecordset(Imetabele(I))
Do Whi