вот процедура, отвечающая за заполнение данных
Sub randomDigits(tableName, fldOt, fldDo, n)
Start_time = Time() ' время, когда она была запущена
Dim i ' тут бы я добавил as long
Randomize
With CurrentDb.OpenRecordset("select * from [" & tableName & "]") ' это собственно запрос. Выбираются данные из таблицы, причем все. Зачем так сделано - неясно.
For i = 1 To n ' а вот тут добавляются данные от 1 до n
.AddNew ' добавлено
!number = Rnd(i) * (fldDo - fldOt) + fldOt ' установлено значение числа.
.update ' сохранены записи
Next ' пошли на следующую строку
End With
End_time = Time() ' сохранили в переменную время конца выполнения
End Sub
' вот это вызов процедуры генерации. Имеет смысл добавить необязательно слово Call - так понятней, что это именно процедура
Call randomDigits ("table", number_ot, number_do, n)
debug.pring now()
Call randomDigits ("table", number_ot, number_do, n)
debug.pring now()
Вот так будет полное время выполнения процедуры генерации.