On Error GoTo Err_ZaduziPlociceBijela_Click
DoCmd.Hourglass True
Dim OdBroja1 As String
Dim DoBroja1 As String
Dim OdBroja2 As String
Dim DoBroja2 As String
Dim DuzinaNula As String
Dim DuzinaNulaDo As String
Dim Boja1 As Variant
Dim UlazBr As Variant
Dim BrojObrazca As Long
Dim DatZaduz As Date
Dim BROZAD As String
Dim FORMATTIPA As String
Dim TipZad As String
Dim wrk As Workspace
Dim db As Database
Dim rstStrevi As DAO.Recordset
Dim rsRASPONI As DAO.Recordset
Dim strSQL As String
Dim flgInTrans As Boolean
flgInTrans = False
Dim SumID As String
Dim SumIme As String
Dim datzad As Date
UlazBr = Forms!frmZaduzenje!Broj & "/" & Forms!frmZaduzenje!Godina
SumID = Forms!frmZaduzenje!SumarID
SumIme = Forms!frmZaduzenje!SumarIme.Column(1)
datzad = Forms!frmZaduzenje!Datum
DuzinaNula = Forms!frmZaduzenje!FormatOd
DuzinaNulaDo = Forms!frmZaduzenje!FormatBrojaDo
'sad dolazi upis u tablicu
Set wrk = DBEngine.Workspaces(0)
Set db = CurrentDb
wrk.BeginTrans
flgInTrans = True
'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset, dbAppendOnly)
'Set rstStrevi = db.OpenRecordset("tblPlocice", dbOpenDynaset)
'generira i upisuje recorde u bazu prema podacima unešenim na formu
If Forms!frmZaduzenje!chkBijela = -1 Then
OdBroja1 = Forms!frmZaduzenje!OdBijela
DoBroja1 = Forms!frmZaduzenje!DoBijela
OdBroja2 = Format$((OdBroja1), DuzinaNula)
DoBroja2 = Format$((DoBroja1), DuzinaNulaDo)
Boja1 = "Bijela"
strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='" & "Bijela" & "' AND Val([Broj])>='" & OdBroja2 & "' AND Val([Broj])<='" & DoBroja2 & "'"
'strSQL = "SELECT * FROM tblPlocice WHERE [Boja]='" & "Bijela" & "' AND [Broj]>='" & Val(OdBroja1) & "' AND [Broj]<='" & Val(DoBroja1) & "'"
'strSQL = "SELECT * FROM QryBijela" 'WHERE [Boja]='" & "Bijela" & "' AND [Broj]>='" & Format$((OdBroja1), DuzinaNula) & "' AND [Broj]<='" & Format$((DoBroja1), DuzinaNulaDo) & "'"
Set rstStrevi = db.OpenRecordset(strSQL, dbOpenDynaset)
With rstStrevi
.MoveFirst
Do While Not .EOF
.Edit 'obavezno na po
etku za dodavanje
rstStrevi!BrojZaduzenja = UlazBr
rstStrevi!DatumZaduzenja = datzad
rstStrevi!SumarZaduzenja = SumID
rstStrevi!SumarImeZaduzenja = SumIme
rstStrevi!Status = "Z"
.Update
.MoveNext
Loop
End With
rstStrevi.Close
End If 'kraj za Bijele
wrk.CommitTrans
flgInTrans = False
DoCmd.Hourglass False
Exit_ZaduziPlociceBijela_Click:
DoCmd.Hourglass False
Exit Sub
Err_ZaduziPlociceBijela_Click:
If flgInTrans Then
wrk.Rollback
End If
MsgBox "Brojevi Bijelih plo
ica koje ste upisali nisu zaduženi ili ne postoje u bazi podataka!", vbExclamation, "Greška Bijelih plo
ica"
DoCmd.Hourglass False
Me.OdBijela = 0
Me.DoBijela = 0
Me.UkupnoBijela = 0
Me.UkupnoPlocica = Me.UkupnoPlava + Me.UkupnoBijela + Me.UkupnoCrvena + Me.UkupnoCrna + Me.UkupnoNarandza + Me.UkupnoZelena + Me.UkupnoZuta
'DoCmd.SetWarnings False
'DoCmd.RunSQL "UPDATE tblStaIzd SET Kolicina='" & KollNov & "' WHERE BrArt='" & Me.BrojArtikla & "' AND Brojizd='" & Me.Broj & "'"
'DoCmd.RunSQL "UPDATE tblStaIzd SET Cijena='" & Me.Cijena & "' WHERE BrArt='" & Me.BrojArtikla & "' AND Brojizd='" & Me.Broj & "'"
'DoCmd.RunSQL "UPDATE tblStaIzd SET Ukupno='" & Uk & "' WHERE BrArt='" & Me.BrojArtikla & "' AND Brojizd='" & Me.Broj & "'"
'DoCmd.RunSQL "UPDATE tblStaIzd SET UkupnoMP='" & UKMP & "' WHERE BrArt='" & Me.BrojArtikla & "' AND Brojizd='" & Me.Broj & "'"
'DoCmd.SetWarnings True
Resume Exit_ZaduziPlociceBijela_Click
End Sub