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 = Rs!Kom
MojaTabela!nivo = Rs!Kat
MojaTabela!IdDijela = Rs!IdDijela
MojaTabela!Index = Rs.Fields(3)
MojaTabela.Update
Rs.MoveNext
Loop
End Function