Const MIN_CH = 5 '- минимальное кол-во символов в текстовом поле
Const MAX_CH = 25 '- максимальное кол-во символов в текстовом поле
Const MIN_NUM = -65000000 ' минимально число
Const MAX_NUM = 65000000 ' максимальное число
Const COUNT_RECORD = 5 ' кол-во строк
Dim rst As adodb.Recordset
Dim strTemp As String
Dim I As Integer
Dim J As Integer
Dim C As Integer ' кол-во символов с текстовом поле
Randomize Timer
Set rst = New adodb.Recordset
rst.Open "Select * from tblSample", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
For I = 1 To COUNT_RECORD
C = Int((MAX_CH - MIN_CH + 1) * Rnd + MIN_CH)
strTemp = ""
For J = 1 To C
strTemp = strTemp & Chr(216 * Rnd + 40) ' генерим текстовую строку
Next
With rst
.AddNew
![Поле1] = (MAX_NUM - MIN_NUM + 1) * Rnd + MIN_NUM ' числовое
![Поле2] = strTemp ' тектовое
![Поле3] = DateAdd("d", 1801 * Rnd - 900, Date) ' дата
.Update
End With
Next
rst.Close
|