Попробуйте запоминать r которое вы генерите в Private Sub Form_Load().
Например так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db2.mdb"
Data1.Refresh
For i = 1 To 12
k = Data1.Recordset.RecordCount - 1
Randomize
r = Int(Rnd * k) + 1
Data1.Recordset.MoveFirst
Data1.Recordset.Move r
Text1(i).BackColor = vbWhite
Label1(i).Caption = Data1.Recordset.Fields("Поле1").Value 'i - индекс лейбла
Text1(i).Tag = r '!!!!!! запоминаем индекс записи в Tag текстового поля
Text1(i).Left = Label1(i).Left + Label1(i).Width + 100
Next
End Sub
Тогда потом можно будет проверить так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Image3_Click()
For i = 1 To 12
' k = Data1.Recordset.RecordCount
' Randomize
' r = Int(Rnd * k) + 1
Data1.Recordset.MoveFirst
Data1.Recordset.Move Text(i).Tag '!!!!!!!!!!!! Перемещаемся к записи индекс которой хранится в Tag текстового поля
Text1(i).BackColor = vbWhite
If Text1(i).Text <> Data1.Recordset.Fields("Поле3").Value Then
Text1(i).BackColor = vbRed
End If
Next
End Sub
Единственное что - я бы посоветовал в Form_Load() отслеживать какие числа уже генерились, что бы не использовать их повторно в течении выполнения процедуры и избежать ситуации когда одно и то же слово будет выведено два раза. Например так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Form_Load()
Dim str as String
Data1.DatabaseName = App.Path & "\db2.mdb"
Data1.Refresh
k = Data1.Recordset.RecordCount - 1
Randomize
r = Int(Rnd * k) + 1
For i = 1 To 12
do while instr( 1 , str, "," & r & , ",") > 0
r = Int(Rnd * k) + 1
end do
str = str & "," & r & ","
Data1.Recordset.MoveFirst
Data1.Recordset.Move r
Text1(i).BackColor = vbWhite
Label1(i).Caption = Data1.Recordset.Fields("Поле1").Value 'i - индекс лейбла
Text1(i).Tag = r '!!!!!! запоминаем индекс записи в Tag текстового поля
Text1(i).Left = Label1(i).Left + Label1(i).Width + 100
Next
End Sub
З.Ы.
может быть бажно, писал навскидку
З.З.Ы.
фотку оценил :)
