Private Sub Кнопка8_Click()
Dim db As Database
Set db = DBEngine.Workspaces(0).Databases(0)
Dim rec1 As Recordset
Dim n As Integer
Set rec1 = db.OpenRecordset("Таблица_данных")
rec1.MoveFirst
n = rec1.RecordCount
' If (VarType(Поле0) = vbNull) Or (VarType(Поле2) = vbNull) Or (VarType(Поле3) = vbNull) Or (VarType(Поле4) = vbNull) Or (VarType(Поле5) = vbNull) Or (VarType(Поле6) = vbNull) Or (VarType(Поле7) = vbNull) Then
' MsgBox ("Ошибка")
' GoTo 10
' End If
For i = 1 To n
Поле0 = rec1.Fields(0).Value
x = CByte(Rnd(n)) + 1
If i = x Then
GoTo 0
End If
rec1.MoveNext
Next
0:
rec1.MoveFirst
For i = 1 To n
Поле2 = rec1.Fields(1).Value
y = CByte(Rnd(n)) + 1
If i = y Then
GoTo 1
End If
rec1.MoveNext
Next
1:
rec1.MoveFirst
For i = 1 To n
Поле3 = rec1.Fields(2).Value
z = CByte(Rnd(n)) + 1
If i = z Then
GoTo 3
End If
rec1.MoveNext
Next
3:
rec1.MoveFirst
For i = 1 To n
Поле4 = rec1.Fields(3).Value
a = CByte(Rnd(n)) + 1
If i = a Then
GoTo 4
End If
rec1.MoveNext
Next
4:
rec1.MoveFirst
For i = 1 To n
Поле5 = rec1.Fields(4).Value
b = CByte(Rnd(n)) + 1
If i = b Then
GoTo 5
End If
rec1.MoveNext
Next
5:
rec1.MoveFirst
For i = 1 To n
Поле6 = rec1.Fields(5).Value
c = CByte(Rnd(n)) + 1
If i = c Then
GoTo 6
End If
rec1.MoveNext
Next
6:
rec1.MoveFirst
For i = 1 To n
Поле7 = rec1.Fields(6).Value
d = CByte(Rnd(n)) + 1
If i = d Then
GoTo 7
End If
rec1.MoveNext
Next
7:
10:
End Sub