АлексейКзначит такой таблицы нет
попробуй скопировать название может разница на пробел или русский символ
таблица есть :)
Я ошибся в месте возникновения ошибки :). Вот она где:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Form_Load()
Dim Param As DAO.RecordSet
Set Param = CurrentDb.OpenRecordset("__TEMP_PARAMETER_TUNING")
If Not Param.EOF Then
With Param
.FindFirst "VARIABLE_CODE = 1" 'Ошибка здесь
If Not Param.NoMatch Then
Me!fld_ye1 = Param!VARIABLE_VALUE
Me!fld_Per1 = Param!percent
Me!fld_ye2 = Me!fld_ye1
Me!fld_Ye3 = Me!fld_ye1
Else
MsgBox ""
End If
.FindFirst "VARIABLE_CODE = 3"
If Not Param.NoMatch Then
Me!fld_Per2 = Param!percent
Else
MsgBox ""
End If
End With
End If
End Sub
