Function Slozi()
    Dim Baza As Database                              
    Dim Sl_Table1  As Recordset
    Dim Sl_Table2  As Recordset
    Dim Usl_Poz   As String
    Dim Sl_Poz   As Recordset
    Dim Stroj As String
    Dim Sklop   As String
    Dim Podsklop  As String
    Dim Cvor As String
    Dim tekuciStroj As String
    Dim tekuciSklop As String
    Dim tekuciPodsklop   As String
    Dim tekuciCvor As String
    Dim stDocName As String
  
[color=#FF0033]  'problem je nešto u ovome ?[/color]
 Usl_Poz = "SELECT * FROM [QryShema] WHERE IDStr  = " & Stroj _
                                               & "And IDSkl  = " & Sklop _
                                               & "And IDPskl = " & Podsklop _
                                               & "And IDv   = " & Cvor
            
            
            Set Sl_Poz = Baza.OpenRecordset(Usl_Poz, dbOpenDynaset)  [color=#FF0033] ' Procedura stane na ovome
            [/color]
            If Sl_Poz.RecordCount > 0 Then
              Sl_Poz.MoveFirst
              While Not Sl_Poz.EOF   ' dodaje slogove za Pozicije'''
                  With Sl_Table2
                  If Not IsNull(Sl_Table1![IDPoz]) Then
                      .AddNew
                      ![IDStroja] = Sl_Table1![IDKombinacija]
                      ![Nivo] = 4
                      ![KomStr] = Sl_Table1![KomStr]
                      ![Index] = Sl_Table1![IndexPoz]
                      ![IDdijela] = Sl_Poz![IDPoz]
                      ![BrKomada] = Sl_Poz![KomPoz]
                      ![BrKomadaSum] = Sl_Poz![KomPoz] * Sl_Table1![Komv] * Sl_Table1![KomPskl] * Sl_Table1![KomSkl] * Sl_Table1![KomStr]
                      .Update
                      End If
                  End With
                  Sl_Poz.MoveNext
              Wend