Modulkode behandler ikke negative værdier

Nedenstående kode benyttes i forbindelse med nedbrydning af en periode til dagsnivea, hvor AR-Date er første dag, og Days er antallet af efterfølgende dage i perioden.

Hver record består af en ordre/booking på et givent tidspunkt af året ( AC-Date ), og denne ordre ken efterfølgende annulleres på et andet tidspunkt af året.

Dvs. Days kan både være positivt som negativt.

Af een eller anden årsag behandles negative værdier ikke i modulkoden, kan simpelthen ikke finde ud af hvad der er galt


Public Sub Update_004()
  Dim IndRst As Recordset
  Dim UdRst As Recordset
 
  Dim i As Integer
 
  Set IndRst = CurrentDb.OpenRecordset("qryBooking")
  Set UdRst = CurrentDb.OpenRecordset("DTD-Data")
   
  With IndRst
    Do Until .EOF
   
      For i = 0 To .Fields("Days")
       
        UdRst.AddNew
       
            UdRst.Fields("BookingNo") = IndRst.Fields("BookingNo")
            UdRst.Fields("Days") = IndRst.Fields("Days")
           
                UdRst.Fields("Reg") = IIf((IndRst.Fields("Days")) < 0, -1, 1)
           
                UdRst.Fields("AC-Date") = IndRst.Fields("AC-Date")
                UdRst.Fields("AR-Date") = IndRst.Fields("AR-Date")
                UdRst.Fields("OC-Date") = IndRst.Fields("AR-Date") + i
           
        UdRst.Update
     
      Next i
     
      .MoveNext
    Loop
  End With
  IndRst.Close
  UdRst.Close
  Set IndRst = Nothing
  Set UdRst = Nothing

End Sub