تکمیل ظرفیت روزانه با احتساب مقادیر اولیه

[mazoolagh]

الگوریتم رو براتون آماده میکنم

time

[mazoolagh]

Sub Fill_Data()

DoCmd.RunSQL "Delete * From Orders"

DoCmd.RunSQL "Delete * From Production"

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Production")

Dim MM, DD, Days As Long

For MM = 1 To 12

    Days = IIf(MM < 7, 31, 30)

    For DD = 1 To Days

        rs.AddNew

        rs("[Date]") = 13980000 + MM * 100 + DD

        rs("Quantity") = 100 * RndX(1, 15)

        rs.Update

    Next DD

Next MM

rs.Close

Set rs = CurrentDb.OpenRecordset("Orders")

Dim i As Integer

For i = 1 To 500

    rs.AddNew

    rs("OrderID") = i

    rs("Quantity") = 100 * RndX(1, 10)

    rs.Update

Next i

rs.Close

Set rs = Nothing

End Sub





Public Function RndX(MIN As Long, Max As Long) As Long

Randomize Timer

RndX = Int((Max - MIN + 1) * Rnd + MIN)

End Function