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