Option Compare Database

Sub randomDigits(tableName, fldOt, fldDo, n)
    Start_time = Time()
    Dim i
    Randomize
    With CurrentDb.OpenRecordset("select * from [" & tableName & "]")
        For i = 1 To n
            .AddNew
            !number = Rnd(i) * (fldDo - fldOt) + fldOt
            .update
        Next
    End With
    End_time = Time()
End Sub


Sub button_Click() // процедура для считывания данных из соответствующих полей формы
n = Number19()
fldOt = number_ot()
fldDo = number_do()
randomDigits "table", number_ot, number_do, n
End Sub