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