- 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