<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
Dim MojaTabela As Recordset
Const MojSQL = "SELECT * FROM ShemaMoja"

Function TabelaProces()
Dim SQL As String
Dim Rs As Recordset
Dim Kljuc As String

Set Db = CurrentDb
SQL = "SELECT ID FROM PROCES"

Set Rs = Db.OpenRecordset(SQL)
Set MojaTabela = Db.OpenRecordset(MojSQL)
Do While Not Rs.EOF
Kljuc = Rs.Fields(0)
Call Upis_Podataka("0_tblKombinacija", Kljuc)
Call Upis_Podataka("1_STROJ", Kljuc)
Call Upis_Podataka("2_SKLOP", Kljuc)
Call Upis_Podataka("3_PODSKL", Kljuc)
Call Upis_Podataka("4_CVOR", Kljuc)
Rs.MoveNext
Loop

End Function
Function Upis_Podataka(ImeTabele As String, IdStroja As String)
Dim SQL As String
Dim Rs As Recordset

SQL = "SELECT * FROM " & ImeTabele & " WHERE IDstroja='" & IdStroja & "'"
Set Rs = Db.OpenRecordset(SQL)

Do While Not Rs.EOF
MojaTabela.AddNew
MojaTabela!IdStroja = Rs!IdStroja
MojaTabela!komada = R