Вот код программы, который был дан в книге: Private Sub Data1_Reposition() Data2.Recordset.Seek "=", Data1.Recordset.Fields("PubID") If Data2.Recordset.NoMatch Then Label2.Caption = "***" Data3.Recordset.Seek "=", Data1.Recordset.Fields("ISBN") If Data3.Recordset.NoMatch Then Label3.Caption = "***" Exit Sub End If Data4.Recordset.Seek "=", Data3.Recordset.Fields("Au_ID") End Sub Private Sub Form_Load() Data2.Refresh Data3.Refresh Data4.Refresh Data2.Recordset.Index = "PrimaryKey" Data3.Recordset.Index = "ISBN" Data4.Recordset.Index = "PrimaryKey" End Sub При выполнении пишет ошибку 3251 на строках Data2.Recordset.Index = "PrimaryKey" Data3.Recordset.Index = "ISBN" Data4.Recordset.Index = "PrimaryKey" Не могу понять причину. Кто может помогите пожалуйста...
Ответить
|