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