Private Sub Inventura_Click()
Dim Baza As Database
Dim Sl_Pocetna As Recordset
Dim Sl_Prelazna As Recordset
Dim Sl_Zavrsna As Recordset
Dim Kolicina As Double
Set Baza = CurrentDb()

Set Sl_Pocetna = Baza.OpenRecordset("Q_Inventura", dbOpenDynaset)
Set Sl_Prelazna = Baza.OpenRecordset("Inventura", dbOpenDynaset)
Set Sl_Zavrsna = Baza.OpenRecordset("Ulaz", dbOpenDynaset)

MsgBox "podaci e biti kopirani", vbOKCancel

If vbOK Then
CurrentDb.Execute "DELETE*FROM [Inventura]"
    If Sl_Pocetna.RecordCount > 0 Then
        Sl_Pocetna.MoveFirst
        While Not Sl_Pocetna.EOF
        Kolicina = Sl_Pocetna![Ulaz]
            With Sl_Prelazna
                 .AddNew
        ![Sifra] = Sl_Pocetna![Sifra]
        ![Datum] = Sl_Pocetna![Datum]
        ![Skl] = Sl_Pocetna![Skl]
        ![IDdokumenta] = 4
        ![Predatnica] = ""
        ![Dobavljac] = 1
        ![Nalog] = ""
        ![Regal] = ""
    If Kolicina < 0 Then
        ![Ulaz] = 0
    Else
        ![Ulaz] = Sl_Pocetna![Ulaz]
    End If
        .Update
    End With
         Sl_Pocetna.MoveNext
        Wend
End If 
CurrentDb.Execute "DELETE*FROM [Ulaz]"
CurrentDb.Execute "DELETE*FROM [Izlazi]"
    If Sl_Prelazna.RecordCount > 0 Then
        Sl_Prelazna.MoveFirst
        While Not Sl_Prelazna.EOF
            With Sl_Zavrsna
                 .AddNew
        ![ŠifraUlaz] = Sl_Prelazna![Sifra]
        ![Datum] = Sl_Prelazna![Datum]
        ![Skl] = Sl_Prelazna![Skl]
        ![Ulaz] = Sl_Prelazna![Ulaz]
        ![IDdokumenta] = Sl_Prelazna![IDdokumenta]
        ![Predatnica] = Sl_Prelazna![Predatnica]
        ![Dobavljac] = Sl_Prelazna![Dobavljac]
        ![Nalog] = Sl_Prelazna![Nalog]
        ![Regal] = Sl_Prelazna![Regal]
        .Update
            End With
         Sl_Prelazna.MoveNext
        Wend
   End If
Kraj:
    Set Baza = Nothing
    DoCmd.OpenTable "Ulaz", acViewNormal, acEdit
End If 
End Sub