[ Goran92 @ 23.08.2015. 13:02 ] @
Ako može neko da mi kaže gdje griješim?

Code:

Public Sub ObracunPID()
On Error Resume Next

   Dim BRUTO, BRUTO1, NETO As Currency
   Dim rst, rsl As DAO.Recordset
   
   Set rsl = CurrentDb.OpenRecordset("Radnici", dbOpenDynaset)
   rsl.FindFirst "RadnikID=" & Me.ObracunR_Subform!RadnikID
   Set rst = Forms!Obracun![ObracunD Subform].Form.RecordsetClone
   If rst.RecordCount > 0 Then
      rst.MoveFirst
   End If
   ' 1 - ********** ! OBRACUN PiD !
   If Not IsNull(Forms![Obracun]![ObracunZ Subform]!Text11) Then
      BRUTO = Forms![Obracun]![ObracunZ Subform]!Text11
      BRUTO1 = BRUTO
      NETO = Forms![Obracun]![ObracunZ Subform]!Text10
   Else
      BRUTO = 0
      BRUTO1 = 0
      NETO = 0
   End If
   If BRUTO < Forms![Obracun]!MjOsnova Then
      If BRUTO <> 0 Then
         BRUTO1 = BRUTO
         If MsgBox("OBRACUN DOPRINOSA NA OSTVARENU PLATU ?", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then
            BRUTO = Forms![Obracun]!MjOsnova
         End If
      End If
   End If
   ' 2 - ********** ! OBRACUN PiD ! Dodati i odbitke na POREZ !!!
   Do While rst.EOF = False
   If rst!Oznaka = "P" Then
      If BRUTO1 > Forms![Obracun]!Neoporez Then
         rst.Edit
         If (BRUTO1 - (BRUTO * Forms!Obracun!Text101 / 100) - Forms!Obracun!Neoporez - rsl!Odbitak1 - rsl!Odbitak2) > 0 Then
            rst!IznosDoprinosa = (BRUTO1 - (BRUTO * Forms!Obracun!Text101 / 100) - Forms!Obracun!Neoporez - rsl!Odbitak1 - rsl!Odbitak2) * rst!Stopa / 100
         Else
            rst!IznosDoprinosa = 0
         End If
         rst.Update
      Else
         rst.Edit
         rst!IznosDoprinosa = 0
         rst.Update
      End If
   If rst!Oznaka = "s" Then
      If NETO = Forms![Obracun]!NajNizaPl Then
      rst.Edit
      rst!IznosDoprinosa = NajNizaPl * 1.5 / 100
      rst.Update
      Else
      rst!IznosDoprinosa = NajNizaPl * 3 / 100
      End If
   rst.MoveNext
   If rst.EOF = True Then
      Exit Do
   End If
   Loop
   Forms![Obracun]![ObracunD Subform].Requery
   
End Sub

[ IpAsOfT @ 28.08.2015. 09:23 ] @
Koju gresku javlja?
[ captPicard @ 31.08.2015. 08:15 ] @
Neznam kakva je kod vas u SRB procedura obračuna plaće pa ti ne mogu puno pomoći. Objasni rječima, pa ćemo možda doći do rješenja :)
[ Goran92 @ 02.09.2015. 22:29 ] @
Jednostavno mi ne racuna, polja u formi ostanu prazna. Ne javlja mi nikakvu gresku.
[ Shon3i @ 03.09.2015. 17:05 ] @
Skini ovaj On Error Resume Next na pocetku..., pa mozda pokaze neku gresku...