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