DoCmd.Hourglass True
Dim OdBroja1 As Long
         Dim DoBroja1  As Long
         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
                  
    '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!chkPlava = -1 Then
         OdBroja1 = Forms!frmZaduzenje!OdPlava
         DoBroja1 = Forms!frmZaduzenje!DoPlava
         Boja1 = "PLAVA"
         
         strSQL = "SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1
      Set rstStrevi = db.OpenRecordset(strSQL) 'GREŠKA
    'Set rstStrevi = db.OpenRecordset("SELECT * FROM tblPlocice WHERE Boja=" & Boja1 & " AND Broj>=" & OdBroja1 & " AND Broj<=" & DoBroja1)
          With rstStrevi
         rstStrevi.MoveFirst
          Do While Not rstStrevi.EOF
          rstStrevi.Edit         'obavezno na po
etku za dodavanje
                rstStrevi!BrojZaduzenja = UlazBr
                rstStrevi!DatumZaduzenja = datzad
                rstStrevi!SumarZaduzenja = SumID
                rstStrevi!SumarImeZaduzenja = SumIme
                rstStrevi!Status = "Z"
          rstStrevi.Update
         rstStrevi.MoveNext
         Loop
         End With
         rstStrevi.Close
   End If 'kraj za plave
          wrk.CommitTrans
          flgInTrans = False
          DoCmd.Hourglass False