ник: Алексей М.
Ура! Получилось! Огромное Вам спасибо, жить хочется, тупик пробит.
Вот как у меня заработало.
Private Sub Кнопка263_Click()
Dim rst As Object
Dim cnt As Integer
Dim nt As String
Dim nv As String
Controls![пф шкала расчет протокол].Requery 'без Requery могут быть ошибки
cnt = 0 'счетчик записей
Set rst = Me.[пф шкала расчет протокол].Form.Recordset
If rst.RecordCount <> 0 Then
rst.MoveFirst
Do While Not rst.EOF
nt = "т" & cnt 'генерация имен полей в которые будут передаваться значения из
nv = "в" & cnt 'предварительного расчета [т0]...[т11] и [в0]...[в11]
cnt = cnt + 1
Me(nt) = rst![значение] 'заполнение полей
Me(nv) = rst![деление]
If cnt = 12 Then
GoTo end1
End If
rst.MoveNext
Loop
End If
end1: [кол] = cnt 'количество расчетных точек (от 3 до 12, больше не бывает)
End Sub