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