Private Sub C_Slozi_Click()
On Error GoTo Err_C_Slozi_Click
    Dim Baza As Database
    Dim Sl_ULAZNA As Recordset
    Dim Sl_Zavrsna As Recordset
    Dim Sl_Duplikati As Recordset
    Dim Sl_Pretrage As Recordset
    Dim Sl_Trebovnica As Recordset
    Dim Usl_Pretrage As String, Nalog As String, Serija As String
    Dim NalogSerija As String, Provjera As String, uBroj As String, Zadani As Long
  '--------------------------------------------------
    CurrentDb.Execute "DELETE*FROM [Trebovnica]"
    CurrentDb.Execute "DELETE*FROM [ZbirnikKonacni]"
    
DoCmd.Hourglass True

             ' -----------------------------------------------------------
      Shema  'Poziva se Funkcija SHEMA
             '------------------------------------------------------------
             
        DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit     'Kopiranje iz    ZbirnikQry u tablicu ZbirnikKonacni
        DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit  'Kopiranje iz ZbirnikPNDQry u tablicu ZbirnikKonacni
        DoCmd.OpenQuery "ZbirnikStrojPNDQryApp", acNormal, acEdit
                
    If IsNull([txtBrPrveTrebovnice]) Or [txtBrPrveTrebovnice] = 0 Then
        MsgBox "Morate upisati po
etni broj izdatnice", vbCritical, "Nedostaju podaci"
        Me![txtBrPrveTrebovnice].SetFocus
        GoTo Kraj
    End If
    
    Zadani = Me.txtBrPrveTrebovnice
    
 DoCmd.OpenQuery "Izdatnica", acViewNormal, acEdit   'Kopiranje iz tablica ZbirnikKonacni+Proces u tablicu Trebovnica
 
    Set Baza = CurrentDb()
    Set Sl_Trebovnica = Baza.OpenRecordset("Trebovnica", dbOpenDynaset)
       '------------------------------------------------------
       ' Upisivanje brojeva trebovnice u tablicu Trebovnica
       '------------------------------------------------------
    If Sl_Trebovnica.RecordCount > 0 Then
        Sl_Trebovnica.MoveFirst
        While Not Sl_Trebovnica.EOF
            With Sl_Trebovnica
               .Edit
               ![BrIzdatnice] = Zadani
               .Update
            End With
            Zadani = Zadani + 1
            Sl_Trebovnica.MoveNext
        Wend
    Else
        GoTo Kraj
    End If
    If MsgBox("Želiš li arhivirati nalog", vbYesNo, "Gotov sam!") = vbYes Then 'POCETAK KOPIRANJA NALOGA
    CurrentDb.Execute "DELETE*FROM DuplikatiNlg"
    Set Baza = CurrentDb()
    Set Sl_Zavrsna = Baza.OpenRecordset("ArhivaNalog", dbOpenDynaset)
    Set Sl_ULAZNA = Baza.OpenRecordset("QryPrvaStrana", dbOpenDynaset)
    Set Sl_Duplikati = Baza.OpenRecordset("DuplikatiNlg", dbOpenDynaset)
        Nalog = Forms![PitaIzdatnicu].[RadniNalog]
        Serija = Forms![PitaIzdatnicu].[Serija]
        NalogSerija = Nalog & "/" & Serija

If Forms![PitaIzdatnicu].[Gotovo] = True Then
    MsgBox "Ovaj nalog je ve
 lansiran", vbOKOnly
GoTo Kraj
End If
    If Sl_ULAZNA.RecordCount > 0 Then
       While Not Sl_ULAZNA.EOF
        Provjera = Forms![PitaIzdatnicu].[NalogID] & Sl_ULAZNA![IDdijela]
        uBroj = Provjera
        Usl_Pretrage = ("SELECT * FROM ArhivaNalog WHERE NalogID & IDDijela ='" & uBroj & "'")
        Set Sl_Pretrage = Baza.OpenRecordset(Usl_Pretrage, dbOpenDynaset)
   If Sl_Pretrage.RecordCount = 0 Then
            With Sl_Zavrsna
                 .AddNew
                 ![NalogID] = Forms![PitaIzdatnicu].[NalogID]
                 ![Nalog] = NalogSerija
                 ![IDStroja] = Sl_ULAZNA![IDStroja]
                 ![BrojStroja] = Sl_ULAZNA![BrojStroja]
                 ![NazivStr] = Sl_ULAZNA![NazivStr]
                 ![NivoB] = Sl_ULAZNA![Nivo]
                 ![IDdijela] = Sl_ULAZNA![IDdijela]
                 ![Kom] = Sl_ULAZNA![SumOfBrKomadaSum]
                 ![ZaIzraditi] = Forms![PitaIzdatnicu].[KOMADA] * Sl_ULAZNA![SumOfBrKomadaSum]
                 .Update
            End With
          Else
          With Sl_Duplikati
                 .AddNew
                 ![NalogID] = Forms![PitaIzdatnicu].[NalogID]
                 ![Nalog] = NalogSerija
                 ![IDStroja] = Sl_ULAZNA![IDStroja]
                 ![BrojStroja] = Sl_ULAZNA![BrojStroja]
                 ![NazivStr] = Sl_ULAZNA![NazivStr]
                 ![IDdijela] = Sl_ULAZNA![IDdijela]
                 ![Kom] = Sl_ULAZNA![SumOfBrKomadaSum]
                 ![ZaIzraditi] = Forms![PitaIzdatnicu].[KOMADA] * Sl_ULAZNA![SumOfBrKomadaSum]
                 .Update
            End With
            End If
         Sl_ULAZNA.MoveNext
        Wend
    End If
                      ' -----------------------------------------------------------
   VrijednostNaloga   ' Poziva se funkcije zaupis vrijednosti naloga
                      ' -----------------------------------------------------------
    If Sl_Duplikati.RecordCount > 0 Then
    If MsgBox("Podaci za ovaj nalog ve su arhivirani. Želite li ih pogledati", vbYesNo, "Dupli podaci!") = vbYes Then
    DoCmd.OpenForm "frmArhivaNlg", acFormDS, , , acFormPropertySettings, acWindowNormal
    DoCmd.OpenForm "frmDuplikatiNlg", acFormDS, , , acFormPropertySettings, acWindowNormal
    Else
        Me.Undo
    End If
    End If
   Else
                    ' -----------------------------------------------------------
   VrijednostNaloga   ' Poziva se funkcije zaupis vrijednosti naloga
                   ' -----------------------------------------------------------
    Exit Sub
    End If
Kraj:
    Set Baza = Nothing
Exit_C_Slozi_Click:
    Exit Sub
Err_C_Slozi_Click:
    MsgBox err.Description
    Resume Exit_C_Slozi_Click
End Sub