Имеется база данных Access, содержащая таблицу из 3 полей: код (счётчик), слово с пропущенной буквой и собственно буква.
По событию Form_Load() загружается массив лейблов и текстбоксов. В лейблы должны загружаться слова с пропусками (как правило нет последней буквы), а в текстбоксы пользователь должен вводить букву.
Я делала так:
| Код |
For i = 1 To 12
k = Data1.Recordset.RecordCount - 1
Randomize
r = Int(Rnd * k) + 1
Text2.Text = r
Data1.Recordset.MoveFirst
Data1.Recordset.Move r
Text1(i).BackColor = vbWhite
Label1(i).Caption = Data1.Recordset.Fields("Поле1").Value 'i - индекс лейбла
Text1(i).Left = Label1(i).Left + Label1(i).Width + 100
Next
|
Потом для проверки:
| Код |
Private Sub Image3_Click()
For i = 1 To 12
Data1.Recordset.MoveFirst
Data1.Recordset.Move r
Text1(i).BackColor = vbWhite
If Text1(i).Text <> Data1.Recordset.Fields("Поле3").Value Then
Text1(i).BackColor = vbRed
End If
Next
End Sub
|
Проблема в том, что я не могу объединить 2 эти действия  для загрузки получаются одни случайные числа, а для проверки другие, к тому же слова часто повторяются ( из-зf Randomize)
Подскажите, пожалуйста, если знаете. Заранее спасибки 
|