Private Sub Command_Knjizenje_Click()
On Error GoTo Err_Command_Knjizenje_Click

    Dim Baza As Database
    Dim Sl_Transakcije As Recordset
    Dim Sl_TransakcijeUpis As Recordset
    Dim Sl_Upis As Recordset
    Dim Sl_Ulaz  As Recordset
    Dim rs As Recordset 'novo
    Dim mySQL As String 'novo
    Set Baza = CurrentDb()  ' Setovanje
    
    Set Sl_Transakcije = Baza.OpenRecordset("tblTransakcijeIzlaz", dbOpenDynaset) ' Tablica U koju se prebacuje
    Set Sl_TransakcijeUpis = Baza.OpenRecordset("Temp_tblTransakcije", dbOpenDynaset) 'Tablica iz koje se prebacuje
    
    Set Sl_Ulaz = Baza.OpenRecordset("Izlaz", dbOpenDynaset) ' Tablica U koju se prebacuje
    Set Sl_Upis = Baza.OpenRecordset("Temp_Izlaz", dbOpenDynaset) 'Tablica iz koje se prebacuje
    
    
    
If Sl_TransakcijeUpis.RecordCount > 0 Then
    Sl_TransakcijeUpis.MoveFirst
    While Not Sl_TransakcijeUpis.EOF
        With Sl_Transakcije
            .AddNew
            ![IDTransakcije] = Sl_TransakcijeUpis![IDTransakcije]
            ![Datum] = Sl_TransakcijeUpis![Datum]
            ![IDdokumenta] = Sl_TransakcijeUpis![IDdokumenta]
            ![BrDokumenta] = Sl_TransakcijeUpis![BrDokumenta]
            ![IDKlijenta] = Sl_TransakcijeUpis![IDDobavljaca]
            ![RadniNalog] = Sl_TransakcijeUpis![RadniNalog]
            .Update
        End With
        
        Sl_TransakcijeUpis.MoveNext
        Wend

End If

    If Sl_Upis.RecordCount > 0 Then
        Sl_Upis.MoveFirst            'otidi na prvi slog tablice UlazUpis
        While Not Sl_Upis.EOF        '  vrti petlju za sve slogove
            With Sl_Ulaz
               .AddNew
               ![IDTransakcije] = Sl_Upis![IDTransakcije]
               ![SIFRA] = Sl_Upis![SIFRA]
               ![Skl] = Sl_Upis![Skl]
               ![Kolicina] = Sl_Upis![Kolicina]
               .Update
            End With
    mySQL = "SELECT * FROM tblOtpremniceStavke WHERE Sifra =" & SIFRA 'Novo
    
    Do While Not rs.EOF 'Novo
    rs.Edit
    rs!Proknjizeno = 1
    rs.Update
    rs.MoveNext
    Loop
    rs.Close
    
    
            Sl_Upis.MoveNext
        Wend
    Else
        MsgBox "Nema podataka za knjiženje", vbInformation, "Upozorenje"
        GoTo Kraj
    End If
    CurrentDb.Execute "DELETE*FROM [Temp_tblTransakcije]"
    CurrentDb.Execute "DELETE*FROM [Temp_izlaz]"
    DoCmd.Requery
    MsgBox "KNJIŽENJE JE ZAVRŠENO, KARTICE SU AŽURIRANE", , "Obavijest"
Kraj:
    Set Baza = Nothing
    
Exit_Command_Knjizenje_Click:
Exit Sub

Err_Command_Knjizenje_Click:

Select Case err.Number
Case 3201
MsgBox "Niste upisali podatak"

Cancel = True
Case 3167
MsgBox "Podatak je obrisan", , "Pokušaj ponovno"
Case Else
    MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji knjizenje()"
    End Select
Resume Exit_Command_Knjizenje_Click
End Sub